Interface graphique a complèter avec script

Version imprimable

Voir 40 message(s) de cette discussion en une page

12/04/2011, 14h20
fattosh

1 pièce(s) jointe(s)

Interface graphique a complèter avec script

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 :oops:); et j'aurais besoin d'aide pour la suite.

Merci d'avance

Fat T
12/04/2011, 22h59
SfJ5Rpw8

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.
13/04/2011, 08h18
fattosh

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.
13/04/2011, 09h52
fattosh

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 ?
13/04/2011, 20h30
SfJ5Rpw8

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

1 pièce(s) jointe(s)

Faire fonctionner une interface graphique en VB6

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:

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.

18/04/2011, 16h29
fattosh

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

Quelqu'un pourrait-il m'aider ? :calim2:
18/04/2011, 16h58
OhMonBato

Bonjour,

qu'est ce que File1 ? Et où définis tu File1.FileName ?
18/04/2011, 17h54
ProgElecT

Salut
Si File1 est un FileListBox, essais

Code:

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)
18/04/2011, 19h35
SfJ5Rpw8

Cela :

Code:

xlApp.Visible = True

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

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:

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

18/04/2011, 22h32
OhMonBato
En dehors du fait que je ne vois pas à quoi servent les lignes
Code:

1 2 Dim ws As Worksheet Dim vas As Variant
Je me demande également ce que donne

Code:

ReadOnly = True

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

Code:

wb.ReadOnly = True

?

Sans parler du fait qu'il manque la ligne

Code:

xlApp.Visible = True

comme te l'indiquait bbil
19/04/2011, 10h45
fattosh

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 ?? :oops:

Pour ouvrir un fichier Excel en lecture seule :

Code:

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:

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.

19/04/2011, 11h31
fattosh

Merci beaucoup :ccool:

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 ??
19/04/2011, 11h44
OhMonBato

Avec ReadOnly tu peux vraiment enregistrer les modifications en gardant le même nom de fichier ?
19/04/2011, 11h58
fattosh

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.
19/04/2011, 12h44
OhMonBato

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.
19/04/2011, 13h13
fattosh

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 :ccool:
19/04/2011, 13h37
OhMonBato

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.

Voir 40 message(s) de cette discussion en une page