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

Claudy · 7 Juillet 2017

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

kiki29 · 7 Juillet 2017

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

Code:

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 · 7 Juillet 2017

ok merci, j'essaie lundi!
Bon week

kiki29 · 8 Juillet 2017

Re, voir ici

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

Claudy

XLDnaute Accro

kiki29

XLDnaute Barbatruc

Claudy

XLDnaute Accro

kiki29

XLDnaute Barbatruc

Discussions similaires

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

Claudy

XLDnaute Accro

kiki29

XLDnaute Barbatruc

Claudy

XLDnaute Accro

kiki29

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency