Bonsoir à tous,
j'ai trouvé un exemple de la macro suivante que je trouvais très intéressante.
Malheureusement quand je l'exécute il y a une erreur.
Pourriez vous m'aider à trouver cette erreur de programmation ?
je ne sais pas si c'est à cause des sauts de ligne
J'ai besoin d'une macro qui insère directement le nom du fichier et le chemin complet en pied de page tout en sauvegardant mon fichier. Si un autre pied de page existe, je veux qu'il soit remplacé.
Sub pieddepage()
'macro écrite par m@rina
ActiveWindow.ActivePane.View.SeekView =
wdSeekCurrentPageFooter
With Selection.HeaderFooter.Range
.Text = ""
.Fields.Add Range:=Selection.Range,
Type:=wdFieldEmpty,
Text:="FILENAME p"
End With
ActiveWindow.ActivePane.View.SeekView =
wdSeekMainDocument
ActiveDocument.save
End Sub