marcdid
Messages postés12Date d'inscriptionsamedi 7 février 2004StatutMembreDernière intervention29 mai 2007
-
28 mai 2007 à 20:16
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDerniè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....
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 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