Discussion :

[lagondenoumea]

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

[Invité]

Bonjour

Le mieux est d'utiliser l'API ShellExecute, deux variantes :

http://excel.developpez.com/faq/inde...ion#ImprimePDF
http://access.developpez.com/faq/?page=Divers#Print_doc

Philippe