XL 2010 Création 2 colonnes PDF du tableau excel

bobafric

XLDnaute Occasionnel
Bonjour,

Je voudrai à l’aide d’une macro convertir plusieurs colonnes d’un tableau excel en pdf, exemple les colonnes B et G du tableau.

A l’aide d’un bouton (ou une commande ) on crée un PDF sans supprimer le tableau excel existant pour pouvoir modifier le tableau excel pour recréer un nouveau PDF.
Merci d'avance pour votre aide
 

Pièces jointes

  • Classeur1.xlsm
    9.6 KB · Affichages: 3
Solution
Re,
Ce n'est que de l'enregistreur de macro, un peu bidouillé.
VB:
Sub PDF()
    Columns("A:A").EntireColumn.Hidden = True    ' Masquage des colonnes A C D E F'
    Columns("C:F").EntireColumn.Hidden = True
    ' Lancement impression en PDF'
    Application.ActivePrinter = "Microsoft Print to PDF sur Ne02:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,2,""Microsoft Print to PDF sur Ne02:"",,TRUE,,FALSE)"
    ' Toutes les colonnes sont démasquées.'
    Columns("A:H").EntireColumn.Hidden = False
End Sub
ActivePrinter c'est la commande utilisée par Windows quand vous faites Imprimer avec l'imprimante "Microsoft Print to PDF". La syntaxe est donnée par l'enregistreur.

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Bobafric,
Un essai en PJ avec :
VB:
Sub PDF()
    Columns("A:A").EntireColumn.Hidden = True
    Columns("C:F").EntireColumn.Hidden = True
    Application.ActivePrinter = "Microsoft Print to PDF sur Ne02:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,2,""Microsoft Print to PDF sur Ne02:"",,TRUE,,FALSE)"
    Columns("A:H").EntireColumn.Hidden = False
End Sub
 

Pièces jointes

  • Classeur1 (9).xlsm
    15.8 KB · Affichages: 3

bobafric

XLDnaute Occasionnel
Salut Sylvanu et merci encore pour ton excellente solution en 8 lignes.

Je t’avoue que j’ai essayé de mon côté et que ma solution fait une trentaine de lignes et que j’y ai passé toute la journée. Pourrais-tu me traduire ton code ligne par ligne ? Si tu en as le temps !!

Merci encore
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,
Ce n'est que de l'enregistreur de macro, un peu bidouillé.
VB:
Sub PDF()
    Columns("A:A").EntireColumn.Hidden = True    ' Masquage des colonnes A C D E F'
    Columns("C:F").EntireColumn.Hidden = True
    ' Lancement impression en PDF'
    Application.ActivePrinter = "Microsoft Print to PDF sur Ne02:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,2,""Microsoft Print to PDF sur Ne02:"",,TRUE,,FALSE)"
    ' Toutes les colonnes sont démasquées.'
    Columns("A:H").EntireColumn.Hidden = False
End Sub
ActivePrinter c'est la commande utilisée par Windows quand vous faites Imprimer avec l'imprimante "Microsoft Print to PDF". La syntaxe est donnée par l'enregistreur.
 

bobafric

XLDnaute Occasionnel
Re,
Ce n'est que de l'enregistreur de macro, un peu bidouillé.
VB:
Sub PDF()
    Columns("A:A").EntireColumn.Hidden = True    ' Masquage des colonnes A C D E F'
    Columns("C:F").EntireColumn.Hidden = True
    ' Lancement impression en PDF'
    Application.ActivePrinter = "Microsoft Print to PDF sur Ne02:"
    ExecuteExcel4Macro _
        "PRINT(1,,,1,,,,,,,,2,""Microsoft Print to PDF sur Ne02:"",,TRUE,,FALSE)"
    ' Toutes les colonnes sont démasquées.'
    Columns("A:H").EntireColumn.Hidden = False
End Sub
ActivePrinter c'est la commande utilisée par Windows quand vous faites Imprimer avec l'imprimante "Microsoft Print to PDF". La syntaxe est donnée par l'enregistreur.
Merci à plus
 

Discussions similaires

Réponses
22
Affichages
1 K
Réponses
9
Affichages
259

Statistiques des forums

Discussions
311 711
Messages
2 081 792
Membres
101 817
dernier inscrit
carvajal