importer plage de données de plusieurs classeur

[jean paul]

bonjour à tous
j'utilisais ce code inspirer d'un code de Michel xld pour importer une plage
(c7:g88) d'un classeur dans un classeur recapitulatif,mais maintenant j'ai un nombre variable de classeurs dont les noms sont en colonne I
je souhaite que la plage du premier classeur se colle en a1:e83,la 2eme en a84:e165,la 3eme en a166;e248 ainsi de suite pour tous les classeurs
merci de votre aide
JP

Sub ImporterDepuisPlusieursClasseurs()
Dim Cell As Range
Dim Y As Byte

For Each Cell In Range("i1:i4")'nom de mes classeurs


With ActiveSheet.Range("a1:e83")
.FormulaArray = "='" & ThisWorkbook.Path & "\[" & Cell & "]" & "compte" & "'!" & Range("c7:g88").Address(0, 0)'Range("c7:g88").plage à importer
.Value = .Value
End With

Next Cell

End Sub

 

[pierrejean]

Re : importer plage de données de plusieurs classeur

bonjour jean paul

A tester:

Sub ImporterDepuisPlusieursClasseurs()
Dim Cell As Range
Dim Y As Byte
Dim n As Integer
For Each Cell In Range("i1:i4")  'nom de mes classeurs
n = n + 1
  With ActiveSheet.Range("a" & 1 + (n - 1) * 83 & ":e" & n * 83)
   .FormulaArray = "='" & ThisWorkbook.Path & "\[" & Cell & "]" & "compte" & "'!" & Range("c7:g88").Address(0, 0) 'Range("c7:g88").plage à importer
   .Value = .Value
  End With
Next Cell
End Sub

 

[jean paul]

Re : importer plage de données de plusieurs classeur

bonjour Pierre Jean
Testé sans probleme , un grand merci pour ta contribution

encore une petite question
ici dans ce code j'ai 4 classeurs
le nombre de classeurs risque d'augmenter,est il possible de prendre en compte cette augmentation sans venir modifier cet partie de code > Range("i1:i4")

j'ai essayé
For Each Cell In Range("i20").End(xlUp)) sans succes

cordialement jean paul

 

[jean paul]

Re : importer plage de données de plusieurs classeur

ok j'ai trouvé
j'ai ajouté
If Cell = "" Then Exit Sub
merci