XL pour MAC modif par inputbox

[Delorme]

Bonjour à tous
passionné d'excel voudrais une aide pour cette macro qui permet d'émettre le contenu d'une feuille active en fichier pdf
je souhaiterais en effet la modifier
je voudrais pendant son exécution avoir la main soit en inputbox ou autre pour rentrer le nom du fichier que je choisirai a transferer en pdf

ex: dans la macro " feuille active .pdf" pouvant devenir exercice.pdf

Sub creerpdf()
'il faut creer un dossier sur le bureau appele "fichierpdf cree par vba"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
FileName:="/Users/midelorme/Desktop/fichier pdf cree par vba/feuilleactive.pdf", _
quality:=qualitystandard, includedocproperties:=True, _
ignoreprintareas:=False, openafterpublish:=False
End Sub
Merci d'avance
Michel

 

[fanch55]

Bonsoir,
Testez si le code ci-dessous fonctionne sur le Mac et si cela répond à votre attente :

Sub creerpdf()
Dim Dossier As String, Nom As String
    Dossier = "/Users/midelorme/Desktop/fichier pdf cree par vba/"
    Nom = InputBox("Entrer le nom de fichier à stocker dans" & vbLf & Dossier, "Export as Pdf", ActiveSheet.Name)
    If Nom <> "" Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Dossier & Nom & ".pdf", _
            quality:=qualitystandard, includedocproperties:=True, _
            ignoreprintareas:=False, openafterpublish:=False
    End If
End Sub

 

[Delorme]

Merci beaucoup
ca marche et ca répond a mon attente
michel