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
Afficher la suite