Discussion :

[dafchap]

Bonjour,

pour comparer le nom d'un fichier (mesure) que l'utilisateur aura fourni avec le nom de fichier (mon fichier) se trouvant dans un répertoire, j'ai voulu écrire ceci :

Code :

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

1
2
 
Do While monFichier = mesure & ".P*"

afin que la boucle passe en revue tous les fichiers du style : mesure.P01, mesure.P02, mesure.P03, etc...
mais visiblement la syntaxe n'est pas bonne bonne, car la boucle ne démarre pas. Quelle est mon erreur ?
Je suppose que seul monFichier et mesure sont comparé et que la partie & ".P*" est oubliée. J'ai voulu mettre le tout entre parenthèse

Code :

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

1
2
 
Do While monFichier = (mesure & ".P*")

mais apparemment la parenthèse n'a pas le rôle que je pensais qu'elle pourrait avoir...

D'avance merci pour vos éclaircissements,

David

[kiki29]

Salut, lire et assimiler : Manipuler les chaînes de caractères en VB6 et VBA Excel

[dafchap]

Ok, merci pour le lien. Il fallait donc utiliser "Like"

Avec ça :

Code :

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

1
2
 
Do While monFichier Like mesure & "*.P*"

ma boucle tourne.

[unparia]

Bonjour,
Tu ne précises pas dans quoi tu utilises cette boucle.
A tout hasard : si c'est avec l'utilisation de la fonction Dir (conseillée)
Elle permet d'utiliser directement les caractères génériques (* ou ?) pour sélectionner plusieurs fichiers et t'affranchit donc de l'opérateur Like.