Export word vers excel

Salut,


Je dois développer une petite application qui à partir d'un document word de nom "Validation manual" comportant entre autre un formulaire composé de 4 champs de saisie (CTestReference, CDetails, CTestStatus, CDate) les exporte vers un tableau excel.

J'ai essayé d'adapté un application déjà développé par un intervenant sur ce site courant mars, mais je bute systématiquement sur un message d'erreur 'Erreur compilation, sur la variable Fich as Worksheet

Mon formulaire est dans un fichier portant le nom 'Validation Manual.doc sous un répertoire D:\Validation\

J'aimerais que mon fichier excel porte le nom Cumul resultat.xls toujours sous le même répertoire D:\Validation\


Quelqu'un pourrais t'il me venir en aide ?

========================================================================

Pour information je joins en copie une une solution déjà prposée pour un sujet proche, et que j'ai été incapable de modifier correctement d'où mes erreurs de compilation.

Sub Import_resultats()
'
' le 30/04/2008

chemin = "D:\Validation\Cvi3\"

Dim Fich As Worksheet 'ERREUR de compilation
Set Fich = ThisWorkbook.Worksheets("All_Clients")
chemin = "D:\Validation\"
mesfichiers = Dir(chemin & "*.doc")
Dim Variables As Variant
Variables = Array("CTestReference", "CDetails", "CTestStatus", "CDate")

nb_Champs = 4
num_row = 1
i = 0

For i = 0 To nb_Champs - 1
Fich.Cells(num_row, i + 1) = Variables(i)
Next i

Set FichierWord = CreateObject("word.application")
FichierWord.Visible = True
FichierWord.DisplayAlerts = False

Do While mesfichiers <> ""
If mesfichiers <> "." And mesfichiers <> ".." And mesfichiers <> "clients.doc" Then
monDocument = chemin & mesfichiers
FichierWord.Documents.Open FileName:=monDocument, ReadOnly:=True
num_row = num_row + 1
num_col = 1
For i = 0 To nb_Champs - 1
Fich.Cells(num_row, i + 1) = FichierWord.ActiveDocument.FormFields(Variables(i)).Result
Next i
FichierWord.Documents.Close (0)
End If
mesfichiers = Dir
Loop
FichierWord.Quit

End Sub
=======================================================================

MERCI D'AVANCE TOUTE AIDE SERA BIEN VENUE