PB Loop ouverture de Workbooks (.xlsx)

Version imprimable

Bonjour à tous,

Je travaille à faire un loop de tous les fichiers excel dans un dossier.

Problème, mon code tourne en boucle sur le même fichier (et copie donc les mêmes données à la suite).

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
Sub test123()
 
Dim a As String, b As String
Dim c As Integer, d As Integer, i As Integer, j As Integer
Dim fichier As String
Dim ws1 As Worksheet, ws2 As Worksheet
Dim wb As Workbook
 
Set ws2 = ThisWorkbook.Worksheets("Data") 'feuille du fichier appelant
 
 
a = "F:\ACTIVITE SERVICE\TRAITEMENT QUOTIDIEN\"
b = "*.xls*"
 
fichier = Dir(a & b)
 
Do While fichier <> ""
 
Set wb = Workbooks.Open(a & b)
Set ws1 = wb.Worksheets("Feuil1")
 
c = ws1.Range("A1").End(xlDown).Row 'nombre de lignes de données dans le fichier appelé
d = ws2.Range("A10000").End(xlUp).Row 'nombre de lignes de données dans le fichier appelant
 
For i = 2 To c ' les lignes des données à copier
ws2.Cells(d + i - 1, 1) = ws1.Cells(i, 1) 
ws2.Cells(d + i - 1, 2) = ws1.Cells(i, 2)
ws2.Cells(d + i - 1, 3) = ws1.Cells(i, 3)
Next i
 
wb.Close
fichier = Dir
 
Loop 'ça loop sur le même fichier
 
Set ws2 = Nothing
 
End Sub

Je trouve ça d'autant plus bizarre que mon code me paraît ressembler à tout ce que j'ai pu voir partout ailleurs.

Si quelqu'un pouvait m'aiguiller, je lui en serait reconnaissant.

Merci à vous.

21/08/2019, 15h21
Menhir

Tu n'utilises pas la variable "fichier" dans ta boucle.
Tu te contentes de la renseigner mais pour le Open, tu utilises la variable "b" qui n'est pas modifiée à l'intérieur de la boucle.

Pour débuguer un cas comme ça, vérifie tes variables.
Par exemple, tu aurais plus placer après ton While une ligne Debug.Print fichier qui t'aurait permis de voir que le Dir() fonctionnait correctement et que ce n'était pas lui le coupable.

Bonjour,

Le code ci-dessous fonctionne chez moi:

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
Sub test123()
 
Dim a As String, b As String
Dim c As Integer, d As Integer, i As Integer, j As Integer
Dim fichier As String
Dim ws1 As Worksheet, ws2 As Worksheet
Dim wb As Workbook
 
 
a = "D:\Mes documents\"
b = "*.xls*"
 
fichier = Dir(a & b)
 
Do While fichier <> ""
 
  Set wb = Workbooks.Open(a & fichier)
  Set ws1 = wb.Worksheets("Feuil1")
 
  c = ws1.Range("A1").End(xlDown).Row 'nombre de lignes de données dans le fichier appelé
  d = ws2.Range("A10000").End(xlUp).Row 'nombre de lignes de données dans le fichier appelant
 
  For i = 2 To c ' les lignes des données à copier
    ws2.Cells(d + i - 1, 1) = ws1.Cells(i, 1) 
    ws2.Cells(d + i - 1, 2) = ws1.Cells(i, 2)
    ws2.Cells(d + i - 1, 3) = ws1.Cells(i, 3)
  Next i
 
  wb.Close
  fichier = Dir
 
Loop 
 
End Sub

j'ai changé la ligne ci-dessous, a et b ne variant jamais il est normal tu que obtienne toujours la même réponse

Code:

1
2
 
Set wb = Workbooks.Open(a & b)

21/08/2019, 16h34
Megguido21

OK merci pour votre aide.

Je n'avais pas conscience que fichier aurait dû être dans le loop.

Pour Debug.Print j'avoue que ce n'est pas un réflexe. Mais ça rentrera à force.

Bonne fin de journée à vous deux.

/résolu.