Macro copier coller feuille d'un classeur dans un autre classeur

Résolu/Fermé
zoro1791 Messages postés 8 Date d'inscription mardi 16 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018 - 16 janv. 2018 à 11:29
 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
A voir également:

4 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié le 19 janv. 2018 à 12:01
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
zoro1791 Messages postés 8 Date d'inscription mardi 16 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018
19 janv. 2018 à 13:34
WOW ça marche à merveille. ça résout à 100% mon problème. Merci 1000 fois Michel pour cette rapidité et efficacité !!!! Bravo
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
17 janv. 2018 à 11:03
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

0
zoro1791 Messages postés 8 Date d'inscription mardi 16 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018
18 janv. 2018 à 13:28
Bonjour Michel,

Je copie toutes les données (chiffre et texte) en format STANDARD. Il y a 4 classeurs à copier (1 seul onglet à copier dans chacun de ces classeurs)
Voici mon fichier (conso RN) ou je veux mettre ma macro et 4 fichiers exemples (A B C D) qui contiennent l'onglet à copier (RN).
A l'exécution de la macro "regroupe" dans le fichier (conso RN) je n'ai que les données de l'onglet RN des 2 classeur C et D car dans A et B RN n'est pas l'onglet actif.
DSL pour ma réponse tardive.

Merci d'avance.
0
zoro1791 Messages postés 8 Date d'inscription mardi 16 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018
18 janv. 2018 à 13:34
voici le lien pour accéder à mes fichiers :
je précise que j'ai copie colle toutes les colonnes au lieu de (C:O) car ça faisait bugger ma macro.

https://www.cjoint.com/c/HAsmFKMPoYr
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
18 janv. 2018 à 13:45
Bonjour

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

j'utilise zip...
0
zoro1791 Messages postés 8 Date d'inscription mardi 16 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018
18 janv. 2018 à 17:27
Rebonjour Michel,

j'ai compressé avec Windows 10 cette fois ci : https://www.cjoint.com/c/HAsqmGsf3Zr
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
19 janv. 2018 à 08:58
Bonjour,
Bien reçu, merci
Dès que possible, sois patient !
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 janv. 2018 à 09:48
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...






0
zoro1791 Messages postés 8 Date d'inscription mardi 16 janvier 2018 Statut Membre Dernière intervention 24 janvier 2018
24 janv. 2018 à 11:15
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.
0
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 ;)
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
24 janv. 2018 à 11:49
Ç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"
0