Imprimer PDF via Excel VBA

Salut salut !

C'est un sujet qui reviens fréquemment mais je n'arrive à l'appliquer à mon cas !

J'ai une liste de chemin en colonne A et une liste de nom de fichier ".pdf" en colonne B

Donc j'ai écrit le code ci-dessous :

Sub ImprimPDF()
Dim x As Long, a As Long
Dim way As String
x = Range("A" & Rows.Count).End(xlUp).Row
For a = 2 To x
    way = Cells(a, 1) & Cells(a, 2)
    ThisWorkbook.FollowHyperlink "" & way & ""
    'ici code pour impression
Next
End Sub

A partir de la, mes ".pdf" sont ouvert et il ne me reste plus qu'à les imprimer puis les fermer !

Mais quand je met un code permettant (normalement) l'impression d'un pdf ouvert, c'est la feuille de mon classeur Excel qui passe au format pdf puis est imprimé (donc ce que je veux pas du tout)

Merci d'avance pour votre aide

Bonjour à tous,

Est-ce que les chemins dans la colonne A se terminent par un "\" ?

Sinon, il faut écrire :way = Cells(a, 1) & "\" & Cells(a, 2)

ric

Merci pour ton aide !

J'ai adapté le code pour obtenir :

Sub ImprimerFichier()
Dim NomFichier As String
Dim x As Long, a As Long, f As Long
f = Range("A" & Rows.Count).End(xlUp).Row
x = FindWindow("XLMAIN", Application.Caption)
For a = 2 To f
    NomFichier = Cells(a, 1) & Cells(a, 2)
    ShellExecute x, "print", NomFichier, "", "", 1
Next
End Sub

Et sa fonctionne !

Le must serait que l'application Adobe se ferme après exécution mais l'impression est faite donc merci à toi