XL 2010 Création 2 colonnes PDF du tableau excel

[bobafric]

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

 

[sylvanu]

Bonsoir Bobafric,
Un essai en PJ avec :

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

 

[bobafric]

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]

Re,
Ce n'est que de l'enregistreur de macro, un peu bidouillé.

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]

Re,
Ce n'est que de l'enregistreur de macro, un peu bidouillé.

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