Excel VBA obtenez le chemin du classeur actuel

'VBA function to retrieve this workbook's full path:

Function FullPath()
    With ThisWorkbook
        FullPath = .Path & Application.PathSeparator & .FullName
    End With
End Function

'--------------------------------------------------------------------

MsgBox FullPath

Excel Hero