VBA - Comment imbriquer plusieurs Dir ?

Bonjour ;)

Je suis bloqué avec ce code... Il me génère à chaque fois une erreur car je pense qu'il est impossible d'imbriquer plusieurs Dir mais je ne sais pas comment contourner cet obstacle... :(

Code:

---

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

Sub MODIFICATION() Dim MyFolder87, MyFolder86, MyFolder79, MyFolder17, MyFolder16 As String Dim MyFile87, MyFile86, MyFile79, MyFile17, MyFile16 As String   MyFolder87 = "\BASE CLIENTS\87" MyFolder86 = "\BASE CLIENTS\86" MyFolder79 = "\BASE CLIENTS\79" MyFolder17 = "\BASE CLIENTS\17" MyFolder16 = "\BASE CLIENTS\16" MyFile87 = Dir(MyFolder87 & "\" & Range("D6").Value & "*.xlsx") MyFile86 = Dir(MyFolder86 & "\" & Range("D6").Value & "*.xlsx") MyFile79 = Dir(MyFolder79 & "\" & Range("D6").Value & "*.xlsx") MyFile17 = Dir(MyFolder17 & "\" & Range("D6").Value & "*.xlsx") MyFile16 = Dir(MyFolder16 & "\" & Range("D6").Value & "*.xlsx")   If Range("D12").Value Like "87*" And MyFile87 <> "" Then Do While MyFile87 <> "" Workbooks.Open Filename:=MyFolder87 & "\" & MyFile87 MyFile87 = Dir Loop ElseIf Range("D12").Value Like "86*" And MyFile86 <> "" Then Do While MyFile86 <> "" Workbooks.Open Filename:=MyFolder86 & "\" & MyFile86 MyFile86 = Dir Loop ElseIf Range("D12").Value Like "79*" And MyFile79 <> "" Then Do While MyFile79 <> "" Workbooks.Open Filename:=MyFolder79 & "\" & MyFile79 MyFile79 = Dir Loop ElseIf Range("D12").Value Like "17*" And MyFile17 <> "" Then Do While MyFile17 <> "" Workbooks.Open Filename:=MyFolder17 & "\" & MyFile17 MyFile17 = Dir Loop ElseIf Range("D12").Value Like "16*" And MyFile16 <> "" Then Do While MyFile16 <> "" Workbooks.Open Filename:=MyFolder16 & "\" & MyFile16 MyFile16 = Dir Loop Else End Sub End Sub

---

Je dispose de plusieurs dossiers avec plusieurs fichiers Excel dans chaque dossier et j'aimerai ouvrir les fichiers avec pour nom la valeur inscrite dans la cellule D6.

Si vous avez une idée, elle sera la bienvenue :D
Merci !

Il y a déjà à la base une grosse erreur dans ton code.

Lorsque tu écris :

Code:

---

MyFile87 = Dir(MyFolder87 & "\" & Range("D6").Value & "*.xlsx")

---

Ce n'est pas la commande "Dir" qui est placée dans la variable mais uniquement son résultat.

Donc inutile de faire une boucle avec Do While MyFile87 <> "" puisque dans MyFile87 il y a juste le nom d'un seul fichier.

La méthode est de faire une boucle avec un Dir et de placer tous les résultats dans une variable tableau à une dimension pour l'utiliser par la suite.

Voici un exemple à adapter à ton cas :

Code:

---

1 2 3 4 5 6 7 8

Dim MyFile87(1) As String, Cp As Long Cp = 1 MyFile87(Cp) = Dir(MyFolder87 & "\" & Range("D6").Value & "*.xlsx") While MyFile87(Cp) <> "" Cp = Cp + 1 Redim Preserve MyFile87(Cp) MyFile87(Cp) = Dir() Wend

---

C'est du code tapé à l'arrache sur le forum, il est loin d'être optimisé et a même peut-être besoin d'être débugué.

Salut

Il faut noter que Dim MyFile87(1) crée une variable tableau qui, par défaut, contient deux lignes (0 et 1) (par défaut, c'est-dire sans Option Base 1 en entête de module). La ligne 0 sera donc toujours vide :?

Il faut noter également que l'on ne peut redimensionner un tableau que s'il a été déclaré avec ReDim! Le code de Menhir va donc immanquablement planter bloquer à la compilation, mais bon, il est codé "à l'arrache"... :?

Enfin, on notera que MyFile87 = Dir(MyFolder87 & "\" & Range("D6").Value & "*.xlsx") et MyFile87(Cp) = Dir() ne stocke que le nom du fichier sans son chemin d'accès! D'accord (enfin, faut le dire vite), que c'est du code à l'arrache et non testé, mais comme le demandeur parle d'imbriquer des DIR (donc, à mon sens, de passer dans les niveaux d'une arborescence), ramener les noms de fichiers sans le chemin qui mène au fichier ne sert probablement pas à grand chose!


Donc, perso, pour éviter les problèmes avec Option Base (qui est pour moi une aberration), j'utiliserais ReDim MyFile87(0 to 0) ou alors, si vraiment on veut commencer à 1: ReDim MyFile87(1 To 1)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub TestDir() ReDim t(0 To 0) Dim Temp As String   Temp = Dir("c:\data\temp\*.xls*") Do While Temp <> "" If IsEmpty(t(0)) Then t(0) = Temp Else ReDim Preserve t(0 To UBound(t) + 1) t(UBound(t)) = Temp End If Temp = Dir() Loop End Sub

---

Citation:

---

Envoyé par Pierre Fauconnier

Il faut noter que Dim MyFile87(1) crée une variable tableau qui, par défaut, contient deux lignes (0 et 1) (par défaut, c'est-dire sans Option Base 1 en entête de module).

---

J'oublie tout le monde n'a pas l'habitude, comme je le fais, de mettre Option Base 1 en début de tout module.

Citation:

---

La ligne 0 sera donc toujours vide :?

---

D'un autre côté, je ne vois pas trop en quoi ça sera gênant...
A part occuper inutilement une portion infinitésimale de mémoire.

Citation:

---

Envoyé par Menhir

[...]
D'un autre côté, je ne vois pas trop en quoi ça sera gênant...
A part occuper inutilement une portion infinitésimale de mémoire.

---

Ce n'est pas une question de mémoire. C'est une question de rigueur dans la façon de coder.

Si la première ligne est vide, ça veut dire que pour travailler sur les fichiers, tu dois commencer à la deuxième ligne. Une fonction qui lit les DIR en cascade a vocation à devenir générique, et il me semble inhabituel de travailler avec un tableau dont la première ligne serait systématiquement vide. Ca ne mange pas de pain de faire les choses proprement, il me semble.

Citation:

---

Envoyé par Menhir

J'oublie tout le monde n'a pas l'habitude, comme je le fais, de mettre Option Base 1 en début de tout module.[...]

---

Il me semble personnellement beaucoup plus "simple" de retenir que les tableaux commencent normalement à 0 (sauf dans le cas d'un transfert de plage) et de ne pas "s'amuser" à devoir mettre Option Base 1 au début de chaque module. La réutilisation de procédures "Option Base 1" dans d'autres modules n'ayant pas le Option Base 1 va être systématiquement plus ardue. Pourquoi faire simple quand on peut faire compliqué... :aie:

Ce n'est qu'un avis personnel, mais il faudra de solides arguments techniques pour me faire changer d'opinion sur cette pratique qui ne peut qu'apporter des misères dans le code... A part "Option Explicit" qui DOIT être mis en entête de tout module, je me méfie de ces options de compilation (Option Base et Option Compare) qui rendent compliqué voire impossible la réutilisation du code dans d'autres modules. Je ne les utilise personnellement jamais.

Salut JukeBox,


Dir n'est pas nativement récursif, la spécification de l'argument réinitialise le DIR. C'est logique, puisque le DIR sans arguments a pour but de scanner en fonction du modèle passé précédemment.

Voici une procédure qui scanne un dossier, éventuellement en cascade dans les sous-dossiers, et qui reçoit un tableau qui contiendra les noms complets des fichiers récupérés. J'y ai ajouté une procédure qui montre comment l'utiliser. Elle boucle sur les sous-dossiers si subFolders est True. Le pattern est optionnel. Par défaut, on scanne tous les fichiers. Il faut noter que cette procédure contient les limites du DIR concernant certains fichiers spéciaux.

Code:

---

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

Sub ScanFolder(Files, Root As String, Optional Pattern As String = "*.*", Optional subFolders As Boolean) ReDim Folders(0 To 0) Dim Temp As String Dim Counter As Long   If subFolders Then Temp = Dir(Root & "\*.*", vbDirectory) Do While Temp <> vbNullString If (GetAttr(Root & "\" & Temp) And vbDirectory) = 16 Then If Temp <> "." And Temp <> ".." Then If IsEmpty(Folders(0)) Then Folders(0) = Temp Else ReDim Preserve Folders(0 To UBound(Folders) + 1) Folders(UBound(Folders)) = Temp End If End If End If Temp = Dir() Loop End If   Temp = Dir(Root & "\" & Pattern) Do While Temp <> "" If IsEmpty(Files(0)) Then Files(0) = Root & "\" & Temp Else ReDim Preserve Files(0 To UBound(Files) + 1) Files(UBound(Files)) = Root & "\" & Temp End If Temp = Dir() Loop   If subFolders Then For Counter = 0 To UBound(Folders) If Folders(UBound(Folders)) <> "" Then ScanFolder Files, Root & "\" & Folders(Counter), Pattern, subFolders Next End If End Sub   Sub TestDirCascade() ReDim t(0 To 0) ScanFolder t, "c:\data\temp", "*.xls*", True End Sub

---

Citation:

---

Envoyé par Pierre Fauconnier

Si la première ligne est vide, ça veut dire que pour travailler sur les fichiers, tu dois commencer à la deuxième ligne.

---

Non, on commence à l'Item 1.
Effectivement, c'est le second Item si on a la regrettable (et incompréhensible pour moi) habitude d'avoir des item 0 dans ses variables tableau mais pour l'utilisateur lambda, ça reste totalement invisible.

Citation:

---

Envoyé par Menhir

Non, on commence à l'Item 1.

---

Si, on doit commencer à la deuxième ligne... qui est l'item 1 (d'index 1 dans le tableau).

Et on commence à l'item 1, si on sait que l'on doit commencer à 1. Mais l'utilisateur qui ne connaît pas ta "subtilité" concernant Option Base 1 va recopier ton code dans son module puis commencer à 0. Et s'il essaie d'ouvrir le fichier repris à la ligne 0, son code plantera, forcément. Ce n'est donc pas du tout "totalement invisible" pour l'utilisateur lambda, hélas! :calim2:


C'est le problème, lorsque l'on déroge, pour de mauvaises raisons selon moi, aux fonctionnements "par défaut", et que l'on porte son code ailleurs (comme c'est le cas sur un forum) sans penser à préciser cette singularité (regrettable et incompréhensible pour moi). Si on singularise son code de cette façon, il me semble logique d'en informer les personnes avec lesquelles on le partage.

Citation:

---

Envoyé par Menhir

Effectivement, c'est le second Item si on a la regrettable (et incompréhensible pour moi) habitude d'avoir des item 0 dans ses variables tableau mais pour l'utilisateur lambda, ça reste totalement invisible.

---

Après, que l'on trouve cela regrettable ou pas est une appréciation personnelle. Il est incompréhensible pour moi de s'emm*** à ajouter Option Base 1 dans tous ses modules juste pour ne pas retenir qu'on commence à 0, alors que c'est habituellement le cas en informatique. Ca rend le code peu portable et peu partageable sans modifications. VBA est le seul langage que je connais qui permette de modifier la base d'un tableau par défaut. Ca oblige d'ailleurs à des contorsions lorsque l'on souhaite rendre ses codes génériques et utilisables dans plusieurs contextes (comme le Dim(0 To 0),le VBA.Array ou le for Counter = LBound(t) to UBound(t), par exemple).

Je n'ose imaginer un travail collaboratif sur un projet si chaque programmeur commence à s'amuser avec des particularités de ce genre :aie:. Mais bon, j'ai vu tellement de code poubelle dans ma vie de programmeur que je ne me formalise plus. Par contre, je n'ai jamais vu personne d'autre généraliser le Option Base 1. :roll:

Citation:

---

Envoyé par Pierre Fauconnier

Mais l'utilisateur qui ne connaît pas ta "subtilité" concernant Option Base 1 va recopier ton code dans son module puis commencer à 0.

---

Je ne vois pas trop pourquoi il ferait ça.
Pourquoi placerait-il les noms de fichiers dans la variable en commençant à l'indice 1 et les ressortiraient en commençant à l'indice 0 ? :koi:

Citation:

---

Après, que l'on trouve cela regrettable ou pas est une appréciation personnelle. Il est incompréhensible pour moi de s'emm*** à ajouter Option Base 1 dans tous ses modules juste pour ne pas retenir qu'on commence à 0, alors que c'est habituellement le cas en informatique.

---

Ou on peut faire comme si l'indice 0 n'existait pas, ce qui, selon moi, n'entraine aucune incidence dans le cas actuellement traité.

Citation:

---

Ca rend le code peu portable et peu partageable sans modifications. VBA est le seul langage que je connais qui permette de modifier la base d'un tableau par défaut.

---

Perso, j'en connais plusieurs qui commencent à l'indice 1 systématiquement et ne permettent pas l'indice 0.
Ca me semble d'ailleurs beaucoup plus logique. En tout cas aussi logique que de ne pas avoir le ligne 0 dans une feuille de calcul Excel.

Citation:

---

Envoyé par Menhir

Je ne vois pas trop pourquoi il ferait ça.
Pourquoi placerait-il les noms de fichiers dans la variable en commençant à l'indice 1 et les ressortiraient en commençant à l'indice 0 ?[...]

---

"Il" ne place pas les noms de fichiers dans une variable commençant à l'indice 1, TA procédure place le premier fichier à la ligne 1 du tableau. Après avoir récupéré le tableau des fichiers, "il" va commencer à boucler sur le tableau. Soit il a été TRES attentif au code que tu as donné et il va commencer à 1, soit il ne l'a pas été et il va commencer à 0. Ou il va se dire "je ne sais pas" et il va commencer à LBound(Tableau) ( => Donc 0), et BARDAF, c'est l'embardée.

Mais je vais en rester là. Le code que tu as donné en #2, outre le fait qu'il comporte cette singularité, plante notamment à cause du DIM... :( Pas sûr que l'avertissement sur "le code à l'arrache" permette au demandeur de ne pas perdre plus de temps qu'il n'en gagne.

Content pour toi que tu en connaisses "plusieurs" qui commencent à 1, mais "plusieurs" ne fait pas forcément "une majorité", et "une majorité" n'a pas forcément toujours raison.


Plus généralement, "aider" un membre en donnant un code non testé qui plante dès le lancement à la compilation (Dim à la place de Redim), ça n'aide pas beaucoup. Ne pas prendre le temps de tester son code (pour ne pas "perdre" l'utilisateur qui, par définition, n'est pas spécialiste, sinon il ne poserait pas la question), me semble être une idée qui nuit à l'image de marque et à la crédibilité de la personne qui répond (ça, je m'en fous, surtout sous couvert d'anonymat), mais qui nuit aussi à la crédibilité et la réputation de DVP (et ça, je m'en fous moins).

J'ai dit!

Citation:

---

Envoyé par Pierre Fauconnier

Plus généralement, "aider" un membre en donnant un code non testé qui plante dès le lancement (Dim à la place de Redim), ça n'aide pas beaucoup. Ne pas prendre le temps de tester son code (pour ne pas "perdre" l'utilisateur qui, par définition, n'est pas spécialiste, sinon il ne poserait pas la question), me semble être une idée qui nuit à l'image de marque et à la crédibilité de la personne qui répond.

---

Ma "crédibilité" sur un forum d'anonymes m'importe peu.
Mais je ne voudrais surtout pas faire perdre du temps en offrant un code qui ne soit pas parfaitement testé et qui ne répondent pas à l'intégralité des règles de programmation des développeurs professionnels développant sur plusieurs langages.
A partir de cet instant, je m'abstiendrais donc de répondre sur ce forum.

Bonne continuation.

Citation:

---

Envoyé par Menhir

Ma "crédibilité" sur un forum d'anonymes m'importe peu.[...]

---

Ben oui, forcément, lorsqu'on est anonyme, on s'en fout de répondre n'importe quoi!

Tout le monde n'est pas anonyme sur le forum. Notre "non-anomymité" à moi et à d'autres, nous oblige à donner des réponses correctes et testées. C'est notre responsabilité de répondeur par rapport au demandeur qui vient rarement ici "par plaisir" et qui n'a donc pas du temps à y perdre à essayer des trucs non vérifiés et non testés. Ca me semble être la moindre des politesses envers les personnes qui font confiance à la qualité de www.developpez.com.

Perso, en ma qualité (et ma responsabilité) de responsable de la section Office de DVP, je ne transigerai pas là-dessus ;):
Comme déjà dit ailleurs, l'utilisateur qui pose une question et qui reçoit une "solution" s'attend à ce qu'elle fonctionne et, lorsqu'elle ne fonctionne pas, va SE remettre d'abord en question, avant de remettre en question la réponse reçue. Quel temps perdu, quelle frustration pour la personne qui teste un truc merdique non testé et foireux, quel mépris du demandeur de lui donner un code qui plante parce qu'on voulait répondre à tout prix mais qu'on n'a pas pris le temps de tester. :triste:

Bonjour :)

Merci à vous deux de vous êtes penchés sur mon couac ^^
J'ai étudié votre code mais malheureusement mes compétences ne peuvent m'aider à le comprendre et je ne sais pas comment l'adapter à ma macro :(
Je ne vois pas où mettre mes variables (Dossier à analyser, conditions suivant le nom d'une cellule et l'ouverture de ces fichiers...)

J’inscris dans la cellule D12 un code postal (16,17,79,86,87) et un nom en cellule D6 et suivant la valeur indiquée, j'aimerai que cette macro scanne le bon dossier (16,17,79,86,87) suivant la cellule D12 et m'ouvre les fichiers dont le nom comporte la valeur inscrite en D6 :aie:
Je ne sais pas si c'est très clair mais si vraiment je ne m'en sors pas je pense faire plusieurs macro pour chaque dossier à analyser, il faudra juste choisir la bonne macro suivant la valeur inscrite en D12...

Merci encore de votre aide mais je pense être trop gourmand pour la tâche que je souhaite exécuter :mrgreen:

La procédure ScanFolders est "autonome"... Tu lui passes les arguments souhaités et elle alimente le tableau passé en premier argument avec les fichiers scannés. Elle se place donc dans n'importe quel module standard. Tu l'invoques en lui passant une variable tableau comme je l'ai illustré dans ma réponse...

Merci Pierre !

Je vais tenter à nouveau avec ton code et je reviens te dire si j'ai réussi :mrgreen:

A toute à l'heure

Re !

Je tourne en bourrique....
J'ai remplacé ta ligne

Code:

---

ScanFolder t, "c:\data\temp", "*.xls*", True

---

par

Code:

---

ScanFolder t, "U:\BASE CLIENTS\87", Range("A1").Value & "*.xls*", True

---

Mais je ne sais pas comment écrire le code pour que cela m'ouvre les fichiers trouvés ?

Lister les fichiers et les ouvrir sont deux choses différentes... Si la procédure ScanFolder ouvrait également les fichiers, tu ne pourrais l'utiliser que dans le cadre précis de ton besoin actuel. Si tu voulais la réutiliser ailleurs sans ouvrir les fichiers listés, tu devrais la copier et la modifier. Or, elle a vocation d'être générique. Elle ne doit donc "faire qu'une chose", ce pourquoi elle a été écrite => scanner un dossier et éventuellement ses sous-dossiers et listés les fichiers qui s'y trouvent selon un certain "pattern" de fichier, c'est-à-dire un "modèle" de nom de fichier.

Si tu es certain de vouloir ouvrir les fichiers récupérés par ScanFolder, tu boucles sur le tableau récupéré avec ceci...

Code:

---

1 2 3 4 5 6 7 8 9

Sub OpenFiles() ReDim T(0 To 0) Dim i As Long   ScanFolder T, "...", "*.xlsx", False For i = 0 To UBound(T) Workbooks.Open T(i) Next i End Sub

---

Merci infiniment Pierre :ave:

Je viens de tester ton code en rajoutant mes conditions suivant la cellule D12 et tout fonctionne parfaitement :D C'est magique !
Et je trouve que ta solution soulage la macro disons qu'il y a beaucoup moins de lignes à taper c'est plus clair ^^

Merci encore pour ta patience et ton aide ;) Cela fait plaisir de voir encore des personnes comme toi sur la toile :king:
Je te souhaite une bonne continuation.

:merci:

Bonjour Pierre,

Citation:

---

Envoyé par Pierre Fauconnier

Il faut noter également que l'on ne peut redimensionner un tableau que s'il a été déclaré avec ReDim!

---

Désolé, mais c'est pas tout à fait exact, EDIT ReDim n'est pas une instruction de déclaration.

Il existe 2 types de tableaux VBA :
- les tableaux fixes (ou statiques)
- les tableaux dynamiques

Les premiers sont dimensionnés lors de leur déclaration, ils ne sont pas redimensionnables :
Dim tableau([lower To] upper [, [lower To] upper] ...) As Variant

Les seconds ne sont pas dimensionnés lors de leur déclaration, ils sont redimensionnables :
Dim tableau() As Variant

L'aide VBA indique :
L'instruction ReDim permet de dimensionner et de redimensionner un tableau dynamique ayant déjà été déclaré de manière formelle par le biais d'une instruction Private, Public ou Dim suivie de parenthèses vides (sans indices de dimension).
EDIT : Curieusement, malgré Option Explicit, VBA accepte de redimensionner un tableau non déclaré, mais il accepte tellement de choses ...
A l'intérieur d'un procédure ou d'une fonction, Redim sert aussi de déclaration d'une variable tableau redimensionnable (tableau dynamique) de portée locale quand cette variable n'a pas été déclarée préalablement.

Pour moi, la bonne écriture serait :

Code:

---

1 2 3 4

Sub TestDir() Dim t() ReDim t(0 To 0) '...

---

Ceci mis à part, pour éviter toutes ambigüité liée à Option Base, il suffit, comme tu l'as fait, d' utiliser systématiquement l'argument Lower dans les instructions Dim ou Redim.

Bonjour :)

C'est encore moi :mrgreen:

Est-il possible de ne pas afficher de message si le scan ne trouve aucun fichiers à ouvrir et de poursuivre la macro ?

Code:

---

1 2 3 4

ScanFolder T, "...", "*.xlsx", False For i = 0 To UBound(T) Workbooks.Open T(i) Next i

---

A l'heure actuelle, un message s'affiche "Désolé... nous ne trouvons pas..." et met fin à la macro... sauf que j'aimerai que ma macro se poursuive même si aucun fichier n'a pu s'ouvrir.

Merci !