Dites ? J'en reviens à mon mouton là <!-- s:D --><img src="{SMILIES_PATH}/biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D --> 
Le bout de code que j'ai récupérer permet d'importer dans un tableau excell les champs contenu dans les fichiers word placés dans un dossier défini. C'est cool. Par contre si un des fichier word ne contiens pas tous les champs mentionés dans le code ==&gt; erreur et stop la moulinette  <!-- s:-( --><img src="{SMILIES_PATH}/sad.gif" alt=":-(" title="Sad" /><!-- s:-( --> 

 Est-ce que vous pensez qu'il est possible de mettre une condition genre si pas de variables passer au .doc suivant ?

Sans abuser de votre temps bien sûr  <!-- s:-) --><img src="{SMILIES_PATH}/smile.gif" alt=":-)" title="Smile" /><!-- s:-) --> 

[quote:367e0]Sub import_client()
Dim Fich As Worksheet
Set Fich = ThisWorkbook.Worksheets(&quot;All_Clients&quot;)
chemin = &quot;e:\tutorielrecupinfo\&quot;
mesfichiers = Dir(chemin &amp; &quot;*.doc&quot;)
Dim Variables As Variant
Variables = Array(&quot;CNom&quot;, &quot;CContact&quot;, &quot;CWeb&quot;, &quot;CEmail&quot;, &quot;CVille&quot;, &quot;CIdClient&quot;, &quot;CLoginClient&quot;)

nb_Champs = 7
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(&quot;word.application&quot;)
FichierWord.Visible = True
FichierWord.DisplayAlerts = False

Do While mesfichiers &lt;&gt; &quot;&quot;
  If mesfichiers &lt;&gt; &quot;.&quot; And mesfichiers &lt;&gt; &quot;..&quot; And mesfichiers &lt;&gt; &quot;clients.doc&quot; Then
    monDocument = chemin &amp; 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
[/quote:367e0]

Merki d'avance