Macro d'export en PDF

[Akimadeus]

Bonjour à tous,

Je cherche à faire quelque chose qui vous paraitra sans doute simple, c'est simplement d'exporter mon classer en cours en pdf, pour l'enregistrer sous le même dossier que celui où se trouve ce classeur, avec le nom de fichier contenu dans la cellule C2.

En effet, je créé la macro que je vais mettre ci-dessous, l'exécute, elle fonctionne ! Mais si je referme mon classeur et le rouvre, elle ne fonctionne plus ! Comprends pas !

Sub PDF()
'
' PDF Macro
'

'
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=[C2].Value _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub



Quelqu'un saurait me corriger ?

Merci beaucoup !

 

[Akimadeus]

Re : Macro d'export en PDF

C'est good j'ai trouvé !

Si ça intéresse quelqu'un, j'ai fait comme ci-dessous :

chemin = ActiveWorkbook.Path
fichier = [C2].Value
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=(chemin & "\" & fichier) _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Application.DisplayAlerts = True
ThisWorkbook.Saved = True
Application.Quit