Executer macro word pour tous les fichiers
Résolu
fanou
-
Fanou -
Fanou -
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
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
A voir également:
- Exécuter macro excel sans ouvrir fichier
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Ouvrir fichier .dat - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Comment ouvrir un fichier docx ? - Guide
3 réponses
Bonjour Fanou,
Peut-être de cette façon.
Mais, penser à remplacer :
- Cacticola par votre nom
- Pictures par le nom du dossier où se trouve le nouveau logo
- 00 PERRUCHES par le nom du sous-dossier (si sous-dossier il y a)
- 2008 12 27 (18) par le nom du nouveau logo.
Bonne suite.
Cacticola
Sub Changement_Logo()
'
' Changement_Logo Macro
'
'
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.InlineShapes.AddPicture FileName:= _
"C:\Users\Cacticola\Pictures\00 PERRUCHES\2008 12 27 (18) (Copier).JPG", _
LinkToFile:=False, SaveWithDocument:=True
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub
Peut-être de cette façon.
Mais, penser à remplacer :
- Cacticola par votre nom
- Pictures par le nom du dossier où se trouve le nouveau logo
- 00 PERRUCHES par le nom du sous-dossier (si sous-dossier il y a)
- 2008 12 27 (18) par le nom du nouveau logo.
Bonne suite.
Cacticola
Sub Changement_Logo()
'
' Changement_Logo Macro
'
'
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.InlineShapes.AddPicture FileName:= _
"C:\Users\Cacticola\Pictures\00 PERRUCHES\2008 12 27 (18) (Copier).JPG", _
LinkToFile:=False, SaveWithDocument:=True
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub
Bonjour,
Tu vas utiliser la batchmacro faite exactement pour ton cas !
Je l'ai mise ici :
https://faqword.com/index.php/word-faq/vba-solutions/688-comment-executer-sur-une-serie-de-fichiers-une-macro-creee-pour-un-seul-fichier-.html
m@rina
Tu vas utiliser la batchmacro faite exactement pour ton cas !
Je l'ai mise ici :
https://faqword.com/index.php/word-faq/vba-solutions/688-comment-executer-sur-une-serie-de-fichiers-une-macro-creee-pour-un-seul-fichier-.html
m@rina
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