Bonjour,
J'ai une macro VBA qui me permet d'incrémenter automatiquement un fichier Word lors de chaque ouverture, cependant, au bout du 9ème fichier crée, il écrase le 1er fichier, puis le 2ème ..... jusqu'au 9ème.
Je ne comprend pas pourquoi, car mon but c'est qu'il ne s'arrête pas à 9 mais qu'il continue.
Voici le code :
Sub AutoNew()
Dim Num, chemin_doc As String
'Mettre le chemin du dossier où doit se trouver le document
dossier = "..........."
'Mettre le nom par défaut du fichier nouvellement créé
nom_nouveau_doc = "Fiche d'intervention N° "
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, 1)
'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
Cordialement