Exporter des données de plusieurs fichiers Excel dans un même fichier Excel

Bonjour, je viens vers vous car j'ai un problème au niveau de mon codage, je suis assez novice et donc je ne comprends pas pourquoi cela ne marche pas...

Je vous copie colle le code ( j'ai laissé d'autres variables qui sont utiles pour le reste du code mais qui ne pose pas de problème donc je ne le copie pas) :

Dim i As Integer, y As Integer, n As Integer, nbLignes, nbentites As Integer

Dim Recherche As String

Dim wb, wb2, wb3 As Workbook

Dim wsD, wsC, wsS, wsElim, wsP As Worksheet

Dim tab_1(), tab_2 As Variant

Dim Openfile1, Openfile2, Openfile3, NomP, NomE, NomS, x, j, m As String

Dim Informations, Nomentitedetentrice, Devise As Variant

Dim Recherche1, Recherche2 As Variant

With Workbooks

Openfile1 = Application.GetOpenFilename("Tous les Fichiers (*.*),*.*")

.Open Openfile1

Set wb = Workbooks.Open(Openfile1)

NomP = ActiveWorkbook.Name

'wb1 sera le fichier périmètre

Set wsP = Workbooks(NomP).Worksheets(1)

MsgBox wsP.Name

Openfile2 = Application.GetOpenFilename("Tous les Fichiers (*.*),*.*")

.Open Openfile2

Set wb2 = Workbooks.Open(Openfile2) 'wb2 sera le fichier élimination des titres figaro

NomE = ActiveWorkbook.Name

'wb1 sera le fichier périmètre

Set wsElim = Workbooks(NomE).Worksheets(1)

MsgBox wsElim.Name

'Set wsElim = wb2.Worksheets(1)

Openfile3 = Application.GetOpenFilename("Tous les Fichiers (*.*),*.*")

.Open Openfile3

Set wb3 = Workbooks.Open(Openfile3)

NomS = ActiveWorkbook.Name

'wb1 sera le fichier périmètre

Set wsS = Workbooks(NomE).Worksheets(1)

MsgBox wsS.Name 'wb3 sera le fichier scope

MsgBox wb.Name

MsgBox wb2.Name

MsgBox wb3.Name

End With

Et là j'ai toujours les mêmes noms de feuilles alors que ce sont des noms de feuilles différents, et les workbooks ne sont pas les bons (pour les Msgbox wb.Name par exemple) alors que je clique dans un ordre précis sur chaque fichier !

Je n'y comprends rien !

Merci d'avance pour votre aide !

Bonjour et bienvenu,

Sachez que pour exporter des données, il existe un complément gratuit d'excel qui s'appel power Query

Ici, le lien de téléchargement : https://www.microsoft.com/fr-FR/download/details.aspx?id=39379

Il est bien plus efficace qu'une macro pour cela et bien plus rapide

Cordialement

Le problème étant que c'est pour le boulot, et donc faire installer à chaque personne les outils nécessaire risque d'être compliqué !

Mais merci bien pour ton aide !

Personne ne peut m'aider à résoudre cela ?