bonjour

je souhaite exporter une feuille de calcul en pdf en pouvant choisir le nom du fichier créé et son emplacement.

j'ai le code ci-dessous, mais la boite de dialogue se ferme sans pouvoir choisir l'emplacement et le nom.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub Exporte()
'
    Sheets("Donnees").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Isocinetisme\Desktop\Export.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

d'avance merci