XL 2016 Fonction et macro qui cherche le chemin du bureau et sauvegarde en PDF la feuille Excel sur le Bureau à traduire pour MAC

[Badogal]

Bonjour,
Les fonction et macro ci-dessous permettent de chercher le chemin du bureau quelque soit l'utilisateur et d'enregistrer la feuille active d'Excel en PDF sur le bureau.
Cela fonctionne parfaitement sur PC et je voudrai la traduire pour MAC.
Mes connaissances MAC sont si petites que je vous confie mon incapacité.
Merci beaucoup à celui ou celle qui me dépannera.Public Function ObtenirCheminBureau() As String

On Error GoTo ObtenirCheminBureauError
Dim CheminBureau As String
CheminBureau = ""
Dim oWSHShell As Object
Set oWSHShell = CreateObject("WScript.Shell")

CheminBureau = oWSHShell.SpecialFolders("Desktop")

If (Not (oWSHShell Is Nothing)) Then Set oWSHShell = Nothing
ObtenirCheminBureau = CheminBureau

Exit Function
ObtenirCheminBureauError:
If (Not (oWSHShell Is Nothing)) Then Set oWSHShell = Nothing
ObtenirCheminBureau = ""
End Function
Sub EnregBureauPDF()

Dim CheminBureau As String

CheminBureau = ObtenirCheminBureau()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminBureau & "\" & Cells(4, 5).Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

Exit Sub
End Sub

Public Function ObtenirCheminBureau() As String

    On Error GoTo ObtenirCheminBureauError
    Dim CheminBureau As String
    CheminBureau = ""
    Dim oWSHShell As Object
    Set oWSHShell = CreateObject("WScript.Shell")
   
    CheminBureau = oWSHShell.SpecialFolders("Desktop")
   
    If (Not (oWSHShell Is Nothing)) Then Set oWSHShell = Nothing
    ObtenirCheminBureau = CheminBureau

    Exit Function
ObtenirCheminBureauError:
    If (Not (oWSHShell Is Nothing)) Then Set oWSHShell = Nothing
    ObtenirCheminBureau = ""
End Function
Sub EnregBureauPDF()

    Dim CheminBureau As String
   
    CheminBureau = ObtenirCheminBureau()
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=CheminBureau & "\" & Cells(4, 5).Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

    Exit Sub
End Sub

 

[jmfmarques]

Bonjour
Je ne connais pas Mac
Mais la lecture de ceci :

Folder View

donne à penser que $HOME/Desktop (utilisé directement ou via Shell ? à voir ..) retourne ce que tu cherches

 

[Badogal]

Bonjour
Je ne connais pas Mac
Mais la lecture de ceci :

Folder View

donne à penser que $HOME/Desktop (utilisé directement ou via Shell ? à voir ..) retourne ce que tu cherches

Merci à toi, je regarde et essaie.