Récupérer un/des nom(s) de fichier

Bonjour à toutes et à tous,
je me retrouve coincé dans le développement de mon projet. Je dois créer une macro qui concatène des .DBF enregistrés dans un dossier.

Le premier problème est que l'on ne connait pas leur nom.
Le second est qu'il peut y avoir d'autres .DBF dans le dossier qu'il ne faut pas concaténer avec les premiers.

Les fichiers à concaténer entre eux ont les 4 premières lettres de leur nom identiques.(Quand je dis que d'autres .DBF sont dans le dossier ce sont d'autres .DBF à concaténer entre eux ultérieurement, ils ont donc aussi les 4 premières lettres de leur nom fichier en commun)

Pour être clair, nous avons 2 familles de fichier : [NOM1]*.DBF et [NOM2]*.DBF


Il faudrait avant de concaténer, compter le nombre de fichiers portant les mêmes 4 premières lettres et si ce nombre est égal à celui passé en paramètre de la procedure alors on les concatène dans un nouveau fichier .xls dont le nom est passé en paramètre. ( le nombre de fichier necessaire pour la concaténation est le même pour les 2 familles de fichiers)

Code:

---

Sub Concatener(Chemin As String,NomFicRes As String,NombreFicReq As Integer)

---

Chemin indiquant le répertoire dans lequel on effectue la recherche.
NomFicRes indiquant le nom du fichier résultant de la contènation.
Nombre de Fichier necessaire pour faire la concatènation.

N'hésitez pas si vous avez besoin de plus d'information.

Cordialement Jason T.

Bonjour,

pour parcourir un dossier, utilise la fonction "dir" (F1 pour savoir utiliser ;) )

Pour comparer les 4 premières lettres utilise :

Code:

---

strcomp("abcd", left(nom_du_fichier, 4),vbtextcompare)

---

Cela devrait t'aider à commencer.

Bonjour,

Sinon, tu peux utiliser :

Code:

---

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

Sub recherche() With Application.FileSearch .NewSearch .RefreshScopes .LookIn = "C:\" 'Ton répertoire .Filename = "*.DBF" .SearchSubFolders = True 'Cherche dans les sous-répertoires ! .Execute For Ctr = 1 To .FoundFiles.Count 'Tu fais ce que tu veux Next End With End Sub

---

Ton premier problème est donc réglé par

Code:

---

.Filename = "*.DBF"

---

Pour ton deuxième problème, tu le règles ici :

Citation:

---

'Tu fais ce que tu veux

---

En gros, tu fais un Left(.FoundFiles(Ctr),4) pour obtenir les 4 premières lettres du nom de chacun de tes fichiers. Après, c'est juste une histoire de comparaison. Tu testes à chaque fois ce que ça te donne et si c'est égal aux 4 premières lettres d'autres fichiers, tu concatènes.

Pour compter le nombre de fichiers ayant les 4 mêmes premières lettres, tu fais un test sur ces 4 premières lettres et si elles sont équivalentes à ce que tu souhaites (l'histoire de tes paramètres que je n'ai pas bien comprise) alors tu incrémentes un compteur.

Reviens-nous voir si tu n'y arrives pas mais avec un code et quelques explications (exemples) supplémentaires sur l'histoire des paramètres.

A+

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

Function Recherche(Chemin As String, NombreFicReq As Integer) As String   Dim Nom1 As String, Nom2 As String, Nom3 As String Dim cpt As Integer, cpt2 As Integer   cpt = 0 cpt2 = 0   With Application.FileSearch .NewSearch .RefreshScopes .LookIn = Chemin .Filename = "*.DBF" .SearchSubFolders = False .Execute For Ctr = 1 To .FoundFiles.Count Nom1 = Left(.FoundFiles(1), 4) Nom2 = Left(.FoundFiles(Ctr), 4) If Nom1 = Nom2 Then cpt = cpt + 1 Else Nom3 = Nom2 cpt2 = cpt2 + 1 End If Next   If x = NombreFicReq Then Recherche = Nom1 Else If cpt2 = NombreFicReq Then Recherche = Nom2 End If End If End With       End Function

---

Avec cette fonction, je récupère le début des noms de fichier à récupérer.
Dans une procédure, je vais utiliser cette chaîne afin de les concaténer, puis je les supprimerai du repertoire.

Je pense pouvoir m'en sortir maintenant, je laisse le post ouvert le temps de finir au cas où. Merci

Bonjour,

il se trouve que je n'arrive pas à trouver quelle référence ajouter pour que

Code:

---

With Application.FileSearch

---

passe dans le code.

Ps : Je travaille sous excel 2007 or il semble que Application.FileSearch ne soit plus implémenter dans les librairies.

Bonjour,

Et pourquoi le titre du post est-il

Citation:

---

[XL-2000] Récupérer un/des nom(s) de fichier

---

?

Ca risque pas d'aider... Surtout quand on sait que FileSearch ne marche pas sur Excel2007.

Bref, regarde du côté de ClassFileSearch (ou un truc du genre, je sais plus exactement). Fais une recherche sur le forum, on en parle plus que nécessaire.

Bonjour tous,
filesearch n'est plus supporté par le 2007.
Voir ce tuto
Par contre, FileSystemObject fonctionne.

Code:

---

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

Sub LireRepertoir2() 'lire les fichiers d'un répertoir Dim fs, F, f1, S, sf Dim Ext As String, Chemin As String Chemin = "E:\" 'adapter au répertoir où sont situés les fichiers. Ext = "xls" Set fs = CreateObject("Scripting.FileSystemObject") Set F = fs.GetFolder(Chemin) Set sf = F.Files For Each f1 In sf If Right(f1.Name, 3) = Ext Then 'pour être certain que c'est un bon fichier 'ici tester le nom 'et en faire ce que l'ont veux End If Next End Sub

---

A+

Désolé, je n'ai pas dit que j'avais réussi à le faire en Excel 2000.
Mon Chef m'a demandé de l'adapter sous Excel2007 pour que mon programme survive au passage VISTA.

Donc là c'était une autre demande de ma part, désolé pour le quiproquo.

J'ai réussi à me débrouiller avec Classefilesearch.

Merci à tous de m'avoir consacré du temps !