Discussion :

[crissc]

Bonjour,

Je suis en train de préparer une petite macro qui :
- scanne un dossier
- affiche en colonne 1 le nom du sous dossier de niveau 1
- affiche en colonne 2 le nom du sous dossier de niveau 2
- affiche en colonne 3 le nom de chaque fichier contenu dans le sous dossier de niveau 2 (1 fichier par ligne, chaque ligne étant composée comme décrit ci-dessus)
- affiche en colonne 4 la racine du nom de fichier
- affiche en colonnes 5 et 6 respectivement la partie droite et la partie gauche du nom du sous dossier de niveau 2
Tout ça je sais faire, il n'y a pas de soucis.
Cette même macro doit vérifier les extensions des fichiers avant leur insertion dans le tableau et supprimer du dossier tout fichier qui n'a pas une extension jpg ou jpeg. C'est sur cette partie en particulier que je butte.
Voici les deux codes que j'ai testés:
1. je décompose chaque nom de fichier par rapport au point (.) afin d'en extraire l'extension et la comparer avec les chaines "jpg" et "jpeg"
2. j'utilise la méthode getExtensionName (de l'objet Scripting.FileSystemObject) pour obtenir l'extension des fichiers et la comparer avec les chaines "jpg" et "jpeg"
dans les deux cas le résultat est le même, tous les fichiers sont supprimés (alors que l'instruction seule renvoit bien la bonne extension). Voici le code pour les deux méthodes :
varFichier représente chaque fichier du sous-dossier courant (avec une boucle for each in)
Méthode 1 :

Code :

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

If (LCase(Right(varFichier.Name, 3)) <> "jpg") Or (LCase(Right(varFichier.Name, 4)) <> "jpeg") Then varFichier.Delete

Méthode 2 :

Code :

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

If (GetFileExtension(varFichier) <> "jpg") Or (GetFileExtension(varFichier) <> "jpeg") Then varFichier.Delete

Les instructions:

Code :

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

Cells(rg, 7) = GetFileExtension(varFichier)

et

Code :

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

1
2
Cells(rg, 8) = LCase(Right(varFichier.Name, 3))
Cells(rg, 9) = LCase(Right(varFichier.Name, 4)

renvoient pourtant les bonnes extensions dans les cases respectives.

L'erreur se situe dans la comparaison entre ces résultats et les chaines de caractères "jpg" et "jpeg" qui renvoie toujours VRAI.

Merci par avance de votre aide.
Cdlt
- crissc -

[kiki29]

Salut, And pas Or ?

[crissc]

Bonsoir kiki29,

Non, c'est bien Or dans la mesure où les fichiers image peuvent avoir soit l'extension "jpg" ou l'extension "jpeg".
En dehors des fichiers avec l'une de ces deux extensions, aucun autre ne doit subsister dans le sous-dossier considéré.

[unparia]

Bonjour
La remarque (que tu contestes en outre) de kiki est on ne peut plus justifiée.
Un peu de réflexion s'impose :
si tu dis si toto est <> titi ou que toto est <> tata, ne seront acceptés ni titi ni tata. (puisque si = titi, il est différent de tata et que si = tata, il est différent de titi) . Et ce, que ce soit en informatique ou dans n'importe quel domaine autre !

[clementmarcotte]

Pour en rajouter une couche

Faudrait que tu réalises que to OR est un ou logique qui n'a rien de la tolérance du cerveau humain.

Dans un OR, il suffit que l'une ou l'autre soit vrai. Et si la première est vraie, la seconde n'est même pas évaluée.

Code :

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

If (GetFileExtension(varFichier) <> "jpg") Or (GetFileExtension(varFichier) <> "jpeg") Then varFichier.Delete

avec JPEG, c'est différent de JPG, la première est vraie, le OR est True donc on passe directement à varFichier.Delete.

Résultat ByeBye JPEG

Avec JPG c'est la première qui est fausse. Il évalue la deuxième. La deuxième est vraie OR = True et il passe également par varFichier.Delete

Résultat ByeBye JPG

[crissc]

Bonsoir et merci à tous,

Je me suis totalement fourvoyé en effet.
Il a vraiment fallu que je passe par ici pour me rendre compte de mon inversion.

A trop chercher le grain de sable je n'ai pas vu le rocher... Je passe pour un noob !

Bonne nuit
Cdlt
- crissc -