vsan
XLDnaute Junior
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.
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.
Code:
[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