Fonction PDF avec sélection cachée

Bonjour,

J'essaye de sortir un PDF d'une fiche journalière en sélectionnant les données qu'il me faut et en cachant certaines colones.

Sub SavePDF_Selection()

With ActiveSheet

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

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

End With

End Sub

J'ai ce code mais il me dis à chaque fois qu'il y à un problème de compilation ou erreur 1004. Je me tire les cheveux.

Merci d'avance si vous avez des pistes de correction

Bonjour,

à tester,

Sub SavePDF_Selection()
With ActiveSheet
  .Range("C:D,F:F,K:L,R:S,U:U").EntireColumn.Hidden = True
    Selection.ExportAsFixedFormat Type:=xlTypePDF
  .Range("C:D,F:F,K:L,R:S,U:U").EntireColumn.Hidden = False
End With
End Sub

Alors merci ça marche parfaitement.

Mais j'essaye de rajouter OpenAfterPublish en true mais il me met qu'il y à une erreur de syntaxe

re,

essai comme ça,

.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True

Sub SavePDF_Selection()

With ActiveSheet

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

.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True

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

End With

End Sub

merci

ça me le sort c'est bon mais par contre, même si je sélectionne que 3 ligne sur 100, ça me sort les 100 maintenant

re,

as-tu essayé avec le Selection

.Selection.ExportAsFixedFormat Type:=xlTypePDF, OpenAfterPublish:=True

erreur 438 propritété ou méthode non gérée par cet objet

et en plus quand j'ai fais la macro, ça m'a caché les colones dans ma feuille excel aussi