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

Messages postés
8
Date d'inscription
mardi 16 janvier 2018
Statut
Membre
Dernière intervention
24 janvier 2018
- - Dernière réponse :  zoro1791 - 24 janv. 2018 à 12:16
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
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
16002
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
5 décembre 2019
2834
1
Merci
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

Dire « Merci » 1

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

CCM 62798 internautes nous ont dit merci ce mois-ci

zoro1791
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
16002
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
5 décembre 2019
2834
0
Merci
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

michel_m
Messages postés
16002
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
5 décembre 2019
2834 -
Bonjour

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

j'utilise zip...
zoro1791
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
michel_m
Messages postés
16002
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
5 décembre 2019
2834 -
Bonjour,
Bien reçu, merci
Dès que possible, sois patient !
zoro1791
Messages postés
8
Date d'inscription
mardi 16 janvier 2018
Statut
Membre
Dernière intervention
24 janvier 2018
-
merci infiniment :)
zoro1791
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
16002
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
5 décembre 2019
2834
0
Merci
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...






zoro1791
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
16002
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
5 décembre 2019
2834
0
Merci
Ç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"