Imprimer des fichiers PDF et donner le nombre de fichiers imprimés

Bonjour,

Voila mon problème.

Je veux imprimer tous les fichiers PDF d'un répertoire et qu'à la fin, une Msgbox affiche le nombre de fichiers qui a été imprimé.

Mais pas le nombre de fichiers dans le répertoire.

J'utilise ce code pour l'impression

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 ImprimerFichierPDF()
Dim x As Long, Chemin_Fichier As String, Nom_Fichier As String

Chemin_Fichier = "C:\Users\maison\Desktop\Nouveau dossier\"
x = FindWindow("XLMAIN", Application.Caption)
Nom_Fichier = Dir(Chemin_Fichier & "*.PDF")
'boucle nom de fichier PDF
Do While Nom_Fichier <> ""
ShellExecute x, "print", Chemin_Fichier & Nom_Fichier, "", "", 1
Nom_Fichier = Dir
Loop
End Sub

Mais je n'arrive pas à compter le nombre de fichiers imprimés...

Avez vous une idée ?

Merci de votre aide

Amicalement

Christophe

Bonjour

Il suffit de créer une variable avant la boucle et de l'incrémenter après le shellexcute

Tu affiches sa valeur à la fin de la boucle...

Bonsoir

Simple pourtant

Sub ImprimerFichierPDF()
  Dim x As Long, Chemin_Fichier As String, Nom_Fichier As String
  Dim NbFic as Integer

  Chemin_Fichier = "C:\Users\maison\Desktop\Nouveau dossier\"
  x = FindWindow("XLMAIN", Application.Caption)
  Nom_Fichier = Dir(Chemin_Fichier & "*.PDF")
  NbFic = 0
  'boucle nom de fichier PDF
  Do While Nom_Fichier <> ""
    ShellExecute x, "print", Chemin_Fichier & Nom_Fichier, "", "", 1
    NbFic = NbFic + 1
    Nom_Fichier = Dir
  Loop
  MsgBox "Vous avez imprimé " & NbFic & " fichier(s)"
End Sub

Edit : Salut 78chris

Bonjour,

Merci pour la rapidité

Bonne journée