Imprimer les fichiers d'un répertoire
Bonjour,
Je désire savoir s'il est possible en VBA d'imprimer les fichiers .PDF d'un répertoire ?
J'ai bien trouvé des macros qui font le boulot mais pas totalement.
Quand dans le répertoire il y a des fichiers avec des accents ou des caractères spéciaux, ces fichiers ne s'impriment pas. N'étant pas un pro d'excel je n'arrive pas à modifier le code. J'ai remarqué également que si l'extension est .PDF ou .pdf, ils ne sont pas tous imprimés
Merci de votre aide
Christophe
Bonsoir,
Une petite recherche sur Google et hop on tombe sur un code de l'excellent xorsankukai
https://forum.excel-pratique.com/excel/imprimer-plusieurs-fichiers-pdf-depuis-excel-vba-167240
A+
Merci pour la réponse.
Je teste dès que possible
Encore merci
Bonjour,
C'est parfait cela fonctionne bien
Merci
Bonjour,
je viens de développer cette macro, le ficher est bien imprimé, mais elle bloque sur la ligne
CreateObject("Shell.Application").Namespace(0).ParseName(Fichier).InvokeVerb ("Print")
Pourriez-vous me donner la solution,
D'avance merci
Cordialement
Bonne journée
Sub testfichier()
'
' testfichier Macro
'
Dim nomf As String
Sheets("Accueil").Select
ActiveSheet.Unprotect
commune = Range("B3").Value
Sheets("Imprim").Select
ActiveSheet.Unprotect
debut:
numero = Range("A1").Value
nomf = Range("B" & numero).Value
nbon = Range("C" & numero).Value
Fichier = (ThisWorkbook.Path & "\Bons\" & commune & "\" & nomf & " - " & nbon & ".pdf")
CreateObject("Shell.Application").Namespace(0).ParseName(Fichier).InvokeVerb ("Print")
If Len(Dir(Fichier)) > 0 Then
Range("A1").Value = Range("A1").Value + 1
Sheets("Imprim").Range("k" & numero) = Fichier
GoTo debut
Else
End If
End Sub