Code impression 2fichier PDF mais 1seul fichier sort

Bonjour le forum

J'ai un soucis avec mon code impression ci-dessous.

Je ne sais pas si je l'ai mal adapté mais pour mois il devrai éditer les fichiers spécifié.

Au finish, je vois qu'un seul fichier est édité.

Quelqu'un pour m'aider comme d'habitude svp.

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Imprimer_Fichier_PB()
    Dim NomFichier As String
    Dim x As Long

    x = FindWindow("XLMAIN", Application.Caption)
    NomFichier = "C:\SGIIOC\conditions générales PB1.pdf"
    NomFichier = "C:\SGIIOC\conditions générales PB2.pdf"

    ShellExecute x, "print", NomFichier, "", "", 1
End Sub

Bonjour,

il n'en sort qu'un car tu change la variable avec le nom du fichier avant de lancer l'impression du coup il ne prend en compte que le dernier nom.

Essais ceci :

Option Explicit

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub Imprimer_Fichier_PB()
    Dim NomFichier As String
    Dim x As Long

    x = FindWindow("XLMAIN", Application.Caption)
    NomFichier = "C:\SGIIOC\conditions générales PB1.pdf"
    ShellExecute x, "print", NomFichier, "", "", 1

    NomFichier = "C:\SGIIOC\conditions générales PB2.pdf"
    ShellExecute x, "print", NomFichier, "", "", 1
End Sub

Cordialement,

Merci pour ta solution magique.

Suis satisfait et te remercie grandement.