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.
---------------
- Feed-back - - Jeu du moment: J’ai un backlog monstre sur Switch - C'est moi Bananecafe