XL pour MAC modif par inputbox

Delorme · 10 Mai 2023

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 · 11 Mai 2023

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

Delorme · 12 Mai 2023

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

XL pour MAC modif par inputbox

Delorme

XLDnaute Occasionnel

fanch55

XLDnaute Barbatruc

Delorme

XLDnaute Occasionnel

Discussions similaires