ouvrir plusieurs docs avec vbscriptRésolu

Question

Bonjour,

voil&#224; j'ai besoin de cr&#233;er une macro sous word qui ouvrirait tous les *.doc d'un r&#233;pertoire et les convertirait en PDF.
J'ai fait une macro mais je ne sais pas lui dire d'ouvrir tous les fichiers du r&#233;pertoire donc je l'ai fait pour 2 fichiers. Voici le code :

    ChangeFileOpenDirectory "D:\Data\MAPC-PDF"
    Documents.Open FileName:="""bulletin MAPC13413-M2806.doc""", _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto
    ActivePrinter = "Adobe PDF"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    ActiveDocument.Close
    Documents.Open FileName:="""bulletin Mapc14200.doc""", ConfirmConversions _
        :=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        Collate:=True, Background:=True, PrintToFile:=False, PrintZoomColumn:=0, _
        PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
    ActiveDocument.Close
End Sub

si quelqu'un peut me dire comment faire (boucle ou autre...), merci d'avance
Laure

jef_b · Accepted Answer

Hello !



Ca devrait pouvoir t'aider !



Tout d'abord, ajoute comme r&#233;f&#233;rence (menu outils - r&#233;f&#233;rences) la biblioth&#232;que Microsoft Scripting Runtime.

Ensuite test ce petit bout de code...

Je te laisse faire le reste ! 



Dim fso as new FileSystemObject

Dim fichier As File

' r&#233;cup&#233;ration des fichiers contenus dans le r&#233;pertoire c:\

For Each fichier In fso.GetFolder("c:").Files

    ' affichage du type de fichier (on peut aussi imaginer faire un test sur l'extension directement)

    ' peut etre un peu plus propre... A toi de voir !

    debug.print fichier.Type

Next


Voil&#224;, si tu as besoin de plus d'infos, n'h&#233;site pas !


Jef

Fosfora · Answer

merci beaucoup !

mais comme je suis vraiment une "bille" en programmation (c'est pas du tout mon job!), peux-tu me dire o&#249; je dois mettre ce petit bout de code...??? 

merci
Laure

jef_b · Answer

Re !!



Bien sur !!! 


' tu te positionnes dans le bon r&#233;pertoire



String monRepertoire = "D:\Data\MAPC-PDF" ' petite variable pour ne pas retaper inutilement les memes choses !


ChangeFileOpenDirectory monRepertoire




Dim fso As New FileSystemObject

Dim fichier As File

' r&#233;cup&#233;ration des fichiers contenus dans le r&#233;pertoire monRepertoire

For Each fichier In fso.GetFolder(monRepertoire).Files

    If InStr(1, fichier.Name, ".doc", vbTextCompare) <> 0 Then

        ' si le fichier poss&#233;de l'extension .doc

                

        ' on fait ton petit traitement

        Documents.Open FileName:=fichier.Name, _

           
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _

            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _

           
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _

            wdOpenFormatAuto

        ActivePrinter = "Adobe PDF"

        Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _

           
wdPrintDocumentContent, Copies:=1, Pages:="",
PageType:=wdPrintAllPages, _

           
Collate:=True, Background:=True, PrintToFile:=False,
PrintZoomColumn:=0, _

           
PrintZoomRow:=0, PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

    

        ActiveDocument.Close

    End If

Next




set fso = nothing




Voila, je pense que &#231;a devrait aller !!! 



Bon courage ! 
Jef

Fosfora · Answer

je te remercie beaucoup...

je vais tester tout &#231;a...

Laure

Fosfora · Answer

youpi &#231;a marche !!!! 

je te remercie beaucoup pour ton aide...

j'aurai encore une question en fait : sur certains documents word, il demande "voulez-vous enregister les modifs apport&#233;es?" lorsqu'on les ferme ? y a t'il moyen de lui d&#233;finir "non" par d&#233;faut dans le code ?

merci
Laure

jef_b · Answer

l&#224; tu aurais pu trouver quand m&#234;me !!! 

Lors que tu fermes le fichier, tu indiques que tu veux le fermer sans enregistrer les modifs.

On obtient donc :



ActiveDocument.close SaveChanges:=wdDoNotSaveChanges



o&#249; wdDoNotSaveChanges est la constante indiquant qu'on ne veut pas enregistrer les modifications apport&#233;es !



Bon courage pour la suite, 

Et pour l'aide ; y'a pas de quoi !!! 
Jef

Fosfora · Answer

super ! 
tout fonctionne je suis super contente !!!

et encore merci, merci et merci 

Laure

Ouvrir plusieurs docs avec vbscript

7 réponses

Discussions similaires