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

Copie d'une colonne de plusieurs classeur dans un seul classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Lynk Zel
  • 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
L

Lynk Zel

Guest
Bonjour le forum et bonne année 2009 😀

J'aimerais avoir une macro dans un classeur (TOTO) qui :
- copie une colonne et plusieurs lignes (B1 jusqu'à B52) de tous les classeurs Excel(1,2,3,4,5...) qui se trouveront dans un dossier particulier.
- colle ces cellules dans le classeur TOTO les une à côtés des autres en commançant par la colonne B, puis la colonne C et ainsi de suite (les cellules de 1 viendront se copier en B, les cellules de 2 viendront se copier en C, etc.0..).
- garde aussi la mise en forme de chaque cellules copiées de chaque classeurs dans TOTO.

voilà, c'est tout, si vous avez des questions, je suis dispo pour répondre.

merci
@+
 
Trier par date Trier par votes
Re : Copie d'une colonne de plusieurs classeur dans un seul classeur

Bonjour,

Voici une macro à adapter à ton cas (dans le classeur toto):

Code: 
Sub recupe()
  Dim Classeur As Workbook, ColSuiv As Long
  With Application.FileSearch
    .LookIn = "[B]C:\Mes Documents[/B]"
    .SearchSubFolders = False
    .Filename = "*.xls"
    .FileType = msoFileTypeExcelWorkbooks
    If .Execute > 0 Then
      For i = 1 To .FoundFiles.Count
        Set Classeur = GetObject(.FoundFiles(i))
        ColSuiv = Range("IV1").End(xlToLeft).Column + 1
        Classeur.Sheets(1).Range("B1:B52").Copy ThisWorkbook.Sheets(1).Cells(1, ColSuiv)
      Next i
    End If
  End With
End Sub

Cela cherche tous les fichiers excel dans C:\Mes Documents et fait ce que tu demandes.
 
Vote positif 0 Vote négatif
Re : Copie d'une colonne de plusieurs classeur dans un seul classeur

Bonjour Skoobi, le forum,
ben voilà encore une jolie démonstration que je vais mettre au chaud
a+ et merci pour ces codes
Papou
 
Vote positif 0 Vote négatif
Re : Copie d'une colonne de plusieurs classeur dans un seul classeur

Bonjour Skoobi, Paritec, le forum,
merci pour ce code, il fonctionne tres tres bien.
bonne journée.
@+
 
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

R
  • Question Question
XL 2010 Copie de plusieurs plages de cellules spécifiques dans le presse-papier
2
Réponses
20
Affichages
950
Dranreb
J
  • Question Question
Autres Extraire chaque mot d'une phrase dans plusieurs cellule en colonne même ligne
2
Réponses
17
Affichages
580
jmst1
J
  • Résolu(e)
Microsoft 365 Récupération d'une valeur particulière dans un tableau...
Réponses
13
Affichages
445
nightswan
C
  • Résolu(e)
Microsoft 365 Recherche de doublons à plusieurs critères sur plusieurs colonnes
Réponses
4
Affichages
385
job75
M
  • Question Question
XL 2016 pb création de tableau par macro
Réponses
10
Affichages
419
ChTi160
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
640
spike29
S
D
  • Question Question
XL 2021 Externaliser une base de données
Réponses
1
Affichages
213
vgendron
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
652
safranien
S
  • Question Question
XL 2016 copie de donnees horizontale en verticale
2
Réponses
25
Affichages
994
job75
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
R
  • Question Question
XL 2010 Copie de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
918
Renaud22
R
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
558
AtTheOne
E
  • Question Question
LibreOffice Calc Recherche sur plusieurs onglets pour constituer un tableau
Réponses
0
Affichages
326
evindi
E
L
  • Résolu(e)
Microsoft 365 Retourner l'en-tête colonne correspondante à une quantité donnée dans une ligne
Réponses
4
Affichages
410
LegVal
L
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
870
Max
M
R
  • Résolu(e)
Microsoft 365 Aide formule somme si textes retrouvés dans cellules d'une colonne avec plusieurs conditions
Réponses
8
Affichages
520
richard31
R
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
S
  • Résolu(e)
XL 2010 Attribuer ou Changer la valeur d'une cellule en validation de données
2
Réponses
19
Affichages
2 K
Sirberthoult
S
W
  • Résolu(e)
XL 2019 Somme d'éléments (retours à la ligne) dans un segment, ou plusieurs segments, horizon·tal·aux de cellules
Réponses
2
Affichages
218
Webperegrino
W
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
887
Max
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…