Resultat = "Chemin : " & Cible.GetParentFolderName(Valeur) & 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"