user_mobilelogo

Pour tout connaître sur Word
Nouvelle version !

600 pages !

9,80 € 

En savoir plus.

 

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.

 

 

Statistiques

Aujourd'hui138
Hier1877
Cette semaine2015
Ce mois44517
Total depuis 200413203136

4
visiteurs actuellement en ligne

27 juillet 2021