Bonjour le forum,
Je suis novice dans la programmation VBA et j'ai récupéré ce code (ci dessous) que j'ai tenté d'adapter à mon sujet.
La structure de mes fichiers à recopier (Exemple_) et de ma base (Attendu_v0.xlsm) est identique
Le problème que je rencontre est le suivant :
seule la ligne n°9 du 1er fichier est recopiée
les ligne du 2ième fichier (9 à 500) sont recopiées
ensuite, c'est fini : les autres fichiers ne sont pas ouverts et les données non recopiées
Merci pour vos lumières
Chb44
Quote
Sub COMPIL()
Application.ScreenUpdating = False
chemin = ThisWorkbook.Path & "/"
For i = 1 To 2
Workbooks.Open (chemin & "Exemple_" & i & ".xls")
Windows("Exemple_" & i & ".xls").Activate
Rows("9:500").Select
Selection.Copy
Windows("Attendu_v0.xlsm").Activate
Sheets("Feuil1").Range("a8").Offset(i, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Workbooks("Exemple_" & i & ".xls").Close False
Next i
End Sub
Unquote