XL pour MAC modif par inputbox

Delorme

XLDnaute Occasionnel
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

XLDnaute Barbatruc
Bonsoir,
Testez si le code ci-dessous fonctionne sur le Mac et si cela répond à votre attente :
VB:
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
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
311 725
Messages
2 081 941
Membres
101 848
dernier inscrit
Djigbenou