Créez un nouveau fichier et l'enregistrez en tant que modèle, sous le nom "bon de commande" par exemple.
Créez une macro du nom de "AutoNew" :
Cette macro stocke dans une insertion automatique nommée "numéro" celui attribué au dernier document fondé sur le modèle bon de commande.
Pour initialiser cette insertion automatique, entrez dans le document le numéro qui sera attribué au premier document (moins 1 et donc 0 pour commencer à 1). Sélectionnez ce numéro et choisir la commande :
Effacez le numéro qui a été saisi, enregistrez le modèle et fermez-le.
Pour commencer un nouveau bon de commande, choisissez Fichier => Nouveau et double-cliquer sur l'icône du modèle Bon de commande. La numérotation se fait et le document est automatiquement sauvegardé.
Macro à copier et à coller dans Thisdocument (Alt+F11 pour atteindre l'éditeur Visual Basic).
Vous devrez, dans la macro, mettre le nom du dossier où seront rangés vos documents, ainsi que le nom par défaut du nouveau document qui sera complété par son numéro.
Sub AutoNew()
Dim Num, chemin_doc As String
'Mettre le chemin du dossier où doit se trouver le document
dossier = "C://mes documents/"
'Mettre le nom par défaut du fichier nouvellement créé
nom_nouveau_doc = "Bon de commande"
On Error GoTo erreur:
Num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
Num = Num + 1
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = Num
Num = Right("0000" & Num, 4)
Selection.TypeText Text:="Numéro : " & Num
ActiveDocument.AttachedTemplate.Save
ActiveDocument.SaveAs FileName:=dossier & nom_nouveau_doc & Num & ".docx"
Exit Sub
erreur:
MsgBox "Une erreur est survenue"
End Sub
NB : Si vous souhaitez changer le numéro de départ, vous devrez recréer l'insertion automatique ou bloc de construction en écrasant l'ancien.