Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

importer plage de données de plusieurs classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion jean paul
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jean paul

Guest
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
 
Trier par date Trier par votes
Re : importer plage de données de plusieurs classeur

bonjour jean paul

A tester:

Code: 
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
652
safranien
S
F
  • Question Question
Microsoft 365 Changement de fonctionnement d'une macro suite au passage à windows 10
Réponses
1
Affichages
630
francha62
F
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
839
guiyom
G
Y
  • Question Question
Microsoft 365 récupérer données de tableau structuré sur une plage
Réponses
2
Affichages
705
jpb388
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
616
Maxou69
M
C
  • Question Question
XL 2019 Coller valeur dans autre classeur
Réponses
14
Affichages
813
carlos
C
J
  • Question Question
XL 2019 Copier valeur plage cellule depuis classeur fermé
Réponses
1
Affichages
724
Hasco
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
F
  • Question Question
XL 2016 Envoi mail Outlook plage de cellule (qui ne se déforme pas)
Réponses
13
Affichages
2 K
fanch55
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
970
GADENSEB
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
670
Mika07
M
P
  • Question Question
Microsoft 365 Importer des données de plusieurs fichiers excel vers un seul
Réponses
6
Affichages
2 K
Pimprenelle9
P
F
  • Résolu(e)
XL 2010 Importer des données de plusieurs fichiers sans les ouvrir
Réponses
9
Affichages
2 K
Hasco
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
M
  • Question Question
XL 2013 VBA-Envoyer par email "Plage de cellules collée dans un nouveau classeur en gardant formules de certaines cellules
Réponses
2
Affichages
1 K
MONTREAL2020
M
A
  • Résolu(e)
XL 2019 Fichier = Fichier
Réponses
4
Affichages
893
patricktoulon
  • Question Question
XL 2021 import-informations-classeurs-fermes
2 3
Réponses
40
Affichages
4 K
Usine à gaz
J
  • Résolu(e)
XL 2016 Comment importer un classeur Excel dans un autre?
Réponses
2
Affichages
2 K
Jovial87
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…