macro qui regroupe dans un fichier excel plusieurs fichiers

Version imprimable

08/10/2019, 00h07
michamicha94

macro qui regroupe dans un fichier excel plusieurs fichiers

Bonjour,

je voudrais trouver une macro qui regroupe dans un fichier excel plusieurs fichiers avec un ou plusieurs onglets mais en ne consolidant aucune données. la macro doit se contenter de rappatrier les onglets les uns à la suite des autres sans les regrouper sur la meme feuille.

En gros :
j’ai un fichier test1 qui contient 3 onglets A B C contenu dans un dossier
j’ai un fichier test2 qui contient 4 onglets M N O P contenu dans le meme dossier

je voudrais un fichier unique avec les onglets A B C M N O P et non un fichier avec un onglet consolidé.

Merci d’avance.
08/10/2019, 08h42
Menhir

Il suffit d'appliquer Copy sur la collection Worksheets (ne pas oublier le "s" final).
Ca copiera l'ensemble des onglets du classeur.

A lire : https://docs.microsoft.com/fr-FR/off...orksheets.copy
08/10/2019, 09h16
MarcelG

Bonjour à vous, Bonjour au Forum,

A noter: un tableau de noms de feuilles est accepté comme paramètre de la collection Worksheets, à laquelle sera affectée la méthode

Code:

Worksheets(Array("lawks1", "lawks2"))

Bonjour à tous
Etant autodidacte et débutant VBA ma réponse nécessite sans aucun doute des améliorations
Je ne sais pas comment ouvrir les onglets en utilisant un ARRAY comme recommande MarcelG c'est pourquoi je procède classeur par classeur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub importDonnées()
Dim wkA As Workbook, wkB As Workbook
Dim chemin As String, fichier As String
Dim j As Long
Dim k As Long
Application.ScreenUpdating = False
Set wkA = ThisWorkbook 'le dossier qui va recevoir les données
chemin = "C:\Users\DELL\Desktop\Divers ABD\" 'adresse commun pour les deux dossiers sources
'******************************* Copier données Classeur A
fichier = "A" 'Nom du classeur 1
Workbooks.Open chemin & fichier & ".xlsx"
Set wkB = ActiveWorkbook
j = 2
    For i = 1 To Worksheets.Count
        k = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row
        wkB.Worksheets(i).Range("A2:B" & k).Copy wkA.Sheets("Feuil1").Cells(j, 1)
        j = wkA.Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
    Next i
wkB.Close True
 
'******************************* Copier données Classeur B
fichier = "B"
Workbooks.Open chemin & fichier & ".xlsx"
Set wkB = ActiveWorkbook
    For i = 1 To Worksheets.Count
        k = Worksheets(i).Range("A" & Rows.Count).End(xlUp).Row
        wkB.Worksheets(i).Range("A2:B" & k).Copy wkA.Sheets("Feuil1").Cells(j, 1)
        j = wkA.Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
    Next i
wkB.Close True
 Application.ScreenUpdating = True
End Sub

J'espère que ça donne au moins un début de réponse
BONNE CONTINUATION

08/10/2019, 12h02
Menhir
Etant donné que ce sont les onglets qui sont à copier, la solution est bien plus simple :
Code:

1 2 Workbooks("test2").Worksheets.Copy Workbooks("test1").Worksheets.Copy Before:=ActiveWorkbook.Sheets(1)
10/10/2019, 19h07
michamicha94

macro qui regroupe dans un fichier excel plusieurs fichiers
Citation:
Envoyé par Menhir

Etant donné que ce sont les onglets qui sont à copier, la solution est bien plus simple :

Code:

1 2 Workbooks("test2").Worksheets.Copy Workbooks("test1").Worksheets.Copy Before:=ActiveWorkbook.Sheets(1)
Bonjour a tous, je voulais vous remercier pour vos réponses. Cela m'aide beaucoup.

Etant assez novice dans le domaine des marco/VBA, je ne suis pas certain de tous comprendre.

J'ai beaucoup de fichier (+50 avec plusieurs onglets) donc j'ai l'impression que les marcos que je retrouve m'oblige a citer le nom de chaque fichier afin de pour lancer la macro. je voudrais donc si je ne me trompe pas avoir une marco qui recupere les fichiers d'un dossier sans les nommer/

En tous cas merci à tous pour vos réponses.
11/10/2019, 08h46
Menhir

Citation:

Envoyé par michamicha94

J'ai beaucoup de fichier (+50 avec plusieurs onglets)

Mauvaise demande, mauvaise réponse.
Si tu précises dans ta demande que tu traites deux fichiers, tu auras la réponse pour deux fichiers.

Citation:

je voudrais donc si je ne me trompe pas avoir une marco qui recupere les fichiers d'un dossier sans les nommer/

S'il s'agit de TOUS les fichiers d'un répertoire, tu peux utiliser une boucle While avec une fonction Dir().
https://docs.microsoft.com/fr-fr/off...wend-statement
https://docs.microsoft.com/fr-fr/off...p/dir-function

A chaque tour de boucle, tu ouvres le fichier avec Workbooks.Open.
https://docs.microsoft.com/fr-FR/off...workbooks.open

Tu copies les onglets dans le fichier destination avec Worksheets.Copy comme indiqué dans ma réponse précédente.

Tu fermes le fichier avec un Close.
https://docs.microsoft.com/fr-FR/off...workbook.close
11/10/2019, 08h47
MarcelG

Bonjour à vous, Bonjour au Forum,

Pour boucler sur les fichiers d'un répertoire, voir cet article dans la :faq: