Bonjour à tous,
J'ai un soucis dans un code qui recherche des noms de sous-dossiers pour y récupérer des informations:
J'ai trois noms de sous-dossier possibles:
1 - Réponse 1 - xx-xx-xxxx / 1 - Réponse 1 - 20-12-2022 / 1 - Décliné - 20-12-2022
Le but est de faire en premier check des dossiers qui ont une date et récupérer cette date. Jusque là pas de soucis. Puis on m'a demandé en second d'ajouter un "décliné", et la je cherche a récupérer la date + le fait qu'il soit décliné. J'ai donc fait mon Right(SousDossier.Name, 10) qui récupère la date et je voulais ajouter un And avec un ValeurTest qui me permet dans un autre Sub d'aller mettre un "Décliné" dans une case mais cela ne fonctionne pas.
J'ai essayé aussi de les mettre sur deux lignes différentes mais avec le Exit for cela me créé une erreur disant qu'il y a un next sans for...
For Each SousDossier In DossierSource.SubFolders
If Right(SousDossier.Name, 10) = "xx-xx-xxxx" Then Exit For
If Left(SousDossier.Name, 13) = T6_Révision + 1 & " - Réponse " & T6_Révision + 1 Then Retour = Right(SousDossier.Name, 10): Exit For
If Left(SousDossier.Name, 11) = T6_Révision + 1 & " - Décliné" Then ValeurTest = 2 And Retour = Right(SousDossier.Name, 10): Exit For
Next SousDossier
Parcourir_Dossiers_Devis = Retour
Comment puis-je procéder pour récupérer les deux résultats tout en gardant le Exit for ?
Merci.