Macro ouverture fichiers

Bonjour à tous,

Je suis complètement débutant dans le monde du VBA. J'aimerais dans le cadre de mon travail réaliser une macro qui me permettrait d'ouvrir plusieurs fichiers dont je connais déjà les noms, mais dont les répertoires changent. Je dois réaliser des simulations en série, et j'aimerais en utilisant Excel ouvrir plusieurs fichiers issus d'une simulation
J'aimerais aboutir aux fonctionnalités suivantes:
- choix du dossier dans lequel se trouves les différents fichiers que je souhaite ouvrir
- en précisant dans la macro les noms des fichiers que je souhaite ouvrir, les faire s'ouvrir dans le même fichier Excel mais chacun dans une feuille différente

Merci d'avance

Cordialement

Le paramètre de Workbooks.Open est une simple String (chaine de caractère).
Donc, tu peux la composer comme tu veux.
La première question est de savoir de quelle façon tu veux renseigner le chemin de tes fichiers et à quel point il est variable.
Il y a différentes méthodes possibles.

Une fois que tu as récupérer ce chemin, tu le places dans une variable String.
Tu peux aussi placer tes nom de fichier dans un tableau de variables String et ouvrir tout ça avec une boucle en concaténant chemin et nom de fichier.

Ca donnerait quelque chose comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Dim Chemin As String Dim NomFichier(10) As String Dim Fichier(10) As Workbook Dim i As Integer   Fichier(1) = "MonFichier A" Fichier(2) = "MonFichier B" Fichier(3) = "MonFichier C"   ' Ici, il faudrait placer la procédure qui récupère le chemin   For i = 1 to 10 If NomFichier(i) = "" Then Exit For Set Fichier(i) = Workbooks.Open(Chemin & NomFichier(i)) Next i

---

Merci de votre réponse rapide,
j'y ai ajouté une partie pour choisir le dossier dans lequel on trouve les fichiers

Voici ce que cela donne

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

Sub lecture()     Dim NomFichier(10) As String Dim Fichier As Workbook Dim i As Integer     NomFichier(1) = "\fichier1.dat" NomFichier(2) = "\fichier2.dat" NomFichier(3) = "\fichier3.dat"   ' Ici, il faudrait placer la procédure qui récupère le chemin   Dim chemin As String With Application.FileDialog(msoFileDialogFolderPicker) InitialFileName = ActiveWorkbook.Path & "\" .Show If .SelectedItems.Count > 0 Then chemin = .SelectedItems(1)     Worksheets("Feuil1").Activate For i = 1 To 10 If NomFichier(i) = "" Then Exit For Set Fichier(i) = Workbooks.Open(chemin & NomFichier(i)) Next i   End With   End Sub

---

Les 3 fichiers s'ouvrent bien, comment faut-il fait pour qu'ils s'ouvrent sur un même fichier Excel, dans 3 feuilles différentes ?

Merci d'avance

Cordialement

Citation:

---

Envoyé par leolomi

Les 3 fichiers s'ouvrent bien, comment faut-il fait pour qu'ils s'ouvrent sur un même fichier Excel, dans 3 feuilles différentes ?

---

Il n'est pas possible qu'ils s'ouvrent comme un seul fichier puisqu'il s'agit de trois fichiers différents.
Par contre, après les avoir ouvert, tu peux transférer les onglets de chacun dans un seul en utilisant la méthode Move de l'objet Worksheet.