XL 2016 Création d'un PDF non aboutie

bobafric · 22 Septembre 2022

Bonjour à tous,

A partir du tableau feuil1 je crée un tableau sur la feuil2 avec le bouton "sélection" et un pdf avec le bouton "PDF", j’ai toutes les lignes.

Comment grouper les deux commandes en une seule macro pour éviter le passage par la feuil2.

sylvanu · 22 Septembre 2022

Ca m'étonne, je n'ai pas touché à votre macro.
Testez cette PJ j'ai remis la macro dans le même module. Je l'ai testé et ça marche.

xUpsilon · 22 Septembre 2022

Bonjour,

Voir ci-joint, en cliquant sur Sélection les deux macros se déclenchent à la suite.
Il suffit de copier/coller le code du Module 2 dans le Module 1.
J'en ai profité pour faire un petit peu de nettoyage dans les "Select" à tout va.

Bonne journée,

sylvanu · 22 Septembre 2022

Bonjour Bobafric,
essayez de lancer cette macro à partir de la feuil1 :

VB:

Sub MasquerEtPdf()
    ' Masquer
    Columns("A:A").EntireColumn.Hidden = True
    Columns("C:H").EntireColumn.Hidden = True
    Columns("J:J").EntireColumn.Hidden = True
    ' Lancer impression PDF
    PDF
    ' Démasquer
    Columns("A:J").EntireColumn.Hidden = False
End Sub

Je ré-utilise votre macro PDF.

sylvanu · 22 Septembre 2022

Ou mieux peut être pour éviter d'avoir le bouton dans le PDF :

VB:

Sub MasquerEtPdf()
    ' Figer écran
    Application.ScreenUpdating = False
    With Sheets(1)
        ' Masquer bouton et colonnes
        .Shapes("Rectangle à coins arrondis 1").Visible = False
        .Columns("A:A").EntireColumn.Hidden = True
        .Columns("C:H").EntireColumn.Hidden = True
        .Columns("J:J").EntireColumn.Hidden = True
        ' Lancer impression PDF
        PDF
        ' Démasquer bouton et colonnes
        .Columns("A:J").EntireColumn.Hidden = False
        .Shapes("Rectangle à coins arrondis 1").Visible = True
    End With
End Sub

bobafric · 22 Septembre 2022

sylvanu à dit:
Bonjour Bobafric,
essayez de lancer cette macro à partir de la feuil1 :

VB:

Sub MasquerEtPdf() ' Masquer Columns("A:A").EntireColumn.Hidden = True Columns("C:H").EntireColumn.Hidden = True Columns("J:J").EntireColumn.Hidden = True ' Lancer impression PDF PDF ' Démasquer Columns("A:J").EntireColumn.Hidden = False End Sub

Je ré-utilise votre macro PDF.

Désolé sylvanu mais ça coince à partir de l'impression.
Il y a une erreur de compilation, Sub ou Function non définie

sylvanu · 22 Septembre 2022

Ca m'étonne, je n'ai pas touché à votre macro.
Testez cette PJ j'ai remis la macro dans le même module. Je l'ai testé et ça marche.

bobafric · 22 Septembre 2022

Nickel ça fonctionne pour upsillon et sylvanu
Merci à tous les deux

XL 2016 Création d'un PDF non aboutie

bobafric

XLDnaute Occasionnel

Pièces jointes

sylvanu

xUpsilon

XLDnaute Accro

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

bobafric

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

bobafric

XLDnaute Occasionnel

Discussions similaires

XL 2016 Création d'un PDF non aboutie

XLDnaute Occasionnel

Pièces jointes

XLDnaute Accro

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency