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'hui368
Hier976
Cette semaine368
Ce mois3780
Total depuis 200418113572

24
visiteurs actuellement en ligne

4 mars 2024