Dimensions d'une image problème

Version imprimable

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

Code Visual Basic :

Code:

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:

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

Alors moi je ferais :
Code:

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:

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.

27/06/2013, 23h47
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.
28/06/2013, 21h15
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.