Executer macro word pour tous les fichiers
Résolu/Fermé
A voir également:
- Exécuter macro excel sans ouvrir fichier
- Ouvrir fichier .bin - Guide
- Fichier rar - Guide
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier docx ? - Guide
- Liste déroulante excel - 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
m@rina
Messages postés
20027
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
18 avril 2024
11 269
18 sept. 2010 à 19:09
18 sept. 2010 à 19:09
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
17 sept. 2010 à 13:07
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