Discussion :

[leolomi]

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

[Menhir]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[leolomi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

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.