XL 2016 VBA : Supprimer le caractère "?" qui encadre la propriété "Dimensions" d'un fichier image

[crocrocro]

Bonjour,
dans mon code, après avoir récupéré la propriété "Dimensions d'un fichier image", je veux éliminer le caractère "?" qui encadre la propriété.
La fonction Replace ne le fait pas.
Je me suis dit que le caractère "?" que l'on visualise, en debug par exemple ne l'est pas vraiment : Apparemment si, le code ascii (63) est bien celui du point d'interrogation.
Peut-être que "?" est interprété comme le caractère joker : non, le Replace avec la valeur 'en dur' de la propriété est opérationnel.
Je dois faire une erreur quelque part, mais je ne vois pas où. Si quelqu'un a une idée ...
Merci d'avance
Quelques précisions :
Sans avoir tenté le Replace, si j'affiche la propriété "Dimensions dans une cellule, il n'y a pas les "?", ce qui me fait tout de même penser à un caractère spécial (mais contredit par le test avec la fonction Asc.
Je ne souhaite pas (le code étant utilisé pour toutes les propriétés des fichiers) faire un code spécifique à la propriété en éliminant ici le 1er et le dernier caractère par la fonction Mid.
Voir le code ci-dessous

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

 

[crocrocro]

Non, malheureusement

 

[TooFatBoy]

Bonjour,

As-tu essayé avec AscW ?

 

[crocrocro]

Bonjour TooFatBoy,
effectivement AscW renvoie 8234 pour et non 63 pour la propriété.

 

[crocrocro]

J'ai trouvé la solution ici https://www.devhut.net/how-to-retrieve-a-files-properties-with-vba/
dont le code à utiliser pour l'ensemble des propriétés et éliminer les caractères parasites

ValProp = Replace(Replace(Replace(Replace(ValProp, ChrW(8236), ""), ChrW(8234), ""), ChrW(8207), ""), ChrW(8206), "")

 

[TooFatBoy]

De rien. Content d'avoir trouvé la bonne réponse pour toi.


@+

 

[crocrocro]

Pour TooFatBoy,
je suis allé très vite dans mon post #5 pour éviter que des personnes cherchent inutilement.
Mais oui, sans ta suggestion AscW, je tournerai encore en rond et je ne pouvais pas mettre ta réponse directement comme solution.
Merci à toi

 

[TooFatBoy]

je ne pouvais pas mettre ta réponse directement comme solution.

Ce n'était pas le sens de mon message. 😉

Effectivement, tu as parfaitement bien fait car la meilleure réponse à ta question est bien le post #5. 👍