Copie plusieurs classeurs fermés

Bonjour,

Je dispose de plusieurs classeurs Excel intitulé Atelier1, Atelier2, Atelier3 contenant chacun une seule feuille intitulée BDD avec les même colonnes.

Je souhaiterai rassembler la feuille BDD de chaque Atelier dans un seul classeur. J'ai trouvé sur un forum ce code pour copier coller les données de la feuille BDD de l'Atelier1 dans un nouveau classeur qui marche très bien.

Cependant, je n'arrive pas à adapter ce code pour copier coller plusieurs classeurs (Atelier2 et Atelier3) dans le nouveau classeur. Quelqu'un aurait une idée svp?

Merci d'avance pour l'aide que vous pourrez m'apporter.

Le code :

Sub CopieClasseurFerme()
Dim Cn As Object, Rst As Object
Dim Fichier As String, texte_SQL As String
Dim j As Integer 

Fichier = "C:\Atelier\Atelier1.xlsm" 
Set Cn = CreateObject("ADODB.Connection")
Cn.Provider = "MSDASQL"
Cn.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" & "DBQ=" & Fichier & "; ReadOnly=False;" 
texte_SQL = "SELECT * FROM [BDD$]"

Set Rst = CreateObject("ADODB.Recordset")
Rst.Open texte_SQL, Cn, 3

With ActiveSheet
For j = 1 To Rst.Fields.Count ' 
.Cells(1, j) = Rst.Fields(j - 1).Name
Next j
.Range("A2").CopyFromRecordset Rst
End With

Cn.Close
Set Rst = Nothing
Set Cn = Nothing

ActiveWorkbook.Save

End Sub

Bonjour

Au lieu de VBA puisque tu as 2019 utilise PowerQuery intégré à Excel

Bonjour,

Le problème est que je ne suis pas sûr que les autres personnes travaillant sur ce classeur soit à l'aise avec PowerQuery, c'est pourquoi je cherchais à le faire avec une macro qui se déclenche directe à l'ouverture du classeur.

Re

Une requête peut se déclencher de même donc c'est tout aussi transparent

D'accord , merci pour ta réponse.