Discussion :

[Fredgg]

Bonjour,

Je suis Novice VBA et ai bsoin de vos lumières.

La facturation de nos prestations est faite deux fois par mois (deux envois), chacune regroupant un type de prestation. Chaque service reçoit par mois un récapitulatif de son activité facturée. Il reçoit donc deux fichiers par mois. Tous les fichiers de chaque mois sont stockés dans un répertoire commun et sont structurés de la sorte: Nom_service & N°envoi_facturation. Mon objectif est de faire un TCD pour le service qui reprend les données facturation de plusieurs envois.

Je souhaite que l'utilisateur puisse indiquer pour quels envois il veut le TCD. ==> Donc j'ai fait un Userform pour stocker input sous forme de variable (numenvoi1 et numenvoi2).

Mon problème ce situe au niveau de la consolidation des données dans un fichier unique.

Ma première idée est d'utiliser la fonction DIR. Cependant je n'arrive pas a limiter ma sélection aux fichiers correspondant aux envois que l'utilisteur souhaite.

J'ai essayé :

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
Dim Numenvoi1 as long  (récupéré via userform - exemple valeur = 522)
Dim Numenvoi2 as long (récupéré via userform - exemple valeur = 523)
 
 
FolderPath = "C:\Documents\EnvoiFactures\"
 
FileName = Dir(FolderPath & "*" & Numenvoi1) Or Dir(FolderPath & "*" & Numenvoi2)
 
Do While FileName <> ""
     Set WorkBk = Workbooks.Open(FolderPath & FileName)
      For Each ws In WorkBk.Worksheets..............
    ...
    ..
    .
     WorkBk.Close savechanges:=False
      FileName = Dir()
 Loop

==> Marche pas. Le problème se situe au niveau de la var Filename. Pourquoi?

Autre alternative ???? => mettre dir(folderpath) et en début du loop mettre une condition de sortie du loop si filename ne termine pas par numenvoi1 ou num envoi2????

[kiki29]

Salut, une recherche ?

[Fredgg]

bonsoir et merci 'avoir répondu.

Je ne pense pas que le lien vers lequel vous me redirigez puisse m'aider.

Mon problème est que dans le répertoire se trouve des fichiers dont je ne veux pas extraire les données. Je veux simplement prendre les fichiers qui intéresse l'utilisatuer, c'est-à-dire ceux qu'il a exprimé via le userform et que je stocke dans les variables Numenvoi1 et numenvoi2.

ex. Dansle répertoire se trouve les fichiers:

- Envoi facturation 456.xls
- envoi facturation 457.xls
- Envoi facturation 458.xls
- envoi facturation 459.xls

Jje souhaite faire le TCD avec les données du 457 et 459.

Est-ce que la fonction array pourrait m'aider pou définir l'ensemble numenvoi1 et numenvoi2?

Merci d'avance pour votre aide

[unparia]

Bonjour
La fonction Dir n'admet pas de "OR".
Elle admet l'utilisation de caractères génériques (les "jokers") dans le chemin d'accès spécifié --->>
est compréhensible :

Code :

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

Dir chemin & "*5*"

l'est également

Code :

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

dir chemin & "457"

mais en aucun cas

Code :

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

dir chemin & "457" or dir chemin & "459"

il est dans ton cas possible d'utiliser

Code :

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

dir chemin & "45*"

et, au sein de la boucle while de parcours de tous les fichiers commençant ainsi par chemin & "45", d'utiliser une condition restrictive sur le filename pour ne retenir que ce que tu veux

[Fredgg]

Bonjour et merci pour votre réponse,

1) La condition resrictive pourait-elle être :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
FileName = Dir(FolderPath)
 
Do While FileName <> "
IF left(filename,3) LIKE numenvoi1 OR left(filename,3) LIKE numenvoi2 THEN
Set WorkBk = Workbooks.Open(FolderPath & FileName) 
else EXIT DO
end if
.....
....
FileName = Dir()
Loop

2) Pour mon info, serait-il aussi possible d'utiliser la fonction filesearch de la sorte?

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
Set oFS = Application.FileSearch
 
With oFS
    .NewSearch
    .FileType = msoFileExcelWorkbooks
    .Filename = bumEnvoi1 Or Numenvoi2<<<<<<<<<<<<<<<<<<<<<???????????????????
    .LookIn = "D:\mon répertoire
    .SearchSubFolders = True
    .Execute
 
 End With
 
For each workbook in Foundfiles
 
Set WorkBk = Workbooks.Open(FolderPath & FileName)
For Each ws In WorkBk.Worksheets..............
...
..
.
WorkBk.Close savechanges:=False
Next
Next

[kiki29]

Salut, Balise ton code des posts 1 et 5 !