Bonjour,
je souhaiterai exécuter une macro Word 2007 sur tous les fichiers d'un répertoire.
(cette macro supprime remplace un logo en entete par un nouveau)
Ps : je suis novice en macro ;-D
merci de votre aide
Combien cela coûte-t-il au total ? Quelles aides apportent l'état et les acteurs du marché pour alléger cette charge non choisie ? Tous les détails sur Commentçamarche.net.
mais j'ai fais une macro via "enregistrer" et elle fonctionne mais il faut que je l'execute fichier par fichier.
mon besoin est de l'executer sur tous les fichiers de mon répertoire.
Sub logos_word()
'
' logos_word Macro
'
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.InlineShapes.AddPicture FileName:= _
"C:\Documents and Settings\fanou\Mes documents\logo Data2.jpg", _
LinkToFile:=False, SaveWithDocument:=True
ActiveDocument.Save
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
peux tu me dire comment l'adapter
merci