Sujet Précédent Sujet Suivant

VBA exporter certains onglets EXCEL en plusieurs PDF

Fermé
easyel2511818 Messages postés 3 Date d'inscription jeudi 6 mai 2021 Statut Membre Dernière intervention 7 mai 2021 - 6 mai 2021 à 17:46
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 7 mai 2021 à 16:40
Bonjour,

J'ai fait quelques recherches sur le site mais je n'ai pas trouvé.
J'ai un classeur EXCEL avec plusieurs onglets, je souhaiterai avoir le code pour transformer certains onglets et pas tous en plusieurs PDF. J'aimerai que ceux-ci s'enregistrent au nom de l'onglet avec la date car souhaiterai faire une extraction chaque semaine sans que cela n'écrase les anciennes extractions. merci d'avance pour votre aide.
A voir également:

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
6 mai 2021 à 19:02
Bonjour,

comme ceci: 

Option Explicit
Sub pdfUnique()
Dim chemin As String
Dim nom As String
Dim DateExtraction
  nom = InputBox("Feuille à enregistrer", "Enregistrer en PDF", "Feuil1")
    chemin = ThisWorkbook.Path & "\" ' dans le même dossier que ce classeur
     DateExtraction = Format(Now(), "dd-mm-yyyy")
Sheets(nom).Select
     ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=chemin & nom & "_" & DateExtraction & ".pdf", _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=True
End Sub


Voilà
0
easyel2511818 Messages postés 3 Date d'inscription jeudi 6 mai 2021 Statut Membre Dernière intervention 7 mai 2021
7 mai 2021 à 10:41
Bonjour Merci , cela fonctionne très bien, mais je souhaiterai sur mes 10 onglets en sélectionner seulement 8 à transformer en 8 pdf et j'aimerai avoir la date d'extraction et le nom de mon onglet.

Bien cordialement
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > easyel2511818 Messages postés 3 Date d'inscription jeudi 6 mai 2021 Statut Membre Dernière intervention 7 mai 2021
7 mai 2021 à 10:57
C est ce que fait cette macro!
0
easyel2511818 Messages postés 3 Date d'inscription jeudi 6 mai 2021 Statut Membre Dernière intervention 7 mai 2021 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
7 mai 2021 à 13:15
Alors j'ai fait une erreur,

Ci dessous le "_" me marque erreur de compilation caractère incorrect

Filename:=chemin & nom & "_" & DateExtraction & ".pdf", _
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > easyel2511818 Messages postés 3 Date d'inscription jeudi 6 mai 2021 Statut Membre Dernière intervention 7 mai 2021
7 mai 2021 à 16:13
Cela fonctionne chez moi.

Supprime le et voir si le nom de l'onglet est valide
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729 > cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024
7 mai 2021 à 16:40
Voici un exemple de ce que l'on peut faire:

https://www.cjoint.com/c/KEhoNZ4Foo1

@+ Le Pivert
0