user_mobilelogo

 

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'hui1775
Hier1043
Cette semaine1775
Ce mois3815
Total depuis 200412301407

21
visiteurs actuellement en ligne

3 août 2020