Comment attribuer automatiquement un nom à vos documents ?

Habituellement, vous rédigez des lettres que vous archivez en les nommant, par exemple, Lettre01.doc, Lettre02.doc, etc. Sachez qu’il existe un moyen rapide pour y parvenir sans afficher la fenêtre Enregistrez sous. Pour cela, cliquez sur la commande Nouveau du menu Fichier. Dans la fenêtre qui s’affiche, cochez la case [modèle] dans la zone Créer un nouveau. Sélectionnez votre modèle de document, à partir duquel vous créez vos lettres, et validez par un clic sur [ok].Modifiez le modèle et enregistrez-le sous le nom Lettre via la commande Fichier/Enregistrer. Appuyez ensuite sur les touches +. Visual Basic Editor s’ouvre. Déroulez le menu Insertion et choisissez Module. Recopiez le listing ci-dessus. Ce programme modifie le numéro situé dans l’en-tête et enregistre la lettre dans le dossier C:Mes Documents sous le nom LettreXX.doc. Enregistrez la macro en cliquant sur l’icône adéquate de la barre d’outils. Puis, grâce au raccourci clavier +, fermez Visual Basic Editor et basculez sous Word.

Dans le modèle Lettre.dot, cliquez sur la commande En-tête et pied de page du menu Affichage. Saisissez 0 par exemple, si vous voulez commencez une série par Lettre01. Sinon, entrez le numéro du dernier document (LettreXX où XX est un nombre) enregistré. Sélectionnez-le et appliquez-lui la couleur blanche en cliquant sur Police du menu Format, en optant pour longlet Police, style et attributs et en choisissant Blanc dans la liste Couleur .Vérifiez que le nombre reste sélectionné. Cliquez sur la commande Correction automatique du menu Outils. Optez pour Insertion automatique. Saisissez Numéro dans le champ Tapez les insertions automatiques ici. Dans la liste Rechercher dans, optez pour Lettre.dot (modèle global). Validez par un clic sur le bouton [ajouter]. Fermez et enregistrez le modèle. Choisissez Nouveau du menu Fichier et effectuez un clic double sur Lettre.dot pour créer une nouvelle lettre.Listing :
Sub autoNew()
b = ActiveDocument.AttachedTemplate.AutoTextEntries(“Numéro”).Value
Nb = Nb + 1
ActiveDocument.AttachedTemplate.AutoTextEntries(“Numéro”).Value = Nb
b = Right(“0” & Nb, 2)
Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = Nb
Selection.Sections(1).Headers(wdHeaderFooterPrimary).Range.Font.Color = wdColorWhite
Application.DisplayAlerts = wdAlertsNone
ctiveDocument.SaveAs FileName:=”C:Mes DocumentsLettre” & Nb & “.doc”
Application.DisplayAlerts = wdAlertsAll
End Sub

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.