Executer macro word pour tous les fichiers

Résolu
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

3 réponses

  1. Cacticola
     
    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
    2
    1. Fanou
       
      merci pour ta reponse,

      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
      0
  2. Cacticola
     
    Hélas, non. Je ne sais faire que des choses ultra simples !

    Désolée.

    Cacticola
    0
    1. Fanou
       
      dommage merci tout même
      0