Imprimer un fichier excel en pdf mais en plusieurs documents + les renommer diff
Jen
-
Jen -
Jen -
Bonjour,
Dans le cadre de mon travail, je dois imprimer des factures en pdf mais j'aimerais qu'une macro m'imprime séparément chaque document et les renomme avec un titre imposé?
Comment puis-je le faire svp? Je suis totalement novice en la matière.
D'avance, un tout grand merci
Dans le cadre de mon travail, je dois imprimer des factures en pdf mais j'aimerais qu'une macro m'imprime séparément chaque document et les renomme avec un titre imposé?
Comment puis-je le faire svp? Je suis totalement novice en la matière.
D'avance, un tout grand merci
5 réponses
-
-
Bonjour Carol,
Merci pour l'info. En fait, j'aurai bien voulu que cela ce génère automatiquement à un endroit désiré avec le nom souhaité. Et ne pas devoir modifier via une autre application mon fichier -> la création d'une macro. -
Bonjour,
les factures sont dans le même classeur ou une facture par classeur?
-
Bonjour,
Actuellement j'ai un classeur avec toutes mes factures mais je souhaiterais obtenir des différents pour chaque client et faire en sorte que le pdf se renomme en même temps.
Merci-
Voir ceci tout d'abord:
https://www.excel-pratique.com/fr/astuces_vba/activer_les_macros
En vba faire Alt F11 pour accéder à l'éditeur.
Dans le ruban: Inserer Module
Mettre ce code qui enregistre toutes les feuilles en PDF sous le nom de l'onglet dans le même dossier que ce classeur
Option Explicit Dim nom, chemin As String Dim sh As Worksheet Sub Save_onglet() Application.ScreenUpdating = False 'Boucle sur toutes les feuille de calcul du classeur. Les onglets graphiques ne sont pas pris 'en compte. 'ThisWorkbook correspond à l'objet classeur contenant la macro For Each sh In ThisWorkbook.Worksheets nom = sh.Name Sheets(nom).Select Save_pdf Next Application.ScreenUpdating = True End Sub Private Sub Save_pdf() chemin = ActiveWorkbook.Path & "\" 'chemin du dossier destination à adapter ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ chemin & nom & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False ' MsgBox "Enregistrer" 'on peut supprimer End Sub
enregistrer ce classeur sous: classeur prenant en charge les macros
Ensuite pour lancer la macro mettre le curseur sur Save_onglet et appuyer sur F5 du clavier
Voilà
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
