VBA exporter certains onglets EXCEL en plusieurs PDF

easyel2511818 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -  
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   -
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   Statut Contributeur Dernière intervention   729
 
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   Statut Membre Dernière intervention  
 
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   Statut Contributeur Dernière intervention   729 > easyel2511818 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
C est ce que fait cette macro!
0
easyel2511818 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   > cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention  
 
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   Statut Contributeur Dernière intervention   729 > easyel2511818 Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
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   Statut Contributeur Dernière intervention   729 > cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention  
 
Voici un exemple de ce que l'on peut faire:

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

@+ Le Pivert
0