XL 2016 Enregistrement en pdf pour envoi par mail

filouplatchaud

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonjour,
Evite les 'select', ça ralenti les codes.
VB:
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
 

Discussions similaires

Réponses
1
Affichages
1 K
Compte Supprimé 979
C

Statistiques des forums

Discussions
311 725
Messages
2 081 949
Membres
101 851
dernier inscrit
vaiata