Traitement de multiple document Word

Bonjour à tous,

Tout d'abord merci de prendre de votre temps pour lire ce post.

Je suis un débutant en vba et je dois accomplir une tâche que je trouve assez complexe.

Je vais le présenter en deux temps, le premier est le plus simple :

D'excel, j'importe un document word puis je récupère un tableau (toujours le 5 eme tableau) puis je le colle dans une page excel.

Cette partie je pense l'avoir réussis voici mon code :

Sub transfer()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Dim Fichier As String

Fichier = Application.GetOpenFilename("Text Files (*.doc*), *.doc*")
Set WordApp = CreateObject("Word.Application") 'creation session Word
WordApp.Visible = False 'pour que word reste masqué pendant l'opération
Set WordDoc = WordApp.Documents.Open(Fichier) 'ouverture du fichier Word

WordDoc.Tables(5).Range.Copy 'copie du tableau Word
'dans Word chaque tableau est indexé
'ici l'index est à 5 car il correspond au numero du tableau
'qui ne change pas suivant les dossiers stress

Range("A1").Select
ActiveSheet.Paste 'collage des données dans Excel

WordDoc.Close False 'ferme le document Word sans sauvegarde
WordApp.Quit 'ferme l'application Word
End Sub

Je ne pense pas qu'il soit optimisés pour l'instant.

La seconde étape est de réaliser ce même travail pour x fichiers word. Donc d'ouvrir x fichier word et de récupérer ce même tableau à chaque fois. Les donnés de ce même tableau peuvent être différente. Si j'ouvre x docs je dois avoir x tableau à la fin

Dans un troisième temps mais ce n'est pas le sujet je dois comparer une colonne et garder les références se trouvant dans chaque tableau

tableau 1 :       tableau 2 :               tableau 3 :                                la je dois garder :  rf, gh
aa                        fr                            rf
cz                        rf                            gh
de                       gh                           tt
rf                         zz                           jj
gh                       xz                           kk 

Je ne sais pas si j'ai était très clair n'hésitez surtout pas à me poser des questions.

Mes tableaux n'ont pas un nombre de ligne fixes mais les colonnes oui (fichier joint)

Ce sont les différents "Titles" que je dois comparer

Merci d'avance

Cordialement.

Voulez vous que je reformule ma demande ?

Un modo pourrait t-il supprimer ce post je vais en reécrire un plus proprement et moins large