Problème de conditions multiple dans un IF

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:

---

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

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

Hello,

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

re,

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

du type:

Code:

---

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?

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 8-)

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

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

Citation:

---

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

---

Oups sorry pour le File.;)

En fait je trie les fichier d'un dossier selon deux critères: avoir un _ dans le nom et être un png ou un jpg. Si ils correspondent je les ajoutes à ma collection.
Pour ce faire, j'utilise FSO et File représente tous les fichiers du dossier cible et je les parcours via un for each

voilà :lol:

ok mais dans le File, il y a quoi et sous quel forme?
Ex:
file= Nom du fichier.extension ou autre

oui
File.name retourne le nom du fichier sous forme d'une string qui a la forme nom.extension (ex 123.jpg)

Bonjour,

Citation:

---

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

---

Lorsque l'on effectue un test (IF ou SELECT CASE) sur une chaîne alphanumérique, il est utile d'utiliser la combinaison des fonctions LCase et Trim
Exemple

Code:

---

If LCASE(TRIM(maVariable)) = "chapitre" Then ...

---

L'avantage est de de faire abstraction de la casse et des espaces avant et après qui polluent les bases de données et cela évite des heures de recherche.

Super :yaisse2:

J'ai ajouté les LCASE et TRIM sur mes deux tests et cela fonctionne !!

Merci à vous deux pour votre aide !:merci:

C cool,

Merci à toi Philippe :)

Code:

---

If Split(UCase(File.Name), ".")(1) = "JPG" Or Split(UCase(File.Name), ".")(1) = "PNG" Then

---