Microsoft 365 Sélectionner un ou plusieurs onglets à exporter au format PDF

pat66 · Jeudi à 07:03

Bonjour le forum,

J'utilise cette macro pour exporter au format PDF, le problème c'est que je dois préciser les feuilles à exporter dans la macro

Est t'il possible de pouvoir choisir la ou les feuilles à exporter avant l'exécution de la macro ?

merci beaucoup

TooFatBoy · Jeudi à 14:11

Hi,

pat66 à dit:
Est-il possible de pouvoir choisir la ou les feuilles à exporter avant l'exécution de la macro ?

VB:

Private Sub Worksheet_Activate()
    ActiveSheet.ListBox1.Clear
    For Each Feuille In ThisWorkbook.Sheets
        If Feuille.PageSetup.PrintArea <> "" Then ActiveSheet.ListBox1.AddItem Feuille.Name
    Next
End Sub

cf PJ.

TooFatBoy · Hier à 22:53

Je vois que tu utilises 365, donc on doit pouvoir faire quelque chose de plus pratique à utiliser que la liste que j'ai proposée.
On doit pouvoir utiliser un tableau structuré avec des cases à cocher, ou quelque chose comme ça.

Phil69970 · Hier à 23:41

Bonjour à tous

@pat66
A la bourre je te propose ce fichier tout est paramétrable et presque tout est automatique
==> Tu vas sur la feuille ""Param"
==> Tu cliques dans la colonne "Choix PDF" sur les feuille que tu veux avoie en PDF
==> Tu choisis le sens de la chaque feuille dans une liste déroulante colonne "Orientation"
==> Tu choisis dans la cellule jaune par une liste déroulante si tu veux 1 PDF par feuille ou X feuille dans 1 seul PDF
==> Tu cliques sur PDF
Plus simple c'est dur ....
Merci de ton retour

pat66 · Aujourd'hui à 09:13

Phil69970 à dit:
Bonjour à tous

@pat66
A la bourre je te propose ce fichier tout est paramétrable et presque tout est automatique
==> Tu vas sur la feuille ""Param"
==> Tu cliques dans la colonne "Choix PDF" sur les feuille que tu veux avoie en PDF
==> Tu choisis le sens de la chaque feuille dans une liste déroulante colonne "Orientation"
==> Tu choisis dans la cellule jaune par une liste déroulante si tu veux 1 PDF par feuille ou X feuille dans 1 seul PDF
==> Tu cliques sur PDF
Plus simple c'est dur ....
Merci de ton retour

Bonjour le forum,
Bonjour le fil,

Phil69970,
ta proposition est très intéressante, il y a t'il moyen de ne pas effacer systématiquement l'orientation lorsqu'on revient sur Param

merci

Phil69970 · Aujourd'hui à 14:15

@pat66

Voici la version V2
==> sans effacer les infos sur l'orientation de chaque feuille

Merci de ton retour

Microsoft 365 Sélectionner un ou plusieurs onglets à exporter au format PDF

pat66

XLDnaute Impliqué

Pièces jointes

TooFatBoy

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

pat66

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Microsoft 365 Sélectionner un ou plusieurs onglets à exporter au format PDF

pat66

XLDnaute Impliqué

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Phil69970

XLDnaute Barbatruc

Pièces jointes

pat66

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency