Rechercher une série de caractères dans un chemin réseau variable

Question

Bonjour à tous, et merci d'avance pour l'aide que vous apporterez à mon sujet. Dans le cadre de la réalisation d'une macro VBA sur Catia V5 R19, je souhaiterais configurer un "Label" pour qu'il puisse afficher un texte. La macro demanderait au concepteur via un UserForm : - Le numéro d'affaire concerné par le modèle 3D (ex : 1482) Ensuite, une partie de la macro rechercherait l'affaire renseignée (ex : 1482) dans le dossier où les affaires déjà existantes sont situées. Si la macro trouve un dossier comportant les caractères "1482" (peu importe sa position), alors le Label retourne le texte " Cette affaire existe ". Sinon, " Cette affaire n'existe pas "'. Le problème réside dans le nom du dossier. Celui-ci comporte le nombre 1482 mais également d'autres variables (chiffres et lettres). Par exemple, le dossier recherché associé à l'affaire 1482 (ex: 1482_SYS_XXXXXX_001) comporte les variables SYS (peut être parfois remplacé par TYR, PLZ, TRC...) et 001 (s'incrémente au fil des affaires en fonction du nombre d'affaires TYR, PLZ...). Étant grand débutant en VBA, j'ai essayé certaines choses mais rien de concluant. Beaucoup d'aides en ligne sont disponibles pour vérifier l'existence d'un fichier/dossier, mais toujours à partir d'un nom de dossier fixe (variable pour mon cas). Voici quelques informations pouvant vous être utiles : Chemin du dossier des affaires : "Q:\" Nom du dossier : "1482_SYS_XXXXXX_001" Code Test : Private Sub NumAffaire_Change() Dim NomDossier As String Dim X As Integer For X = 1 To 9999 If NumAffaire = X And Len(NumAffaire) = 4 Then ArtNumAffaire.Caption = NumAffaire.Value Call AffaireExiste Function AffaireExiste() As Boolean Dim NatProduit As String Dim NomClient As String Dim NumChrono As Integer For X = 1 To 9999 NomDossier = "Q:\" + X + "_" + NatProduit + "_" + NomClient + "_" + NumChrono 'exemple Q:\1482_SYS_XXXXX_001 If NomDossier Like NumAffaire Then If AffaireExiste = Dir(NomDossier) &lt;&gt; "" And X = NumAffaire Then MsgBox "Existe" Else MsgBox "Existe pas" End If Next End Function Dans un second temps, je mettrai en place une 2ème condition concernant les caractères SYS, mais je pense pouvoir me débrouiller sur ce sujet. Auriez-vous une solution à mon problème ? Je reste disponible pour toute précision, il se peut que je me soit mal exprimé sur mon besoin ! Je prends avec plaisir toutes les remarques sur la pertinence de mon code, je sais qu'il est loin d'être parfait... Cordialement, Sofian...

h2so4 · Answer

Une proposition (non testée) Private Sub NumAffaire_Change() If Val(numaffaire) &gt; 0 And Val(numaffaire) &lt; 10000 Then 'valeur numérique entre 0001 et 9999 artnumaffaire.Caption = numaffaire.Value If AffaireExiste(Val(numaffaire)) Then 'teste existence d'un fichier contenant le n° d'affaire MsgBox "affaire " & numaffaire & "existe" Else MsgBox "affaire n'existe pas" End If Else MsgBox "n° d'affaire non valable" End If End Sub Function AffaireExiste(x) As Boolean ' teste existence d'un fichier contenant le n° d'affaire X NomDossier = "Q:\*" + Format(x, "0000") + "*" 'masque du nom de fichier à chercher If Dir(NomDossier) &lt;&gt; "" Then 'fichier existe AffaireExiste = True Else AffaireExiste = False End If End Function...

h2so4 · Answer

Le code que j'ai mis fonctionne chez moi. les modifications que tu as faites ne sont pas correctes et ce code ne peut pas donner le résultat attendu. affaireexiste est une fonction qui utilise un paramètre (le numéro d'affaire, variable X dans la fonction), et qui renvoie vrai(true) si un fichier contenant le numéro d'affaire est trouvé dans le répertoire racine de q:\, faux(false) sinon. Valeur que tu peux tester ou mettre dans une variable donc quelque chose comme ceci if affaireexiste(1234) then msgbox"affaire existe" else msgbox "affaire n'existe pas" ou resultatappelfonction=affaireexiste(numerodaffaire) L'appel d'une fonction ne se fait pas avec une instruction call. le test sur la longueur du numéro d'affaire est inutile puisqu'en testant si le nombre est &gt; 0 et &lt; 10000 on vérifie que le numéro d'affaire est bien compris entre 0 et 10000 ce qui correspond aux nombres que l'on peut former avec 4 chiffres...