Discussion :

[abbado]

Bonjour,

J'ai des fichiers excel composés de plusieurs feuilles qui sont toutes construite exactement de la même manière.
je Je souhaite réaliser un programme vba qui permettre :

1)De récupérer les fichiers excel
2)De regrouper toutes les données de chaque feuilles dans une seul feuille ou j'aurais déja fait la 1ere ligne qui contient les intitulés des collones
3) A terme de traiter les données ensuite (mais je n'y suis pas encore haha)


Je me suis donc mis en marche et n'étant pas connaisseur de vba, j'apprend un peu sur le tas.
J'envoie ci- joint de que j'ai fait pour le moment mais il y a un bug à l'exécution que je ne comprend dès ma 1ere étape


je vous remercie de votre aide

https://cjoint.com/c/HDrjA5QPez3

[Menhir]

J'envoie ci- joint de que j'ai fait pour le moment mais il y a un bug à l'exécution que je ne comprend dès ma 1ere étape

A lire : https://www.developpez.net/forums/d8...s-discussions/

Tu devrais plutôt montrer ton code, de préférence entre balises CODE (voir l'icone #).

[abbado]

D'accord,
Je pensais qu'avez un lien cjoint ou pouvais accéder au fichier donc comprendre possiblement un peu ce qu'il s'y passe

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
53
54
55
56
57
58
59
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 (*.xlsx), *.xlsx", , , , True)      *J'arrive bien à une ouverture du répertoire qui sélectionne que les fichier excel, cependant si je selectionne un fichier, le programme s'arrete *
If (LCase(fichier_choisi) <> "faux" And fichier_choisi <> "0") Then
liste_fichiers.AddItem (fichier_choisi)             *le but içi est de stocker les fichiers dans une petite liste présente dans le formulaire *
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     *Je supprime les données au cas ou il y en ai avant d'importer celle des fichiers à traiter*
colle_données        *je colle les entete des colonnes dans la 1ere ligne  *
For i = 0 To liste_fichiers.ListCount
lecture (liste_fichiers.List(i))
Next i

consolider



End Sub
Private Sub fermer_Click()

End Sub



Private Sub colle_données()      *la fonction qui est censée aller cherche la 1er ligne de la feuille 2 du fichier excel "données" et la coller dans la 1ere feuille du fichier "prévisionnel" sur lequel je développe se code en 1ere ligne également *
  Dim Plage As Range
  Dim Cellule As Range
  
  'Copier de la ligne 2 du classeur données vers la ligne 3 de prévisionnel.xls
  Workbooks("données.xls").Worksheets("Feuil2").Range("A1:AAA1").Copy Destination:=Workbooks("prévisionnel.xls").Worksheets("Feuil1").Range("A1")
  
End Sub

Private Sub lecture(fichier As String)



End Sub

Private Sub consolider()

End Sub

je vous remercie encore de votre aide

[Menhir]

Code :

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

1
2
3
4
5
6
7
8
Private Sub importer_Click()
Dim fichier_choisi As String
fichier_choisi = Application.GetOpenFilename("Fichier Excel (*.xlsx), *.xlsx", , , , True)      *J'arrive bien à une ouverture du répertoire qui sélectionne que les fichier excel, cependant si je selectionne un fichier, le programme s'arrete *
If (LCase(fichier_choisi) <> "faux" And fichier_choisi <> "0") Then
liste_fichiers.AddItem (fichier_choisi)             *le but içi est de stocker les fichiers dans une petite liste présente dans le formulaire *
End If
 
End Sub

Quelle est la nature exacte de "liste_fichiers" ?
As-tu compris que GetOpenFilename se contente de récupérer un nom de fichier sans l'ouvrir ?

[abbado]

Bonjour et merci de ta réponse,

Oui j'ai bien compris que la fonction GetOpenFilename ne permet pas d'ouvrir le fichier en effet.

le liste_fichiers est juste une listboox inclue dans un formulaire