Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1572 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro pour convertir en masse

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro pour convertir en masse

n°1326582
numrobis
Code ami: 0726-2419-2891
Posté le 16-03-2006 à 11:53:43  profilanswer
 

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.
 
 :hello:


---------------
- Feed-back - - Jeu du moment: J’ai un backlog monstre sur Switch - C'est moi Bananecafe
mood
Publicité
Posté le 16-03-2006 à 11:53:43  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Macro pour convertir en masse

 

Sujets relatifs
[MACRO VB] combox + variableExcel macro vb urgent
Excel : Fonction? Programmation ? Macro ? Help me Please !!!!Convertir Chaine de caractères vers hexa
Modification de données dans un tableau à l'aide d'une macroProgrammation Macro touches de clavier
Code pour Macro sous ExcelMacro sous Outlook pour récupérer adresse
[resolu] Convertir un entier en chaine représentant sa valeur hexaMacro Automatique Sous Visio
Plus de sujets relatifs à : Macro pour convertir en masse


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR