Discussion :

[Gregblob]

Bonjour à tous,

J'ai été recruté pour un mois dans une entreprise afin de coder un petit programme mais malheureusement je n'ai absolument pas les capacités pour réaliser ce qu'on me demande et les réponses que j'ai trouvé sur internet était soit plus valable car sur de plus ancienne version d'excel soit je n'y ai rien compris.

C'est pourquoi j'ai absolument besoin d'aide.

En fait, le programme doit pouvoir rechercher tous les fichiers excels qui comportent un ou deux mots clefs dans leurs noms de fichier. Le problème c'est que ces fichiers sont dans des sous-sous-fichier du fichier mère (père?) où je dois les rechercher.

Un exemple pour peut-être aider la compréhension du problème : le fichier truc recherché est dans le dossier machin qui est dans le dossier bidule et je dois chercher tout les fichiers trucs dans bidule.

J'espère avoir été compréhensible et ne pas trop en demander.

Je vous remercie d'avance.

Cordialement,
Gregblob

[casefayere]

Bonjour,
un exemple parmi tant d'autres
un fichier (tout cuit dans le bec) que j'ai gardé dans mes archives et dont je ne pourrai plus citer l'auteur :

1 usf "Userform1"
1 ListBox "ListBox1
1 bouton de commande
code de l'usf (variables et fonction)

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
27
28
29
30
31
32
33
34
Option Explicit
Dim fso As New FileSystemObject
Dim fld As Folder
 
 
Private Function FindFile(ByVal sFol As String, sFile As String, _
   nDirs As Long, nFiles As Long) As Currency
   Dim tFld As Folder, tFil As File, FileName As String
 
   On Error GoTo Catch
   Set fld = fso.GetFolder(sFol)
   FileName = Dir(fso.BuildPath(fld.Path, sFile), vbNormal Or _
                  vbHidden Or vbSystem Or vbReadOnly)
   While Len(FileName) <> 0
      FindFile = FindFile + FileLen(fso.BuildPath(fld.Path, _
      FileName))
      nFiles = nFiles + 1
      ListBox1.AddItem fso.BuildPath(fld.ShortPath, FileName)  ' a adapter
      'ou ListBox1.AddItem  FileName
      FileName = Dir()  ' Get next file
      DoEvents
   Wend
   Label1 = "Recherche " & vbCrLf & fld.Path & "..."
   nDirs = nDirs + 1
   If fld.SubFolders.Count > 0 Then
      For Each tFld In fld.SubFolders
         DoEvents
         FindFile = FindFile + FindFile(tFld.Path, sFile, nDirs, nFiles)
      Next
   End If
   Exit Function
Catch:  FileName = ""
       Resume Next
End Function

