Interface graphique a complèter avec script

**fattosh** · 12/04/2011, 14h20

Bonjour à tous

Actuellement étudiant je viens de me mettre à VB6 pour mon plaisir personnel, en attaquant par de petite interface graphique, malheureusement tout ce qui se reporte au script est peu compréhensible pour moi.

Je vous présente grossièrement mon interface:
Dans ma liste déroulante j'ai 8 noms de tours aéroréfrigérantes, pour chacune de ces tours j'ai 2 fichiers exel (suivi de consommation et suuvi légio) et 2 fichiers word (description de la tour et expertise d'expert).

Le but est de selectionner la tour qui m'intéresse, appuyer sur exécuter là la liste des 4 fichiers (2 word + 2 exel) apparait dans ma zone de texte, je selectionne celui qui m'intéresse et je l'ouvre, le modifie ou l'imprime

Voilà l'image c'est juste un plan de l'usine...

J'ai réussie à remplir la liste déroulante (je sais je sais c'est pas grand chose

); et j'aurais besoin d'aide pour la suite.

Merci d'avance

Fat T

**SfJ5Rpw8** · 12/04/2011, 22h59

Tu peu utiliser shellExecute

Comment ouvrir un fichier HTML, Word ou autre en utilisant l'exécutable associé ?

pour ouvrir ton fichier dans word ou excel.

**fattosh** · 13/04/2011, 08h18

Bonjour,

Mon gros souci n'est pas d'ouvrir mes fichiers, je n'arrive pas a selectionner des fichiers déjà existant; c'est à dire que lorsque je clic sur exécuter il faudrait que le "raccourci" des fichiers correspondant à la tour sélectionner s'inscrivent dans la zone de texte. Une fois ceci réaliser on sélectionne le fichier qui nous intéresse et on l'ouvre le modifie ou l'imprime.

Merci encore pour votre aide.

Toutes suggestions, critiques sont les bienvenues.

**fattosh** · 13/04/2011, 09h52

Re

J'ai changer ma textBox par une listBox, je pense que se sera plus simple, pour affichier mes différents fichiers.

Qu'en pensez vous ?

**SfJ5Rpw8** · 13/04/2011, 20h30

tu en est ou finalement ? tu as réussi à remplir ta list box ..? et si oui comment ? (montre nous le code..)

**fattosh** · 18/04/2011, 10h12

Actuellement étudiant je viens de me mettre à VB6 pour mon plaisir personnel, en attaquant par de petite interface graphique, malheureusement tout ce qui se reporte au script est peu compréhensible pour moi.

Je vous présente grossièrement mon interface:
Dans ma liste déroulante j'ai 8 noms de tours aéroréfrigérantes, pour chacune de ces tours j'ai 2 fichiers exel (suivi de consommation et suuvi légio) et 2 fichiers word (description de la tour et expertise d'expert).

Le but est de selectionner la tour qui m'intéresse dans la liste déroulante, là la liste des 4 fichiers (2 word + 2 exel) apparait dans ma filelistbox, je selectionne celui qui m'intéresse et je l'ouvre(lecture seule), le modifie(ouverture + modification) (en l'ouvrant avec word ou excel suivant son extension) ou l'imprime ( grâce à une common dialogue

Voilà l'image c'est juste un plan de l'usine...

J'ai réussie à remplir la liste déroulante, et la filelistbox, mais je n'arrive pas à faire fonctionner les 3 boutons.

Voici mon code:

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
60
61
62
63
64
65
66
67
68
69
70
71
72
Private Sub Cbo_TAR_Click()
 
Select Case Me.Cbo_TAR.Text
Case "Chabal (Fonderie)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\CHABAL"
Case "DSR (Tôlerie)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\DSR"
Case "PF 301 (Filage)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\PF301"
Case "F 132 (Fonderie refusion copeaux)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F132"
Case "F 212/219 (Atelier Tôles Fortes)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F212-219"
Case "F 230 (Atelier Tôles Fortes)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F230"
Case "F 233 (Atelier Tôles Fortes)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F233"
Case "F 235 (Atelier Tôles Fortes)"
File1.Path = "C:\Users\Antoine\Desktop\STAGE\F235"
 
End Select
End Sub
 
 
Private Sub Cmd_imprimer_Click(Index As Integer)
CD_imp.ShowPrinter
End Sub
 
Private Sub Cmd_modifier_Click(Index As Integer)
Dim wb As Workbook
Dim ws As Worksheet
Dim vas As Variant
 
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Open("C:\Users\Antoine\Desktop\STAGE\" & File1.FileName, xlApp.Visible = True)
 
 
End Sub
 
Private Sub Cmd_ouvrir_Click()
Dim wb As Workbook
Dim ws As Worksheet
Dim vas As Variant
 
Set xlApp = New Excel.Application
 
Set wb = xlApp.Workbooks.Open("C:\Users\Antoine\Desktop\STAGE\" & File1.FileName, ReadOnly = True)
 
 
End Sub
 
Private Sub Form_Load()
 
Lbl_1.Caption = "Sélectionner une tour aéroréfrigérante :"
Cbo_TAR.AddItem "Veuillez sélectionne une TAR", 0
Cbo_TAR.AddItem "Chabal (Fonderie)", 1
Cbo_TAR.AddItem "DSR (Tôlerie)", 2
Cbo_TAR.AddItem "PF 301 (Filage)", 3
Cbo_TAR.AddItem "F 132 (Fonderie refusion copeaux)", 4
Cbo_TAR.AddItem "F 212/219 (Atelier Tôles Fortes)", 5
Cbo_TAR.AddItem "F 230 (Atelier Tôles Fortes)", 6
Cbo_TAR.AddItem "F 233 (Atelier Tôles Fortes)", 7
Cbo_TAR.AddItem "F 235 (Atelier Tôles Fortes)", 8
 
 
 
 
Cbo_TAR.ListIndex = 0
 
Img1.Picture = LoadPicture(App.Path & "\plan.jpg")
 
End Sub

J'aurais vraiment besoin d'aide.

Merci d'avance.

**fattosh** · 18/04/2011, 16h29

Lorsque que je clique sur ouvrir ou modifier, une fenêtre s'ouvre avec "erreur d'execution 1004"

Quelqu'un pourrait-il m'aider ?

**OhMonBato** · 18/04/2011, 16h58

Bonjour,

qu'est ce que File1 ? Et où définis tu File1.FileName ?

**ProgElecT** · 18/04/2011, 17h54

Salut
Si File1 est un FileListBox, essais

Code :

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

Set wb = xlApp.Workbooks.Open(File1.Path & "\" & File1.FileName, xlApp.Visible = True)

pour éviter l'erreur 104.

Motif de l'édit:
Si FileListBox, au vue de l'image que tu as mis, intéresses toi à la propriété Pattern du dit FileListBox.
Penser à F2 dans l'éditeur VB6 et F1 pour plus d'informations avec MSDN (Lien dans ma signature)