par Demeb » 10 Juil 2008, 21:11
Je ne sais pas si il existe une méthode simple. Personnellement si je devait le faire, je le ferait à partir d'une macro VBA.
Ce qui nécessite de bien maîtriser ce langage (coté Word et coté Excel).
Exemple de code VBA :
--------------------------------------------
'Il peut être utile de définir dans Excel les valeurs des constantes utilisées par Word dans ces macros
'(Par défaut Word les connait .... mais pas Excel)
Private Const wdCharacter As Byte = 1
Private Const wdWord As Byte = 2
Private Const wdExtend As Byte = 1
Sub Récup_données_Word()
'Définir un objet représentant l'applicaion Word
Dim App_word As Object
'Affecter l'application Word à l'objet
Set App_word = CreateObject("Word.Application")
'La recopie des informations peut se faire sans afficher Word
App_word.Visible = False
With App_word
'Se positionner sur le répertoire contenant le's) fichier(s) Word à ouvrir
.ChangeFileOpenDirectory _
"C:\Documents and Settings\Pierre\Mes documents\Excel\Enquête\"
'Ouvrir le document Word
.Documents.Open Filename:="E01.doc"
'Rechercher les informations dans le document (ici rechercher "Nom : ")
With .Selection
.Find.ClearFormatting
.Find.Text = "Nom : "
.Find.Execute
'Se déplacer de 2 caractères vers la droite
.MoveRight Unit:=wdCharacter, Count:=2
'Sélectionner le nom qui suit
.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
'Copier
.Copy
End With
'Retour dans Excel, selection de la cellule devant recevoir la données copier
Application.ActiveWorkbook.ActiveSheet.Cells(4, 1).Select
'Coller la données
Application.ActiveSheet.Paste
End With
'Quite l'application word
App_word.Quit
'Supprime l'object Word
Set App_word = Nothing
End Sub
---------------------------------------------
Evidement il faudrait l'agrémenter de boucle (pour réperter les instructions pour chaque fichier)
Cordialement
par