XL 2016 Enregistrement en pdf pour envoi par mail

[filouplatchaud]

Re bonjour le Forum

j'ai une facture au format excel
j'ai une macro pour enregistrer en PDF pour sauvegarder et envoyer par mail
ça fonctionne très bien sauf que sur ma feuille excel j'ai ma facture et a coté j'ai un petit tableau mais je voudrai que ce tableau ne soi pas sur mon Pdf
voici ma macro

Sub Pdf()
'
' Pdf Macro
'

ChDir "P:\Filou\Factures-2017\Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\Filou\Factures-2017\Pdf\" & Range("C9") & ("-") & Format(Date, "dd-mmm-yyyy")

End Sub

il y a t'il un moyens pour enregistrer juste ma facture ?

 

[DoubleZero]

Bonjour, filouplatchaud, le Forum,

Avant l'enregistrement en PDF, il suffirait, sans doute, de masquer les colonnes où se trouvent le "petit tableau". Ne pas hésiter à utiliser l'enregistreur de macro pour en connaître la syntaxe.

Avant "End Sub", rendre toutes les colonnes visibles.

A bientôt 🙂

 

[filouplatchaud]

Merci je vais essayer Apres le service

 

[kiki29]

Salut, faire ta mise en page en conséquence avant l'enregistrement du pdf

 

[filouplatchaud]

J'ai essayé ça marche merci

 

[filouplatchaud]

la méthode de DoubleZéro

 

[filouplatchaud]

Columns("H:I").Select
Selection.EntireColumn.Hidden = True
ChDir "P:\Filou\Factures-2017\Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\Filou\Factures-2017\Pdf\" & Range("C9") & ("-") & Format(Date, "dd-mmm-yyyy")
Columns("H:I").Select
Selection.EntireColumn.Hidden = False
Range("C11").Select

Voila ma formule ça masque les colonnes enregistre en Pdf et Démasque les Colonnes

merci a tous

 

[cp4]

Bonjour,
Evite les 'select', ça ralenti les codes.

Columns("H:I").EntireColumn.Hidden = True
ChDir "P:\Filou\Factures-2017\Pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"P:\Filou\Factures-2017\Pdf\" & Range("C9") & ("-") & Format(Date, "dd-mmm-yyyy")
Columns("H:I").EntireColumn.Hidden = False
Range("C11").Select

edit: 00, kiki29🙂 Bonjour