Discussion :

[gregory.d]

Bonjour à tous

Je cherche a afficher dans une feuille Excel le chemin réseau d'un fichier.

Si je traduit dans un tableau cela donne :

COL A	COL B
Détail_88221.xlsx	Chemin réseau du fichier
Détail_88222.xlsx	Chemin réseau du fichier

Chaque fichier est unique
le fichier est toujours un fichier xlsx

Le chemin réseau est par exemple
\\INDUSTRIALISATION\METHODES\PROJETS
Il y a plein de sous dossiers

J'ai déjà exploré dans le forum mais je suis tombé sur des vieux post avec du filesearch qui ne fonctionne plus avec Excel 2016

Je vous remercie pour votre aide

Grégory

[QuestVba]

Bonjour,
Je te propose cette lecture : https://excel.developpez.com/faq/?page=FichiersDir

[gregory.d]

Bonjour,

J'ai déjà vu ce post mais il n'y a pas la possibilité de RECHERCHER un fichier

Merci

Grégory

[Menhir]

A ma connaissance, il n'y a pas de méthode de recherche dans les objets liées au File System dans VBA.

La meilleure méthode sera donc d'explorer l'arborescence des répertoires, comme le suggère QuestVba ().
Pour éviter d'avoir à vérifier chaque fichier des dossier, tu peux utiliser la méthode FileExists.
Lire ça : https://docs.microsoft.com/fr-fr/off...eexists-method

[Philippe Tulliez]

