Sub Test()
Dim ValProp As String
Dim objShell As Object
Dim objFolder As Object
Dim strFileName As Object
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ThisWorkbook.Path)
Set strFileName = objFolder.Items.Item(CStr("Image1.jpeg")) ' -> "Image1.jpeg" est un fichier sur le même répertoire que le classeur
ValProp = objFolder.GetDetailsOf(strFileName, 31)
ValProp = CStr(objFolder.GetDetailsOf(strFileName, 31))
ValProp = Replace(ValProp, "?", "")
'''ValProp = Application.Substitute(ValProp, "?", "")
''' ValProp = Application.WorksheetFunction.Substitute(ValProp, "?", "")
MsgBox "ValProp : " & ValProp & " -> " & Replace(ValProp, "?", "") & vbCrLf _
& "En dur : ?3000 x 2000? -> " & Replace("?3000 x 2000?", "?", "") & vbCrLf _
& "Code Ascii de 1er caractère de ValProp (" & ValProp & ") : " & Asc(Left(ValProp, 1)) & vbCrLf _
& "Code Ascii de ? : " & Asc("?")
End Sub