VBA exporter certains onglets EXCEL en plusieurs PDF

easyel2511818 Messages postés 3 Statut Membre -  
cs_Le Pivert Messages postés 8437 Statut Contributeur -
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 8437 Statut Contributeur 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 Statut Membre
 
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 8437 Statut Contributeur 729 > easyel2511818 Messages postés 3 Statut Membre
 
C est ce que fait cette macro!
0
easyel2511818 Messages postés 3 Statut Membre > cs_Le Pivert Messages postés 8437 Statut Contributeur
 
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 8437 Statut Contributeur 729 > easyel2511818 Messages postés 3 Statut Membre
 
Cela fonctionne chez moi.

Supprime le et voir si le nom de l'onglet est valide
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729 > cs_Le Pivert Messages postés 8437 Statut Contributeur
 
Voici un exemple de ce que l'on peut faire:

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

@+ Le Pivert
0