XL pour MAC VBA Excel Mac OS

Sub OpenSpecificFile()
    On Error GoTo ErrorHandler
    Dim userName As String
    Dim myPath As String
    Dim myFile As String  ' Vous devez connaître le nom du fichier avec l'extension
    Dim fullPath As String
    
    ' Définir le nom du fichier - changez cela pour votre nom de fichier réel
    myFile = "Classeur1.xlsx"  ' Assurez-vous d'inclure l'extension appropriée
    
    ' Obtenir le nom d'utilisateur actuel du système
    userName = Environ("USER")
    
    ' Définir le chemin complet du fichier
    myPath = "Macintosh HD/Utilisateurs/" & userName & "/Documents/Script/CSV/"
    fullPath = myPath & myFile
    
    ' Ouvrir le fichier
    Workbooks.Open (fullPath)
    
    Exit Sub
    
ErrorHandler:
    MsgBox "Une erreur est survenue lors de l'ouverture du fichier: " & Err.Description
End Sub