Imprimer des fichiers PDF à partir d'Excel
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.
Bonjour,
Un petit lien utile , code à adapter
https://www.excel-pratique.com/fr/telechargements/utilitaires/pdf-email-vba-excel-no508
@+
Bonsoir BrunoM45
Merci pour le lien, mais je voudrais remplacer la partie envoi Email par impression multipages.
Merci d'avance.
Re,
L'envoi mail est une possibilité, il suffit de supprimer le code dans le fichier il y a 3 possibilités, dont celle qui t'intéresse
Bonjour BrunoM45.
Désolé mais j'ai oublié de te réponde.
Merci ton exemple fonctionne très bien.