Imprimer des PDF dans un dossier (+/- 400)

[Claudy]

Bonjour,
est il possible via le vba, d'imprimer des pdf contenus dans un dossier?
Merci d'avance
Claudy

 

[kiki29]

Salut, via Liste des fichiers d'un dossier
puis en balayant cette liste via qqch comme ceci :

Sub Impression()
Dim sChemin As String
Dim hwnd As Long, i As Long
Dim LastRow As Long
  LastRow = ShParam.Range("B" & Rows.Count).End(xlUp).Row
  For i = RDepart To LastRow
  sChemin = ShParam.Range("A1") & "\" & ShParam.Range("B" & i)
  ShellExecute hwnd, "Print", sChemin, "", "", 1
  Application.StatusBar = i
  Next i
End Sub

 

[Claudy]

ok merci, j'essaie lundi!
Bon week

 

[kiki29]

Re, voir ici