Bienvenue sur la Nouvelle Faqword !

Bienvenue sur la Nouvelle Faqword !

Faqword créée en 2004 et entièrement révisée en 2024

Recherche

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 :

  • Onglet Insertion, Groupe TexteQuickpart => Enregistrer la sélection dans la galerie de composants Quickparts.
  • Tapez le nom du bloc de construction : "numéro".
  • Dans la liste déroulante Enregistrer dans :, choisissez le modèle "bon de commande.dotm".
  • Cliquez sur OK.

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

France 72,1% France
Canada 7,7% Canada
Belgique 3,8% Belgique

Total:

117

Pays
018308639
Aujourd'hui: 40
Hier: 386
Cette semaine: 1.369
Semaine dernière: 2.467
Ce mois: 4.031