Discussion :

[abbado]

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

[kiki29]

Salut, peut-être en t'inspirant de Fusion de fichiers Excel XLS (2), à toi de voir. Un mode d'emploi sommaire se trouve ici, même si je n'ai reçu à ce jour aucune réponse de la part de TheMWette.

[abbado]

Bonjour et merci de ta réponse !!
J'avoue que c'est pas facile de comprendre un codage VBA quand on n'y connais presque rien(comme moi)

[abbado]

J'ai fait ce code pour le copier coller mais il m'indique une erreur "sub ou function non défini" en surlignant en jaune la 1ere ligne (déclaration du sub).

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
Private Sub copiecolle(fichier As String)
Dim debut As Integer: Dim position As Integer: Dim text As Variant: Dim nomfichier As Variant: Dim lign As Integer: Dim colon As Integer: Dim x As Integer: Dim y As Integer
Dim sh As Worksheet
 
 
'ouvrir le premier fichier pour pouvoir copier coller ses données'
 
Worbook.Open fichier
nomfichier = Dir(fichier)
 
'Pour chaque feuille du fichier à copier, trouver le nombre de lignes  et jusqu'à ce que la colonne 1 contienne un vide'
   Dim count As Long: Dim cel As Range
For Each sh In nomfichier
    count = 0
            For Each cel In Columns(1)
                 If cel.Value <> "" Then
                 count = count + 1
                 End If
              Next cel
            MsgBox count
               'comme la 2eme ligne de chaque feuille est une ligne d'entete en 2eme ligne qui ne m'interesse pas, je dois enlever 1 au compteur'
           count = count - 1
            MsgBox count
     'Pour chaque fichier de la liste, pour chaque feuilles de ce fichier, pour chaque ligne à partir de la ligne 3, je viens copier la ligne et la coller dans la feuil1 du fichier prévisionnel '
      For y = 3 To count
      Workbook(prévisionnel).Worksheet("Feuil1").Row.Value = Workbook(nomfichier).Worksheet("sh").Row(ligne_encours).Value
      ligne_encours = ligne_encours + 1  'j'incrémente ligne_encours afin que dans mon fichier prévisionnel, la copie continue à ce faire dans la colonne d'en dessous '
      Next
 
Next
 
 
 
End Sub

je re colle mon fichier "prévisionnel" que j'ai avancé depuis hier

[kiki29]

Re, après qqs modifs ( format xlsb ) de l'appli Fusion et élagage de l'entête des mois de Mai 2018 sur tes exemples j'obtiens ceci :

[abbado]

Moi j'en suis à la avec une erreur sur For Each sh In cl

mais oui si tu arrives à avoir la même en regroupant toutes les feuilles des 2 fichiers c'est tout à fait ce que je veut obtenir ^^ Et toi ça te prend 5 minutes hahaha

[Pierre Fauconnier]

Salut.

Il est toujours utile de préciser la version d'Excel utilisée.

A partir de XL2010, il est possible de fusionner des fichiers sans VBA avec PowerQuery. Ce pourrait être une alternative intéressante.

Si tu veux y aller en VBA, je ne saurais trop te conseiller de découper ton code en (toutes petites) fonctions qui n'ont qu'une responsabilité. Ce sera plus facile à comprendre, à tester et à adapter (une fonction qui ouvre le fichier et te le met à disposition, une fonction appelée au sein d'une boucle et dont la responsabilité est de copier la feuille, ...).