Macro copier coller feuille d'un classeur dans un autre classeur [Résolu/Fermé]

Signaler
Messages postés
8
Date d'inscription
mardi 16 janvier 2018
Statut
Membre
Dernière intervention
24 janvier 2018
-
 zoro1791 -
Bonjour à tous,

Je souhaite créer une macro qui me permets de copier des colonnes (C:O) à partir de la ligne 2 d'un onglet nommé (RN) de tous les classeurs excel déposés dans un dossier (DO) et les coller dans mon classeur ouvert. En d'autre terme, quand je clique sur ma macro de mon classeur actif, je dois me retrouver avec toutes les données des colonnes (C:O) des onglets (RN) "sans les titres des colonnes donc sans la ligne 1" de tous les classeurs déposés dans le dossier (DO).
J'ai réussi à faire la macro mais j'ai un problèmes : l'onglet copié de chaque classeur déposé dans le dossier (DO) est la feuille active et non la feuille (RN) je n'arrive pas à trouver la syntaxe qui dit à la macro que je veux copier uniquement l'onglet (RN) de chaque classeur déposé dans (DO). Merci d'avance les amis
Voila ma macro :


Sub Regroupe()
sousRépertoire = "DO"
[A2].CurrentRegion.Offset(1, 0).Clear
Set maitre = ActiveWorkbook
Repertoire = ThisWorkbook.Path
nf = Dir(Repertoire & "\" & sousRépertoire & "\*.xls")
Do While nf <> ""
Workbooks.Open Filename:=Repertoire & "\" & sousRépertoire & "\" & nf
n = [A1].CurrentRegion.Rows.Count - 1
[A1].Columns("C:O").Offset(1, 0).Copy _
maitre.Sheets(1).[A65000].End(xlUp).Offset(1, 0)
ActiveWorkbook.Close False
nf = Dir
Loop
End Sub

4 réponses

Messages postés
16247
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 octobre 2020
3 049
Re,

ci joint le classeur "conso rn"en retour

on ouvre pas les classeurs A à D (+confort et rapidité)
https://mon-partage.fr/f/WSyLD9Cl/

Edit 11:59
petites améliorations sur le code ; annule le lien précédent
https://mon-partage.fr/f/kMicQHjr/

 Michel
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60511 internautes nous ont dit merci ce mois-ci

Messages postés
8
Date d'inscription
mardi 16 janvier 2018
Statut
Membre
Dernière intervention
24 janvier 2018

WOW ça marche à merveille. ça résout à 100% mon problème. Merci 1000 fois Michel pour cette rapidité et efficacité !!!! Bravo
Messages postés
16247
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 octobre 2020
3 049
Bonjour

Copies tu que des données et quel type(texte,nombre...)?

Combien de classeurs à copier ?

AU besoin montrer la structure d'un classeur source

dans l'attente

Messages postés
16247
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 octobre 2020
3 049
Bonjour

désolé, je ne suis pas équipé avec 7z

j'utilise zip...
Messages postés
8
Date d'inscription
mardi 16 janvier 2018
Statut
Membre
Dernière intervention
24 janvier 2018

Rebonjour Michel,

j'ai compressé avec Windows 10 cette fois ci : https://www.cjoint.com/c/HAsqmGsf3Zr
Messages postés
16247
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 octobre 2020
3 049
Bonjour,
Bien reçu, merci
Dès que possible, sois patient !
Messages postés
8
Date d'inscription
mardi 16 janvier 2018
Statut
Membre
Dernière intervention
24 janvier 2018

merci infiniment :)
Messages postés
8
Date d'inscription
mardi 16 janvier 2018
Statut
Membre
Dernière intervention
24 janvier 2018

Bonjour Michel,

J'ai essayé d'adapter votre macro à un cas réel mais c'est très lent et la capacité est dépassée.
J'ai rajouté à votre macro : cellulevisible pour ne pas récupérer les lignes cachées après les filtres mais ça ne marche pas.
auriez-vous une solution ?
voila mon cas https://www.cjoint.com/c/HAxstyug5Lr

Bien à vous.
Messages postés
16247
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 octobre 2020
3 049
Bonjour,

pourquoi xlcellsvisible ?....!!!
j'avais reçu des classeurs au format xls ou xlsx et je trouve des classeurs au format xlsb mal reconnus par ADODB...
Ligvid passe en "Long" compte tenu du nombre de lignes important dans les classeurs: voir dans un tuto un chapitre sur les variables...






Messages postés
8
Date d'inscription
mardi 16 janvier 2018
Statut
Membre
Dernière intervention
24 janvier 2018

Bonjour Michel,

J'ai été contraint d'enregistrer mes fichiers en format xlsb car ça réduit leurs tailles considérablement (les fichiers sont destinés à être envoyés chaque semaine par Outlook). J'ai aussi rajouté xlcellsvisible pensant que ça n'allait copier que les cellules visibles mais apparemment ça ne marche pas comme ça.
C'est dû à ma méconnaissance de ADODB.
Y a t-il une solution ?
Merci d'avance.
je pensais que l'extention des classeurs n'allait pas avoir d'impact si je dois la changer après mais bon. on n'a pas tous forcément les mêmes réflexes. merci quand même pour ton aide ;)
Messages postés
16247
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
17 octobre 2020
3 049
Ça marchait avec des classeurs xlsx, donc...
et avec dim ligvid as long

Quand tu demandes de l'aide sur du VBA, sois extrêmement précis et exhaustif,dans la description de ton problème.
c'est d’ailleurs pas forcément évident à rédiger suivant le vieux proverbe "un problème bien posé est à moitié résolu"