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.
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.
Pièces jointes
Dernière édition:
