Comment Extraire le contenu d'un fichier Word vers Excel

Fermé
JeremyP6 Messages postés 1 Date d'inscription mercredi 9 janvier 2013 Statut Membre Dernière intervention 1 mars 2013 - 1 mars 2013 à 11:22
Re Salut?

Voici un code qui marche qui copie ou extrait un tableau complet donné ( le pemier tableau ) d'un fichier word vers un fichier Excel actif

*******
Sub importTableWord_VersExcel()
'
' importTableWord_VersExcel Macro
'
'Nécessite d'activer la référence:
'Microsoft Word xx.x Object Library

Dim WordApp As Object
Dim WordDoc As Object
Dim Tableau As Object
Dim i As Integer, j As Integer


'Création instance Word
Set WordApp = CreateObject("Word.Application")

'Masque Word pendant l'opération
WordApp.Visible = False

'Ouvre le document Word
Set WordDoc = WordApp.documents.Open("E:\DAT NINJA CIE G2R0 S1F3.doc")

'Représente le premier tableau dans le document
Set Tableau = WordDoc.Tables(1)

'Boucle sur les colonnes du tableau
For i = 1 To Tableau.Columns.Count

'Boucle sur les cellules de claque colonne
For j = 1 To Tableau.Columns(i).Cells.Count

'Importe les données du tableau dans la feuille active
ActiveSheet.Cells(j, i) = Tableau.Columns(i).Cells(j)
Next j
Next i

'Ferme le document Word
WordDoc.Close False
'Ferme l'instance Word
WordApp.Quit

'
Application.Goto Reference:="importTableWord_VersExcel"

End Sub
*****

J'aimerai savoir comment faire une recherche par mot clés ( titre ) d'une colonne sur un tableau donnée ?? exemple extraire que le contenu de la colonne "Nom" et Prenom d'un tableau qui s appelle Contact qui comporte (Nom Prenom Adresse.....)

Merciiiii
A voir également: