Discussion :

[flappy]

Bonjour à tous,

Je galère depuis un bout de temps sur une condition dans un If, c'est surement une bêtise mais je ne tombe pas dessus.

mon code est le suivant :

Code :

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

1
2
3
If Right(File.Name, 3) = "JPG" Or Right(File.Name, 3) = "png" Then
liste_references.Add File.Name
End If

Le but est d'obtenir l'extension du fichier et de tester si c'est un jpg ou bien un png. Si c'est l'un ou l'autre j'ajoute le nom du fichier à ma collection liste_reference.
Si j'ai un fichier JPG l'espion me dit que l'expression est vraie par contre une fois que j'ai un PNG elle est chaque fois fausse.

Si vous avez une idée...

Merci d'avance à tous

[Sebphyto]

Salut,

Je suis pas sur mais il faut faire attention à la casse

ici tu à "JPG" en majuscule et "png" en minuscule, n'y aurait-il pas un rapport???

Seb

[flappy]

Hello,

Je me suis posé aussi la question de la casse et j'ai essayé les deux pour le même résultat

[Sebphyto]

re,

as-tu essayé sous la forme d'un select case

du type:

Code :

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

1
2
3
4
5
6
7
Select Case Right(File.Name, 3)
 Case "jpg": liste_references.Add File.Name
    'MsgBox "Photo format jpg"
 Case "png": liste_references.Add File.Name
    'MsgBox "Photo Format PNG "
 Case Else: MsgBox "Ni jpg, ni png"
 End Select

Peux-tu me dire ce que renvoit le "File" avant de le faire entrée dans la boucle?

[flappy]

J'ai pensé à un select case tout comme à un IF Then ElseIf

Je suis quasiment sur que ça fonctionnerait mais cela m'obligerait à dupliquer du code et je ne trouve pas cela très propre.
Je préférerais avoir ma condition en une fois une seule ligne. J'ai du mal à imaginer que ça ne soit pas possible

Oui je sais, je suis un peu perfectionniste et puis j'ai aussi envie de comprendre ce que je fais mal dans ma solution

[Sebphyto]

Ok pas de souci c respectable
Mais peux-tu me dire:

ce que renvoit le "File" avant de le faire entrée dans la boucle?