Discussion :

[info20111]

Salut je veux regrouper des fichiers excel avec une interface graphique svp pouvez vous m'aider car je ne trouve pas les outils ou le langage avec lequel je dois travailler?

[Daniel.C]

Bonjour,

Peux-tu préciser davantage ce que tu souhaites. Qu'est-ce que tu entends par "regrouper" ? Le mieux serait que tu donnes un exemple.

[info20111]

en fait j'ai quelques fichiers excel dispersées je veux au lieu de traiter des fichiers je manipule des interfaces graphiques exemple lorsque je clique sur un bouton une interface qui représente un tableau de bord apparait (en réalité je n'ai que des fichiers excels mais je dois les transformer en des interfaces graphiques)je n'ai meme pas l'idée quel langage je dois utiliser (je pense à utiliser java).....

[Daniel.C]

C'est un peu trop général pour moi. Tu parles de tableaux de bord, mais est-ce qu'ils sont créés, ou est-ce qu'il faut les créer ?

[info20111]

ils sont déja crées avec des fichiers excel et je veux les manipuler avec des interfaces graphiques non pas des fichiers excels voila mon problème

[Daniel.C]

Regarde le classeur joint. Le bouton affiche le userform qui te permet de choisir les fichiers à regrouper. Le dossier de ces fichiers est défini par :

Code :

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

Chemin = "C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\"

Que tu dois modifier pour l'adapter à ton environnement.
Le code du userform est le suivant :

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
Private Sub cbAnnul_Click()
    Unload Me
End Sub
 
Private Sub cbOK_Click()
    With Me.ListBox1
        For i = 0 To .ListCount - 1
            If .Selected(i) Then
                MsgBox .List(i)
                'traitement du classeur
            End If
        Next i
    End With
    Unload Me
End Sub
 
Private Sub UserForm_Activate()
    Dim Chemin As String, Fich As String
    Chemin = "C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\"
    Me.ListBox1.Clear
    Fich = Dir(Chemin & "*.xls")
    Do While Fich <> ""
        Me.ListBox1.AddItem Fich
        Fich = Dir
    Loop
End Sub

Tu peux sélectionner plusieurs classeurs en te servant de la touche Ctrl.