Bonjour,
 
je cherche une macro pour convertir des documents Office (Word, Excel, etc) Xp pro en Office 97 à partir d'un répertoire donné.
 
J'ai ce bout de code mais à part la fenetre "oui/non" je n'ai rien d'autre.
 
Sub test()
 
' Test Macro
' Macro créée le 16/03/2006 par std
'
Dim Reponse, Fichier As String
    Reponse = MsgBox("Etes vous sûr de vouloir la lancer ?", 4)
    If Reponse = 7 Then Exit Sub
On Error Resume Next
    ChangeFileOpenDirectory "D:\Temp\"
On Error GoTo 0
    Fichier = Dir("D:\Temp\*.doc" )
Do While Fichier < ""
    Documents.Open FileName:=Fichier, ConfirmConversions:=False, _
            ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
            PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
            WritePasswordTemplate:="", Format:=wdOpenFormatAuto
        ActiveDocument.SaveAs FileName:=Fichier, FileFormat:=111, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    ActiveDocument.Close
    Fichier = Dir
    Loop
End Sub
 
 
Merci.