code pour le bouton (sur l'usf)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
 Dim nDirs As Long, nFiles As Long, lSize As Currency
   Dim sDir As String, sSrchString As String
   sDir = InputBox("Repertoire de départ", _
                   "Vous pouvez modifier", ThisWorkbook.Path)
   sSrchString = InputBox("Type de fichier", _
                   "exemple", "*.xl*")
   Label1.Caption = "Recherche " & vbCrLf & UCase(sDir) & "..."
   lSize = FindFile(sDir, sSrchString, nDirs, nFiles)
   MsgBox Str(nFiles) & " Fichiers trouvés dans" & Str(nDirs) & _
          " repertoire(s)", vbInformation
   MsgBox "Total taille = " & lSize & " bytes"
End Sub

tu devrais pouvoir adapter

[Gregblob]

Merci de ta réponse

Bon après une heure sur ce code, je dois avouer ne quasiment rien comprendre. Je suis vraiment une buse en VBA

Est ce que tu aurais la gentillesse et le temps de commenter un peu le code pour que je puisse comprendre ? ^^'

Cordialement,
Gregblob

[casefayere]

Avant toute chose, est-ce qu'il correspond à tes besoins ?

[Gregblob]

Vu que je ne le comprends pas entièrement, je ne peux pas vraiment te le dire. Mais de ce que j'ai compris, ça pourrait correspondre.

[casefayere]

essayes ce fichier et regardes son code (légèrement modifié)

[Gregblob]

Merci beaucoup, je commence à comprendre et ça fonctionne. C'est parfait.

Juste une dernière question/demande, comment pourrais je rajouter un champs de recherche ?
Je veux dire je lui demande de chercher les fichiers contenants des termes précis :
Par exemple, je demande les fichiers truc bidule si un fichier ce nomme truc_bidule_machin il est mis dans la liste mais si il y a truc_machin_chose, cela ne le prend pas en compte.

Je sais que je demande beaucoup et j'en suis désolé.

[casefayere]

Je ne comprends pas la question car, quand tu arrives ici



tu mets ce que tu veux, exemple "bidule*.xl*" ou *bidule*".....

pour des recherches spécifiques, il faut modifier la procédure, tout dépend du résultat attendu, un jour tu vas chercher "truc_machin* l'autre truc_bidule*

expliques-toi bien, il y a certainement quoi faire, exemple en ajoutant un "InputBox" qui affinera la recherche

[Gregblob]

Ah d'accord. Je croyais qu'on ne pouvait rechercher qu'un type de fichier (excel, world, etc...) pas le nom avec cette procédure.

Dans ce cas, c'est parfait merci !

[casefayere]

eh oui, de même quand tu arrives ici, tu changes le chemin comme tu veux



penses à cliquer sur quand tu auras estimé avoir régler ton souci

[Gregblob]

J'ai compris du coup

Merci infiniment de ton aide.

[casefayere]

J'ai compris du coup

tu verras, ça viendra si tu persistes dans ton apprentissage

content de t'avoir aidé

bonne journée

[Gregblob]

Je vais tenter de m'accrocher

Merci bonne journée à toi aussi

[kiki29]

Salut, au choix :

• Liste des fichiers d'un dossier
• Liste des fichiers d'un dossier : Win 32/64 Bits
• Liste des fichiers d'un dossier + Liens
• liste des fichiers avec visualisation de l'arborescence

[Gregblob]

Bon après un test complet de ce code, un problème est soulevé. Le recherche des fichiers prends plus de 20 minutes.

Y aurait il un moyen pour stopper la recherche au sous-sous dossier pour limiter le temps ? ou même de chercher uniquement dans les sous sous dossier nommé 1_ TdB ?

[casefayere]

comme je l'ai écrit, tout se passe ici, il suffit de changer une ligne de code soit

Code :

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

1
2
Depart = InputBox("Repertoire de départ", _
                  "Vous pouvez modifier", ThisWorkbook.Path)

à la place de la ligne en bleu, prévoir le chemin, ou de stipuler où commencer la recherche

[Marc-L]

Bonjour !

Le recherche des fichiers prends plus de 20 minutes.

Du plus véloce au moins rapide :

• Windows API (liens de kiki29)

• Dir VBA (même en récursif pour les sous répertoires)

• FileSystemObject (parfois équivalent à Dir mais exceptionnellement plus rapide) …

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[kiki29]

Salut, @Gregblob : à moins que les recherches ne se fassent sur un réseau, auquel cas .....
sinon ici 77s au lieu de 15s pour les APIs.

[Gregblob]

casefayere :

En fait je dois mal m'exprimer donc je vais essayer de donner un exemple précis.

Je dois chercher tous les fichiers Tdb (excel) contenu dans le dossier qu'on nommera dossier de départ. Or ce dossier est construit de la manière suivante :

Dossier de départ -> dossier avec le nom d'un projet -> dossier TdB et c'est dans ce dernier que ce trouve un des fichiers. Et il faut faire ce schéma pour tout les fichiers qui sont propres à un projet.

Marc-L :

1) Je ne peux pas télécharger ce genre de chose vu que la demande est de faire un truc sous vba (je vais devoir extraire les données des fichiers par la suite)
2) Je ne suis pas assez calé pour utiliser ça
3) Le service informatique ne veut pas autoriser l'ajout de ce complément.

Kiki29 :

Même si ce que tu proposes a l'air de très bien marcher, je suis obligé de passer par une procédure VBA (voir réponse à Marc-L)

[kiki29]

Je ne suis pas assez calé pour utiliser ça

Bref, tu laisses tomber sans même essayer, tu te prépares un bel avenir.

Le service informatique ne veut pas autoriser l'ajout de ce complément.

?????