Ouvrir et imprimer un pdf par macro
Bonjour,
Voici ma macro :
1) je souhaite sélectionner une feuille de mon classeur et l'imprimer : jusque là tout va bien
Code:
1
2
3
| Sheets("Devis MRH").Select
Range("A1:G72").Select
Selection.PrintOut Copies:=2, Collate:=True |
2) Mais maintenant je souhaite ouvrir et imprimer un fichier PDF dont je ne connais pas le chemin : tout ce complique !
Je suis partie de çà ;
Code:
1
2
3
4
5
6
| Sheets("DEVIS MRH").Select
Dim monwd As Object
Set monwd = CreateObject("Word.Application")
monwd.Visible = False
monwd.documents.Open Filename:=ThisWorkbook.Path & "\XXX.doc"
monwd.activedocument.PrintOut |
cela marche très bien pour word
Je l'ai transformé en çà :
Code:
1
2
3
4
5
6
| Sheets("Devis MRH").Select
Dim AcroRd32 As Object
Set AcroRd32 = CreateObject("AcroRd32.exe")
AcroRd32.Visible = False
AcroRd32.documents.Open Filename:=ThisWorkbook.Path & "\XXX.PDF"
AcroRd32.activedocument.PrintOut |
Je suppose que le monwd et le "word.application" sont à modifier ... Mais par quoi ?????
Merci pour vos réponses rapides c'est pour demain ....
