Bonsoir à toutes et à tous.
Voilà j'ai une petite appli excel qui me permet de transformer mes pages excel en PDF.
Mais je voudrais les imprimer toutes les feuilles pdf.
J'ai trouver ce code mais il ne fonctionne pas j'a i 'erreur suivante
Je joins le code ci-dessous
"Private Sub Imprimer_Click()
Dim FichierAImprimer As String
FichierAImprimer = "J:\ASPTT\APPLIS VELO\FICHES RE-ADHESION\FICHES .PDF" '<-- chemin complet du fichier à imprimer"
CreateObject("Shell.Application").Namespace(0).ParseName(FichierAImprimer).InvokeVerb ("Print")
End Sub"
Merci d'avance pour votre aide.