Enregistrer word avec macro en pdf ?
bonnandr
Messages postés
35
Statut
Membre
-
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour, j'ai une macro qui me permet d'enregistrer un formulaire. J'aimerais pour des raisons de sécurité que le document enregistré ne soit pas modifiable (PDF ....).
Voici ma macro :
ActiveDocument.SaveAs Filename:="C:\Users\xxxxx wwww\Desktop/xxxx/xxxxx" & _
Format(Now, "ddmmyyhhmm") & ".Doc"
Merci.
Voici ma macro :
ActiveDocument.SaveAs Filename:="C:\Users\xxxxx wwww\Desktop/xxxx/xxxxx" & _
Format(Now, "ddmmyyhhmm") & ".Doc"
Merci.
1 réponse
-
Bonjour,
Pour enregistrer un doc word (version < 2007), vous devez avoir préalablement installé une imprimante virtuelle pdf. Un exemple.
Ensuite, votre macro va utiliser cette "imprimante" pour enregistrer en pdf votre doc word comme ceci :
Dim imprimante As String imprimante = ActivePrinter ActivePrinter = "Adobe PDF" 'ou le nom de votre imprimante virtuelle Application.PrintOut FileName:="" ActivePrinter = imprimante
Code enregistré grâce à l'enregistreur de macro
