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?
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?
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.
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).....
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 ?
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
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 :
Que tu dois modifier pour l'adapter à ton environnement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part Chemin = "C:\Users\Daniel\Documents\Donnees\Daniel\mpfe\"
Le code du userform est le suivant :
Tu peux sélectionner plusieurs classeurs en te servant de la touche Ctrl.
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
Partager