Afficher l'auteur de la dernière modification d'un fichier

Sub Test()
Dim Classeur
Classeur = Application.GetOpenFilename
proprietesFichier_getFile (Classeur)
End Sub

Sub proprietesFichier_getFile(Fichier As String)
Dim Cible As Scripting.FileSystemObject
Dim Valeur As Scripting.File
Dim Resultat As String
Dim Modifie_Par As String

    Set Cible = CreateObject("Scripting.fileSystemObject")
    Set Valeur = Cible.GetFile(Fichier)
    Modifier_Par = ActiveWorkbook.BuiltinDocumentProperties("last author")
    
    Resultat = "Chemin : " & Cible.GetParentFolderName(Valeur) & Chr(10) & Chr(10) & _
    "Modifié par : " & Modifie_Par & Chr(10) & Chr(10) & _
    "Nom fichier : " & Cible.GetBaseName(Valeur) & "." & Cible.GetExtensionName(Valeur) & Chr(10) & Chr(10) & _
    "Dernière modification : " & Left(Valeur.dateLastModified, 10) & Chr(10) & Chr(10)
    
    MsgBox Resultat, , "OCEAN'S"
End Sub

Sub test()
With ThisWorkbook.BuiltinDocumentProperties
   MsgBox ThisWorkbook.Path & "\" & ThisWorkbook.Name _
               & Chr(10) & .Item(12).Name & " : " & .Item(12) _
               & Chr(10) & .Item(7).Name & " : " & .Item(7)
End With
End Sub