Renommage fichiers via macro break-on-page

[vsan]

Bonjour à tous,

J'ai implanté la macro break_on_page dans un fichier qui fait plein de pages et que je souhaite splitter en autant de fichiers que de pages...
Le soucis, vient au moment du renommage des fichiers, je souhaiterai "forcer" le format du nombre, à savoir le mettre sur 3 digits : 001, 002, etc.

Qu'est-ce que je dois modifier au niveau du code ci après pour avoir ce format de nom?

Merci d'avance.

[color=green]' Removes the break that is copied at the end of the page, if any.[/color]
      Selection.TypeBackspace
      ChangeFileOpenDirectory "D:\Fiches"
      DocNum = DocNum + 1
      ActiveDocument.SaveAs FileName:="Fiche_" & [b]DocNum[/b] & ".doc"
      ActiveDocument.Close

 

[mromain]

Re : Renommage fichiers via macro break-on-page

Bonjour vsan,

Essaye avec Format(DocNum, "000").

a+

 

[vsan]

Re : Renommage fichiers via macro break-on-page

Merci, je suis vraiment étourdi des fois, je la connais cette fonction pourtant!!
Mais la parole d'un expert vaut bien plus que les discours d'un débutant!