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+