Incrémentation numéro

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

Salut,

Ahah j'ai eu du mal à comprendre mais j'ai trouvé (je crois du moins), c'est simplement parce que :

Num = Right("0000" & Num, 1)

Bon normalement, il devrait te faire le n°10 mais pas le 11 avec cette ligne de code. Je remplacerai le 1 par 2 comme ceci :

Num = Right("0000" & Num, 2)

Cdlt,

Salut Kevin,

à mon sens, ça vient de là...

Num = Right("0000" & Num, 1)

Tu demandes que Num = le dernier caractère à droite donc, si 11 alors Num = 1

A tester

A+

Bonjour,

Merci pour vos réponses.

En effet, le numéro dans : " Num = Right("0000" & Num, 1) " détermine le nombre de chiffre qu'il y aura c'est pour ca que ca n'allait pas plus loin que 9.

Dans mon code j'avais mis en commentaire

'Selection.TypeText Text:="Numéro : " & Num

par ce qu'il indiquait le numéro de la fiche a gauche, est - il possible de le mettre au centre ?

bonjour

et moi je pense a un truc comme ca

Num = Format(Val(Num), "0000")

A+

Maurice