Discussion :

[ChrisM972]

Bonjour,

Je souhaite trouver des fichiers dont j'ai le nom incomplet.
Désolé , je ne peux donner de fichier source pour raison de confidentialité.

J'ai commencé à programmer une macro avec FileSystemObject. Le tout fonctionne lorsque j'ai le nom complet du fichier

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
16
17
18
19
20
21
22
23
24
25
26
Sub Veriffichier() 'Si un fichier correspondant au no existe, on met ok, sinon on ne met rien
Dim oFSO As Scripting.FileSystemObject
Dim oDrv As Scripting.Drive 'Instanciation du FSO
Dim oFld As Folder
Dim oFl As Scripting.File
Dim dossier As String
 
 
Set oFSO = New Scripting.FileSystemObject 'Instanciation d'un objet enfant
 
If oFSO.DriveExists("S") Then 'on met disque S comme disque principal
    Set oDrv = oFSO.Drives("S")
    MsgBox "Le Disque S est institué comme disque par défaut"
Else
    MsgBox "Ce disque n'existe pas"
End If
 
dossier = "S:\IMMOBILISATIONS\DOSSIERX\2018"
Set oFld = oFSO.GetFolder(dossier)
If oFSO.FileExists(dossier & "1015016.pdf") Then 'ici , je trouve le fichier avec son nom complet. Je veux trouver lorsque le nom fichier ne contient qu'une partie du nom.
MsgBox "ok"
Else
MsgBox "non"
End If
 
End Sub

Je n'ai que le nom approximatif des fichiers que je cherche, ils contiennent chacun un numéro unique dont je dispose.
J'aimerais que le code me dise que le fichier existe si le nom contient ce numéro en question.

Pour l'instant, je parviens que si le numéro unique est le nom du fichier.

En bref, ce que je veux c'est: "si le nom du fichier dans ce répertoire contient "numéro unique" , alors MsgBox "ok ça existe" ".

J'espère avoir été clair dans mes explications un peu alambiquées.

Merci de votre aide

[RyuAutodidacte]

Bonjour,

Pour ma part, je préfère utiliser Dir (plus rapide que FSO et pas besoin d'activation de référence) :
https://excel.developpez.com/faq/?pa...BoucleFichiers

L'utilisation de like serait adéquate :
https://silkyroad.developpez.com/VBA...racteres/#LI-R

Edit : pour l'existance du lecteur voir là => https://www.developpez.net/forums/d6...e/#post3832139

Edit 2: Dans le cas où le lecteur S n'existe pas, on fait quoi ?? car je vois que la procédure continue, je pense que cela peut poser problème …
il faudrait sortir de la Macro par exemple avec un Else … code … End If à replacer correctement …

[ChrisM972]

J'ai repris le code en utilisant chdir et en fouillant sur le site pour l'utiliser.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Veriffichier() 'Si un fichier correspondant au no existe, on met ok, sinon on ne met rien
Dim dossier As String, fichier As String
 
dossier = "S:\IMMOBILISATIONS\MonDossier\2018" 'répertoire du dossier
 
fichier = Dir(dossier & "*1015292*") 'Replacer par une variable avec étoiles et ça fonctionnera
 
MsgBox DossierExiste(fichier) 'afficher le nom du dossier
End Sub
 
Function DossierExiste(NomDossier As String) As Boolean 'si Dir renvoie un nom de fichier, alors vrai, sinon faux
    DossierExiste = Dir(NomDossier, vbNormal + vbDirectory) <> "" 'Dir cherche le fichier dans le chemin spécifié
End Function

J'ai tenté avec deux numéros . L'un des fichiers existe, et l'autre non. mais la fonction me retourne vrai pour les deux ... quand je retire le paramètre vbDirectory, il me retourne faux pour les deux noms alors que l'un d'entre eux existe. J'ai zappé quelque chose. D'ailleurs je n'ai pas compris l'emploi du Vbdirectory ...

Je ne comprends pas non plus l'emploi de la boucle sur plusieurs fichiers ..

Mon dossier comprends des sous répertoires J'aimerais chercher dans les sous répertoires aussi... mais une chose à la fois

[patricktoulon]

re

Code :

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

1
2
3
4
5
6
Sub test()
chemin = "S:\IMMOBILISATIONS\DOSSIERX\2018\"
num = 1015016
fichier = Dir(chemin & "*" & num & "*")
If fichier <> "" Then MsgBox chemin & fichier
End Sub

[ChrisM972]

C'était aussi simple? pourquoi me suis-je compliqué la vie ? Si j'ai bien compris le code :

Code :

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

Dir(chemin & "*" & num & "*")

me permet de retourner le nom du fichier contenant ma recherche

et

Code :

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

If fichier <> "" Then

permet de vérifier qu'un nom de fichier est bien retourné

C'est bien cela ?

[RyuAutodidacte]

oui c'est cela, mais attention sait on jamais, cette écriture prends en compte tout ce qui ressemble au num chercher

Code :

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

fichier = Dir(chemin & "*" & num & "*")

peut être : 1015016 ou 10150167 ou 21015016 ou 410150168, etc … tous peuvent faire partis du résultat;
va savoir lequel va être pris en compte avec ce code sans boucle, ce ne sera pas forcément celui que tu souhaites

Je ne comprends pas non plus l'emploi de la boucle sur plusieurs fichiers

La boucle te permettra de prendre en compte tous les cas ci-dessus et selon ce que tu veux réellement obtenir, en ajoutant un bout de code, dictant la règle du résultat souhaité, tu pourras ou non valider ce résultat