Macro excel pour traitement fichier word

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

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

By Renfield

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