Discussion :

[NoobProg]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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 ?

[kiki29]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[NoobProg]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[NoobProg]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

marche nickel par contre l'inverse me met une

utilisation incorrecte de la propriété

à savoir cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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