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)

**SfJ5Rpw8** · 18/04/2011, 19h35

Cela :

Code :

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

xlApp.Visible = True

c'est sur la ligne d'après... et pas dans l'appel à la procédure d'ouverture feuille

**fattosh** · 18/04/2011, 20h53

Bonsoir

Merci beaucoup pour votre aide.
Bon je viens de changer un peu mon code, sa marche partiellement:
mon bouton modifier marche mais qu'avec les fichiers .xls pas avec les .doc
et le bouton ouvrir ne marche pour aucun des deux.

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(File1.Path & "\" & 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(File1.Path & "\" & 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")
Img2.Picture = LoadPicture(App.Path & "\logo.jpg")

J'aurais encore besoin de vos précieux conseils pour avancer.

Merci d'avance pour votre patience

**OhMonBato** · 18/04/2011, 22h32

En dehors du fait que je ne vois pas à quoi servent les lignes

Code :

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

1
2
Dim ws As Worksheet
Dim vas As Variant

Je me demande également ce que donne

Code :

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

ReadOnly = True

Je n'ai pas Excel sur ma machine, je ne peux donc pas tester, mais ce ne serait pas

Code :

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

wb.ReadOnly = True

?

Sans parler du fait qu'il manque la ligne

Code :

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

xlApp.Visible = True

comme te l'indiquait bbil

**fattosh** · 19/04/2011, 10h45

Je suis un peu perdu,

J'essaie d'ouvrir en lecture seul mes fichier (extension .xls ou .doc) grâce au boutons ouvrir, et les fichiers concernés par cette ouverture sont ceux que je selectionne dans ma filelistbox or quand je clique dessus rien ne se passe pour les .xls et j'ai un msg d'erreur pour les .doc.

Avec mon bouton modifier le but et le même mais l'ouverture ne se fait pas en lecture seule. Cela marche pour les fichier excel et pas pour les word.

J'aimerai beaucoup comprendre et savoir comment fait-on cela ??

**OhMonBato** · 19/04/2011, 11h17

Pour ouvrir un fichier Excel en lecture seule :

Code :

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

1
2
3
4
5
 
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp .Workbooks.Open FileName:=File1.Path & "\" & File1.FileName, ReadOnly:=xlYes

Pour ouvrir un fichier Word en lecture seule :

Code :

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

1
2
3
4
5
6
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set WordDoc = WordApp.Documents.Open(File1.Path & "\" & File1.FileName, ReadOnly:=True)

(Codes trouvés sur ce site en tapant "ouvrir fichier excel lecture seule VB6" et "ouvrir fichier word lecture seule VB6" sur Google)

Si tu ne veux pas ouvrir en lecture seule, il suffit bien sûr d'enlever le "ReadOnly"

A part ça, quand tu signales que tu as un message d'erreur, il est beaucoup plus efficace de préciser lequel exactement et sur quelle ligne cela se produit.

**fattosh** · 19/04/2011, 11h31

Merci beaucoup

Mais je ne comprend pas lorsque j'ouvre mes fichiers en lecture seule je ne devrait pas pouvoir les modifier, pourtant j'ai les droits dessus ??

**OhMonBato** · 19/04/2011, 11h44

Avec ReadOnly tu peux vraiment enregistrer les modifications en gardant le même nom de fichier ?

**fattosh** · 19/04/2011, 11h58

Non sa enregistre une copie.

Je viens de mettre mon code a jour mais j'ai encore pas mal de boulot car sa ne marche pas:

Lorsque que je clique sur ouvrir:
-.doc =>erreur d'execution 1004
-.xls =>Ouvre le fichier sous le format excel mais aussi sous le format word (fichier word avec des sigles dedans)

Lorsque que je clique sur modifier:
-.doc => erreur d'execution 1004
-.xls => ouvre le fichier sous le format excel mais aussi sous le format word avec une fenêtre qui me dit que le fichier et déjà utiliser, lorsque je ferme cette fenêtre erreur d'execution 4198 qui s'affiche.

**OhMonBato** · 19/04/2011, 12h44

C'est un chouille agaçant de devoir demander le code régulièrement... Entre le multipost, le manque de recherche, fais attention de ne pas lasser ceux qui cherchent à t'aider.

**fattosh** · 19/04/2011, 13h13

Désolé pour le multipost, erreur de manipulation je n'ai vraiment pas fait exprés, c'est bon je me suis débrouiller et sa marche pour l'instant je vais essayer de peaufiner mon interface et le code qui va avec. Je reviendrais peut être lassé les gens qui m'aide si j'ai un souci.

Encore un grand merci pour votre patience et votre aide

**OhMonBato** · 19/04/2011, 13h37

Si ton code marche bien au bout du compte, merci de le poster pour aider à ton tour ceux qui auraient le même problème par la suite (ceux qui utilisent la fonction "Rechercher" en tout cas). Quand le problème sera définitivement résolu, il faudra également cliquer sur le bouton "Résolu" en bas de cette page.

Interface graphique a complèter avec script

VB 6 et antérieur

Discussions similaires

Partager

Partager