Copie d'info via des dossier word

Salut les copains. Alors voilà je dois crée un base de données, et j'ai toute les infos dans des fichiers word. J'ai donc regarder à gauche et à droite pour crée une macro assez efficace pour récupérer tout les données dans notre tableur préféré. Malheureusement j'ai une erreur 424 (méthode objet pas bonne)

Si vous pouviez m'indiquer où dans mon code ce situe le problème, cela serait ma foi fort sympathique.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Essai()   Dim q As Integer q = 1   Set WordApp = CreateObject("word.application") WordApp.Visible = False For i = 2004 To 3200 'Boucle pour ouvrir tout les fichier word If ExisteFichier("Dossier Test Macro Nico\BDD\" & i & ".doc") Then 'Macro pour vérifier l'existence du fichier WordDoc = WordApp.Documents.Open("\Dossier Test Macro Nico\BDD\" & i & ".doc") Range("A" & q) = WordDoc.Tables(5).Cells(3, 1) q=q+1 End If Next   End Sub     Public Function ExisteFichier(S As String) As Boolean 'petite macro trouvez sur le web pour vérifier l'existence d'un fichier Dim tatiak As Object Set tatiak = CreateObject("Scripting.FileSystemObject") ExisteFichier = tatiak.FileExists(S) End Function

---

Merci d'avance :D

J'avais oublié de préciser que le souci se situe ligne 12. La macro n'a pas de mal à ouvrir le fichier word. Et j'ai bien vérifier où se situait l'info sur le doc word.

Alors dois je préciser quelle type d'info j'importe ?

Salut, voir peut-être ceci http://www.developpez.net/forums/d10...s-tables-word/ qui semble en relation avec ce que tu cherches à faire

Sinon pour l'existence d'un fichier

Code:

---

1 2 3

Private Function ExistenceFichier(sFichier As String) As Boolean ExistenceFichier = Dir$(sFichier) <> "" End Function

---

Hé bien à dire vrai si je met les codes suivants :

Code:

---

1 2	Dim WordApp As New Word.Application Dim WordDoc As Word.Document

---

Le compilateur plante. Je suppose que le problème viens de là, vu que je ne déclare pas mon "WordDoc". Serai un souci de la version excel 2003 ? Je devrais peut être passer à excel 2010.

Bref si quelqu'un passe dans le coin et pouvait me donner un petit coup de main :D

C'est bon j'ai du trouver la solution. La librairie word object avait été desactivé.

Suffisait de retourner dans outils/réference et cocher.

Bon allez je remonte mon topic, pour une petiote erreur un peu chiante.
Ma ligne de code

Code:

---

Range("A" & e) = WordDoc.Tables(5).Cell(3, 1)

---

marche nickel par contre l'inverse me met une

Citation:

---

utilisation incorrecte de la propriété

---

à savoir cette ligne :

Code:

---

WordDoc.Tables(5).Cell(3, 1) = Range("A" & e)

---