bonjour,
 
j'ai fait ce code la en vba (je developpé une macro sous word 2003), qui doit parcourir des fichier dans repertoires et les enregister en format texte:
 
mais ça marche pas, je pense il y a une reference qui manque, merci pour votre aide.
[]
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
 
 
[/]

arrete de faire du multi post stp continue sur le précédent, sinon ca énerve tout le monde et tu vas avoir tes topics fermés par harkonnen

la suite ici :
http://forum.hardware.fr/hfr/Progr [...] 5123_1.htm