Bonjour à tous,

Je veux réaliser un fichier qui regroupe 3 autres fichiers excel (des suivit d'activité contenant plusieurs feuilles formalisées de la même manière) et ce de manière à ce que l'utilisateur n'ai qu'a choisir les 3 fichiers à importer.

J'ai donc bien commencé (j'ai fait un formulaire afin de faire selectionner à l'utilisateur les fichiers à importer et récupérer leurs "adresses")
mais je bloque au moment ou je doit aller copier les données des 3 fichiers pour les coller dans la feuil1 de "prévisionnel".

Je mets le code que j'ai commencé à faire pour mon fichier "prévisionnel" et j'envoie ce meme fichier ainsi que deux suivi d'activité




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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Dim ligne_debut As Integer: Dim colonne_début As Integer
Dim ligne_fin As Integer: Dim colonne_fin As Integer
Dim ligne_encours As Integer: Dim colonne_encours As Integer
 
 
 
Private Sub importer_Click()
Dim fichier_choisi As String
fichier_choisi = Application.GetOpenFilename("Fichier Excel (*.xls), *.xls")
  If (LCase(fichier_choisi) <> "faux" And fichier_choisi <> "0") Then
    liste_fichiers.AddItem (fichier_choisi)
  End If
 
 
End Sub
 
Private Sub sortie_Click()
 
End Sub
 
Private Sub traiter_Click()
 
Dim nom_fichier As String
 
ligne_debut = 2: colonne_debut = 1
ligne_encours = ligne_debut: ligne_encours = ligne_fin
Cells.Clear
colle_données
For i = 0 To liste_fichiers.ListCount
copiecolle (liste_fichiers.List(i))
Next i
 
 
 
End Sub
Private Sub fermer_Click()
 
End Sub
 
 
 
End Sub
 
Private Sub copiecolle(fichier As String)
Dim debut As Integer: Dim position As Integer: text As Variant
 
Open fichier For Input As #1
 
Close #1
 
 
End Sub
Je vous remercie de votre aide