VBA Excel sous MAC

Bonjour

En VBA dans Excel code programmer dans le ThisWorkBook comment indiquer le chemin du SSD d'un MacBook Pro sous l'OS Monterey mon code est le suivant mais sans succès :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Procédure permettant de réaliser un fichier de sauvegarde ˆ la fermeture
'Déclaration des variables
Dim NomDossier As String
Dim NomFichier As String
'Affectation des variables
NomDossier = "SSD:\Documents\SauvegardeTrésorerie\"
'Désactiver les messages d'alertes
Application.DisplayAlerts = False
'Création du nom du fichier de sauvegarde (Date + Nom)
NomFichier = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & "Sauv21.xlsm"
'Sauvegarde du fichier backup
ActiveWorkbook.SaveCopyAs NomDossier & NomFichier
'On affiche le message de confirmation
MsgBox "Votre fichier de sauvegarde intitul_ : " & NomFichier & vbNewLine & _
"est dans le dossier suivant : " & NomDossier, vbOKOnly + vbInformation, "CONFIRMATION"

End Sub

Merci

Bonjour

Merci d'utiliser les balises de code (cliquez sur </> dans la barre de menu puis coller votre code dans la fenetre) lorsque vous postez un code.

Je procéderais comme ceci pour déterminer le bon endroit
- Placez votre fichier dans le répertoire --> SSD:\Documents\SauvegardeTrésorerie\
- Ouvrez un module et coller le code ci-dessous

Sub test()
MsgBox ThisWorkbook.Path
End Sub

- exécutez le code. Il vous renverra l'adresse exacte à mettre dans Nomdossier

Cordialement