Bonjour,
Voici ce que j'essaye de faire:
J'ai différents fichiers word, classés par date et qui comportent tous plusieurs feuilles excel en objet inséré. Suis un classeur excel, qui doit regrouper les informations, jour par jour, d'une seule de ces feuilles.
L'idée serait d'ouvrir un à un les fichiers word, d'y rechercher la feuille en question puis de copier et de coller dans le classeur.
Jusqu'à présent, ma macro propose de choisir un répertoire (celui de l'année) puis extrait le nom de tous les fichiers word, triés par mois. Pour vous donner une idée de la tâche, mes archives commencent en 2002...en gros 4200 fichiers word à ouvrir!
Ensuite, j'appelle extract:
et c'est là où ça coince. Il me semble comprendre qu'il me faille passer par OLEFormat et autres fonctions sur les objets, mais je n'y connais rien dans le domaine et la doc est ardue.
Auriez vous une piste à me proposer pour trouver la bonne feuille excel insérée (elle est systématiquement précédée du titre "TIME ANALYSIS" suivi d'un retour chariot et d'un sous titre, variable celui là...), de l'ouvrir pour y copier la deuxième colonne et de coller dans excel?
Voici ce que j'essaye de faire:
J'ai différents fichiers word, classés par date et qui comportent tous plusieurs feuilles excel en objet inséré. Suis un classeur excel, qui doit regrouper les informations, jour par jour, d'une seule de ces feuilles.
L'idée serait d'ouvrir un à un les fichiers word, d'y rechercher la feuille en question puis de copier et de coller dans le classeur.
Jusqu'à présent, ma macro propose de choisir un répertoire (celui de l'année) puis extrait le nom de tous les fichiers word, triés par mois. Pour vous donner une idée de la tâche, mes archives commencent en 2002...en gros 4200 fichiers word à ouvrir!
Ensuite, j'appelle extract:
Code:
Sub Extract(fichier As String)
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("word.application")
wWrdApp.Visible = False
Set WordDoc = WordApp.Documents.Open(fichier)
'?????????????????????????
WordDoc.Close
WordApp.Quit
End Sub
et c'est là où ça coince. Il me semble comprendre qu'il me faille passer par OLEFormat et autres fonctions sur les objets, mais je n'y connais rien dans le domaine et la doc est ardue.
Auriez vous une piste à me proposer pour trouver la bonne feuille excel insérée (elle est systématiquement précédée du titre "TIME ANALYSIS" suivi d'un retour chariot et d'un sous titre, variable celui là...), de l'ouvrir pour y copier la deuxième colonne et de coller dans excel?