Re : renseigner un fichier synthèse avec X fichiers
bonjour forum et sousou
j'avance à très petit pas, faute de temps.
voici où j'en suis (voir plus bas)
ce que je ne comprends pas, c'est que lorsque j'active la macro, celle-ci ouvre le premier fichier.
la boucle continue (n s'incrémente), par contre, lorsque j'espionne "deb", il ne varie pas !!!!! donc, n'ouvre pas les autres fichiers.
Ensuite, il ne restera plus qu'a copier la cell R14 de chaque fichier dans la colonne C, avec sa ligne associée, dans le fichier ou se trouve ma macro.
merci par avance à tous
Sub chargement()
Fichier = "test_" & Sheets(1).Range("C3")
chemin = ThisWorkbook.Path
With Sheets(1)
Set deb = .Range("A6")
n = 1
Do While deb.Offset(n, 0) <> ""
Workbooks.Open (chemin & "\" & Fichier & "_" & deb.Value & ".xlsx")
'Sheets("Sheet1").Activate
'Range("R14").Copy
Range("E3") = n
Range("E4") = deb
n = n + 1
Loop
End With
Exit Sub
End Sub