Bonjour,
 
j'explique les finalités du projet:
 
1- J'ai un dossier qui contient 500 fichiers word, je veux les transformer (automatiquement) en fichier texte *.txt (texte brute)
2- Je veux parcourir les fichers texts crées et insérer le contenu du fichier texte dans une ligne d'un fichier excel "resultat.xls"
 
merci d'avance.  

Merci pour quoi ?

je comprend pas ce que tu dis si c pour delirer, j ai pas le temps pour ça

C'est pas complétement pour délirer  (mais un peu quand même !!!) ... c'est pour savoir ce que tu veux  
 - le code clé en main
 - une assistance sur un point particulier (lequel ?)
 - un avis général sur la façon de faire
 - un lien vers quelque chose qui ressemblerai à ce que tu veux
enfin je sais pas moi .... à toi nous le dire !!

dsl je t ai mal compris,
 
donc j'ai commencé à developper ce code sous VBA qui fonctionne pas et je crois que y a des references qui manque donc merci de m'aider
 
Sub Word()
Dim strFichier As String
Dim objWord As New Word.Application
 
'strFichier = "C:\ALGISI Didier.doc"
 
Dim FSO As New Scripting.FileSystemObject
Dim DossierSource As Scripting.Folder, SousDossier As Scripting.Folder
Dim fichier As Scripting.File
 
   ' Set FSO = Scripting.FileAttribute
    Set DossierSource = FSO.GetFolder("C:\Documents and Settings\Mourad-OUHIBI\Bureau\moez_projet\" )
     
    For Each fichier In DossierSource.Files
        ' ouvrir un document Word
        objWord.Documents.Open fichier
 
        ' rendre Word visible
        objWord.Visible = False
 
        ' Enregistrer en format texte brut
        objWord.ActiveDocument.SaveAs FileName:="c:\toto.csv", FileFormat:=wdFormatText, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=True, SaveAsAOCELetter:= _
        False, Encoding:=1256, InsertLineBreaks:=False, AllowSubstitutions:=False _
        , LineEnding:=wdCRLF, AddBiDiMarks:=False
 
 
        ' fermer le document
        objWord.Documents(1).Close
        ' quitter l'application Word
        objWord.Quit
 
        ' libérer la mémoire
        Set objWord = Nothing
 
    Next
 
End Sub

oui et donc ? c'est quoi le message d'erreur exact ?

c bon j'ai ajouté deux réfences, "runtime" et "ms word"
merci