Bonjour,

Voici ma macro :

1) je souhaite sélectionner une feuille de mon classeur et l'imprimer : jusque là tout va bien
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 ....