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

Question

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

michel_m · Answer

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 · Answer

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

michel_m · Answer

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...

michel_m · Answer

Ç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"

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

4 réponses

Discussions similaires