Discussion :

[Yoran_L]

Bonjour à tous,

Après une longue recherche sur internet, je n'arrive pas à trouver le code qui me servira. JE m'explique je dois parcourir les dossiers d'un répertoire et récupérer le nom du dossier égale en partie à une chaine de caractère prédéfinie.

Exemple:

ChaineDeCaractère: ABC

dossier : 01_ABC_Novembre sera ouvert ....

Merci

[Nako_lito]

utilise la méthode inStr("maChaine", "ce que je cherche"), ça renvoie la position de ce que tu cherche dans la chaine.

Par exemple :

inStr("01_ABC_Novembre", "ABC") renvoie 4.

inStr("01_ABC_Novembre", "toto") renvoie 0 (car inexistant)

inStr("01_ABC_Novembre_01", "01") renvoie 1 même si il apparait deux fois. La méthode s'arrête sur la première occurrence.

Pour ton code, tu boucle sur les fichiers d'un répertoire, et des que inStr("01_ABC_Novembre", "ABC") retourne > 0 (zéro), tu traite le fichier

Bonne chance !

[kiki29]

Salut, voir également aide en ligne sur Like

[Yoran_L]

Merci beaucoup !

Pour ceux qui ont besoin du code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Create an instance of the FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Get the folder object
Set objFolder = objFSO.GetFolder("RENSEIGNERREPERTOIRE")
i = 1
'loops through each file in the directory and prints their names and path
For Each objFile In objFolder.Files
    'print file name
   If InStr(objFile.Name, "RENSEIGNERNOMRECHERCHE") > 0 Then
   MsgBox (objFile.Name)
   End If
    'print file path
 '   Cells(i + 1, 2) = objFile.Path
    i = i + 1
Next objFile