Discussion :

[Jason T]

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 :

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

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.

[zandru]

Bonjour,

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

Pour comparer les 4 premières lettres utilise :

Code :

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

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

Cela devrait t'aider à commencer.

[DeaD78]

Bonjour,

Sinon, tu peux 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 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 :

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

.Filename = "*.DBF"

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

'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+

[Jason T]

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
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

[Jason T]

Bonjour,

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

Code :

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

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.

[DeaD78]

Bonjour,

Et pourquoi le titre du post est-il

[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.

[LeForestier]

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

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
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+

[Jason T]

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 !