Discussion :

[94Skarb]

A partir d'une procédure qui récupère les données d'une image

Code Visual Basic :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Sub FileMetadata()
 
    Dim fileFolder As String
    Dim fileNm As String
    Dim i As Integer
    Dim objShell As Shell32.Shell
    Dim objFolder As Shell32.Folder
    Dim objFolderItem As Shell32.FolderItem
    Dim cTxt As String
    'chemin et fichier à adapter
    fileFolder = "C:\Images\"
 
    fileNm = "Test.jpg"
 
    Set objShell = New Shell
    Set objFolder = objShell.Namespace(fileFolder)
    Set objFolderItem = objFolder.ParseName(fileNm)
 
    For i = 0 To 40
        cTxt = cTxt & vbCrLf & objFolder.GetDetailsOf(objFolder, i) & " : " & objFolder.GetDetailsOf(objFolderItem, i)
    Next
 
    Set objFolderItem = Nothing
    Set objFolder = Nothing
    Set objShell = Nothing
 
    MsgBox cTxt
End Sub

j'ai voulu prendre uniquement la taille de l'image.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
cTxt =  objFolder.GetDetailsOf(objFolderItem, 32)

mais j'obtiens des points d'exclamation en début et en fin de chaîne que je n'arrive pas à enlever.
http://cjoint.com/?CFBqv04QzqH

Merci d'avance

[kythi]

Alors moi je ferais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
'Remplace les points dinterrogation par rien dans la variable monText
Sub remplacerCaracteres()
    Dim monText As String
 
    monText = Replace(monText, "?", "" )
End Sub

essais.

Sinon tu peux remplacer "?" par " " un espace donc et faire ceci après :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
    Cell = Application.WorksheetFunction.Trim(Cell)
Next

Sa remplace les espaces superflu, avant et après ta chaîne de caractère mais pas entre les mots.

[94Skarb]

Bonjour et merci,

J'ai déjà essayé avec cette fonction, avec left, right, mid et trim, les points d'interrogation restent toujours. C'est pou ça que j'ai demandé de l'aide.

[94Skarb]

Bonjour,

J'ai trouvé un article de SilkyRoad sur le forum qui permet d'obtenir les dimensions en pixels :
http://silkyroad.developpez.com/VBA/...geAcquisition/

Cela résout mon problème, mais cela n'explique pas la présence de ces points d'interrogation. Je suis toujours preneur d'une explication.