Macro excel pour traitement fichier word

marcdid Messages postés 12 Date d'inscription samedi 7 février 2004 Statut Membre Dernière intervention 29 mai 2007 - 28 mai 2007 à 20:16
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 29 mai 2007 à 16:28
Messieurs,

 
Je lutte un peu pour écrire une macro excel pour traiter un fichier word. Je souhaiterais qu'elle:

 
- ouvre le fichier word en question

- parcourt le fichier word a la recherche d'un certain mot

- à chaque fois qu'elle trouve le mot, copier un certain nombre de
caractères qui suivent ce mot dans la cellule A1 du fichier excel

- continuer ceci jusqu'a la fin du fichier word en copiant à
chaque fois dans le fichier excel les caractères  dans les cellules
suivantes A2,A3....

 
Un grand merci pour votre aide!

 
Paul

1 réponse

jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
29 mai 2007 à 16:28
Salut,
Regarde si tu peux tirer quelques choses de ces petits bout de codes
'1 - Ajouter la référence suivante à ton classeur
'Microsoft WORD 9.0 Object Library (9.0 ou equivalent)

   'Ouvrir Word
   Dim WApp As New Word.Application
   'OUvrir un document par son chemin
   Dim WDoc As Word.Document
   Set WDoc = WApp.Documents.Open("C:\Test.doc")
   
   'on revient on début du document
   Call WApp.Selection.HomeKey(wdStory)
   
   'On prépare la recherche
   With WApp.Selection.Find
       .Text = "zone" 'je recherche le mot zone
       .MatchCase = False
       .MatchWholeWord = False
   End With
   
   'Execute une recherche
   WApp.Selection.Find.Execute
   'Je déplace de 5 caracteres vers la droite (en surlignant)
   Call WApp.Selection.MoveRight(wdCharacter, 5, wdExtend)
   'je copie
   Call WApp.Selection.Copy

, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée
0