Bonjour,
Egalement une piste avec cette discussion Utilisation récursive de dir (tous sous-dossiers et fichiers d'un volume ou répertoire)

[gregory.d]

Bonjour.

Je vous remercie pour votre réponse,

Du coup je peux avoir ce raisonnement,
1- afficher tout les fichiers xlsx des sous dossiers dans une nouvelle feuille avec le lien hypertexte
2- faire une recherchev pour récupérer les données

Grégory

[gregory.d]

Du coup au niveau du code j'ai :

MAIS, comment filtrer uniquement sur les fichiers .xlsx qui contiennent "Détail_"

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
35
36
37
38
39
40
41
42
43
44
Option Explicit
 
Sub TestListeFichiers()
    Dim Dossier As String
 
       Dossier = "\\INDUSTRIALISATION\METHODES\PROJETS"
 
    'Appelle la procédure de recherche des fichiers
    ListeFichiers Dossier
 
End Sub
 
Sub ListeFichiers(Repertoire As String)
 
    Dim Fso As Scripting.FileSystemObject
    Dim SourceFolder As Scripting.Folder
    Dim SubFolder As Scripting.Folder
    Dim FileItem As Scripting.File
    Dim i As Long
 
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(Repertoire)
 
    'Récupère le numéro de la dernière ligne vide dans la colonne A.
    i = Range("A65536").End(xlUp).Row + 1
 
    'Boucle sur tous les fichiers du répertoire
    For Each FileItem In SourceFolder.Files
 
        'Ajoute un lien hypertexte vers le fichier
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
            Address:=FileItem.ParentFolder & "\" & FileItem.Name
 
 
        i = i + 1
    Next FileItem
 
 
    '--- Appel récursif pour lister les fichier dans les sous-répertoires ---.
    For Each SubFolder In SourceFolder.SubFolders
        ListeFichiers SubFolder.Path
    Next SubFolder
 
End Sub

[Menhir]

Du coup je peux avoir ce raisonnement,
1- afficher tout les fichiers xlsx des sous dossiers dans une nouvelle feuille avec le lien hypertexte
2- faire une recherchev pour récupérer les données

Il serait plus efficace (et beaucoup plus rapide à l'exécution), de scruter tous les répertoires et, pour chacun, utiliser un FileExists pour savoir si ton fichier s'y trouve.

[gregory.d]

Merci Menhir pour votre réponse.

Je suis "limité" sur VBA peux-tu me donner un exemple avec le code que j'ai fourni plus haut ?

Merci

Grégory

[gregory.d]

MAIS, comment filtrer uniquement sur les fichiers .xlsx qui contiennent "Détail_"

[Menhir]

MAIS, comment filtrer uniquement sur les fichiers .xlsx qui contiennent "Détail_"

Pourquoi filtrer puisque c'est un nom de fichier précis que tu recherches ?
Il suffit que tu mettre le nom de fichier recherché dans le FileExists pour savoir s'il est présent dans le répertoire scruté.

As-tu lu le lien que j'ai donné concernant cette méthode ?

[gregory.d]

Pourquoi filtrer puisque c'est un nom de fichier précis que tu recherches ?
Il suffit que tu mettre le nom de fichier recherché dans le FileExists pour savoir s'il est présent dans le répertoire scruté.

As-tu lu le lien que j'ai donné concernant cette méthode ?

Je recherche des fichiers qui contiennent "Détails_" après j'ai une suite de chiffre.

J'ai regarder le lien et surtout la section "Comment lister les fichiers contenus dans un répertoire ainsi que dans tous ses sous-répertoires ?"

J'ai adapter le code fourni mais c'est super long et j'ai plein de fichiers inutile pour moi, peux-tu m'aider à filtrer les fichiers excel qui contienne "Détails_" ou alors mieux une boucle du nom des fichiers que j'ai en colonne A

voila le code adapté :

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
35
36
37
38
39
40
41
42
43
44
Option Explicit
 
Sub TestListeFichiers()
Dim Dossier As String
 
Dossier = "\\INDUSTRIALISATION\METHODES\PROJETS"
 
'Appelle la procédure de recherche des fichiers
ListeFichiers Dossier
 
End Sub
 
Sub ListeFichiers(Repertoire As String)
 
Dim Fso As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder
Dim SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim i As Long
 
Set Fso = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = Fso.GetFolder(Repertoire)
 
'Récupère le numéro de la dernière ligne vide dans la colonne A.
i = Range("A65536").End(xlUp).Row + 1
 
'Boucle sur tous les fichiers du répertoire
For Each FileItem In SourceFolder.Files
 
'Ajoute un lien hypertexte vers le fichier
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), _
Address:=FileItem.ParentFolder & "\" & FileItem.Name
 
 
i = i + 1
Next FileItem
 
 
'--- Appel récursif pour lister les fichier dans les sous-répertoires ---.
For Each SubFolder In SourceFolder.SubFolders
ListeFichiers SubFolder.Path
Next SubFolder
 
End Sub

[Menhir]

peux-tu m'aider à filtrer les fichiers excel qui contienne "Détails_" ou alors mieux une boucle du nom des fichiers que j'ai en colonne A

A priori, tu ne lis pas ce que j'écris. Il est donc inutile que je me répète.
Bonne chance pour la suite.

[gregory.d]

A priori, tu ne lis pas ce que j'écris. Il est donc inutile que je me répète.
Bonne chance pour la suite.

C'est parce que je ne comprends pas ce que tu me dis.

je le mets où le fileexist ?

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
    MsgBox FichierExiste("C:\Documents and Settings\dossier\dataBase.mdb")
End Sub
 
 
Function FichierExiste(NomFichier As String) As Boolean
    FichierExiste = Dir(NomFichier) <> "" And NomFichier <> ""
End Function

[gregory.d]

Bonjour,
Egalement une piste avec cette discussion Utilisation récursive de dir (tous sous-dossiers et fichiers d'un volume ou répertoire)

Bonjour et merci pour ta réponse,

j'ai tester mais le code ne fonctionne pas et je ne suis pas très doué pour déboguer sur VBA, par contre j'ai customisé cela, mais le code ne regarde pas les sous dossier, peux-tu m'aider ?

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
Sub test()
 
Dim Fichier As String
 
Fichier = Dir("\\Grégory\*xlsx")
 
Dim Dossier As String, i As Integer
 
Dossier = "\\Grégory\"
 
i = 0
 
Fichier = Dir(Dossier)
 
Do While Fichier <> ""
 
  i = i + 1
 
  Sheets("Feuil1").Range("A" & i) = Fichier
 
  Fichier = Dir
 
Loop
 
End Sub

[mfoxy]

Hello,

Ton code ne montre pas les sous dossier car non récursif.

Il ne s'appelle pas lui même a chaque fois qu'il rencontre un sous dossier.

Le code fournis par Philippe fonctionne pour ma part.
Sur quelle ligne bug t'il ? Message d'erreur.

D'autre méthodes sont aussi exploitable via Excel, récupérer via powershell, et aussi Power query.

Ouvrir le dossier dans Firefox et faire un copier coller de la liste,...

Bat,
MFoxy

[gregory.d]

Bonjour,

Le code de Philippe bug a cette ligne :

Code :

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

 on_lance dos, attributs, flt_fic, flt_dos

Grégory

[Philippe Tulliez]

Bonjour,

Le code de Philippe bug a cette ligne :

Alors que les choses soient claires, ce n'est absolument pas "mon" code.
Ma responsabilité s'arrête à la diffusion d'un lien qui traitait du même sujet que celui de cette discussion.
L'auteur du code proposé est de Jacques (Unparia) dont la rigueur dans l'écriture des quelques codes qu'il a proposé ici et ailleurs ne sont plus a démontré et donc même si on n'est jamais à l'abri d'un bogue, j'ai tout de même des doutes sur ce sujet.
Personnellement, je ne l'ai pas testé car dans aucune de mes applications actuelles, je n'ai été confronté à la recherche de dossiers et sous-dossiers. La seule fois où j'en ai eu besoin, il me semble avoir utilisé le fso (FileSystemObject) évoqué d'ailleurs dans la discussion du lien proposé

Un tutoriel à lire à ce sujet Manipulation des fichiers en VBA