Export PDF Partiel

Bonjour,

Actuellement je fais un PDF de ma fiche journalière d'une façon simple, avec une sélection simple et une macro PDF

Sub SavePDF_Selection()

Selection.ExportAsFixedFormat Type:=xlTypePDF, _

OpenAfterPublish:=True

End Sub

Sauf que maintenant j'aimerai pouvoir exporter mon PDF mais n'avoir que certaines des colonnes dans l'export (Genre j'ai la date, les vendeurs, l'heure des devis, la durée des devis...) et j'aimerai pouvoir faire un export uniquement que de la date, des vendeurs, du CP...

Est ce possible ?

Merci d'avance

Bonjour,

Il suffit de masquer les colonnes que tu ne souhaites pas en début de macro et

les réafficher en fin de macro :

Worksheets("Feuil1").Range("A:A,D:D,E:E,G:G").EntireColumn.Hidden = true
......
......
.....
Worksheets("Feuil1").Range("A:A,D:D,E:E,G:G").EntireColumn.Hidden = False

(exemple avec colonne A D E G)

Merci de ta réponse rapide.

Est ce que je peux mettre quelque chose du genre 'activeworksheet" pour que je n'ai pas à remodifier le macro à chaque fois ? Il sera sur plusieurs feuilles avec des noms différents.

J'ai réussi, merci beaucoup pour ton aide !

Nicolasvalot71 a écrit :

J'ai réussi, merci beaucoup pour ton aide !

bravo à toi, pour la question précédente je pense que tu cherchais plutôt :

With Activesheet
…...
end with

Sub SavePDF_Selection()

ActiveSheet.Range("C:C,D:D,F:F,K:K,L;L,R:R,S:S,U:U").EntireColumn.Hidden = True

Selection.ExportAsFixedFormat Type:=xlTypePDF, _

OpenAfterPublish:=True

ActiveSheet.Range("C:C,D:D,F:F,K:K,L;L,R:R,S:S,U:U").EntireColumn.Hidden = False

End Sub

Jusqu'à 15h mon code marche bien mais la il me met une erreur 1004 et je n'arrive pas à l'enlever

Bonjour,

J'ai mis ceci

et il me dis Membre de méthode ou de données introuvable / erreur de compilation

Sub SavePDF_Selection()

With ActiveSheet

Worksheets.Range("C:C,D:D,F:F,K:K,L;L,R:R,S:S,U:U").EntireColumn.Hidden = True

Selection.ExportAsFixedFormat Type:=xlTypePDF, _

OpenAfterPublish:=True

Worksheets.Range("C:C,D:D,F:F,K:K,L;L,R:R,S:S,U:U").EntireColumn.Hidden = False

End With

End Sub

Sub SavePDF_Selection()

Worksheets("Mars 2020").Range("C:C,D:D,F:F,K:K,L;L,R:R,S:S,U:U").EntireColumn.Hidden = True

Selection.ExportAsFixedFormat Type:=xlTypePDF, _

OpenAfterPublish:=True

Worksheets("Mars 2020").Range("C:C,D:D,F:F,K:K,L;L,R:R,S:S,U:U").EntireColumn.Hidden = False

End Sub

Bonjour,

Je ressaye mon code après 1 mois et j'ai toujours le même problème, erreur 1004 de VBA

Est ce que vous voyez ou ça peux pas aller ?

Cdt