Interface graphique a complèter avec script

Version imprimable

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

Re

Je suis de retour pour une petite question,

Pour mon bouton imrpimer qu'est ce qui serais le plus simple pour moi:

le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Select Case Right(File1.FileName, 4)
Case ".xls"
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Workbooks.Open FileName:=File1.Path & "\" & File1.FileName
retour = MsgBox("Imprimer ce fichier ?", vbYesNo, "Imprimer")
    If retour = vbYes Then ThisWorkbooks.PrintOut
 
Case ".doc"
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(File1.Path & "\" & File1.FileName)
retour = MsgBox("Imprimer ce fichier ?", vbYesNo, "Imprimer")
    If retour = vbYes Then ThisDocuments.PrintOut
 
 
End Select

Ou alors utiliser un CommonDialog ?

19/04/2011, 16h44
OhMonBato

La solution que tu utilises me semble de loin la meilleure.

Bonjour bonjour,

Encore un grand merci pour toute votre aide, je passe à l'installation de mon executable sur un autre pc que le mien, mon interface marche bien, sauf le bouton imprimer, lorsque que je clique dessus j'ai une erreur d'execution 424, je pense que cela vient du fait que j'ai 2imprimantes ?

Qu'en pensez-vous ?

Voilà mon code final:

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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
Private Sub Cbo_TAR_Click()
 
Select Case Me.Cbo_TAR.Text 'Selection de la liste déroulante
Case "Chabal (Fonderie)"
File1.Path = "C:\STAGE\CHABAL"
Case "DSR (Tôlerie)"
File1.Path = "C:\STAGE\DSR"
Case "PF 301 (Filage)"
File1.Path = "C:\STAGE\PF301"
Case "F 132 (Fonderie refusion copeaux)"
File1.Path = "C:\STAGE\F132"
Case "F 212/219 (Atelier Tôles Fortes)"
File1.Path = "C:\STAGE\F212-219"
Case "F 230 (Atelier Tôles Fortes)"
File1.Path = "C:\STAGE\F230"
Case "F 233 (Atelier Tôles Fortes)"
File1.Path = "C:\STAGE\F233"
Case "F 235 (Atelier Tôles Fortes)"
File1.Path = "C:\STAGE\F235"
 
End Select
End Sub
 
 
 
Private Sub Cmd_imprimer_Click(Index As Integer)
 
Select Case Right(File1.FileName, 4)
Case ".xls"
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Workbooks.Open FileName:=File1.Path & "\" & File1.FileName
retour = MsgBox("Imprimer ce fichier ?", vbYesNo, "Imprimer") 'fenetre de confirmation d'impression
    If retour = vbYes Then ThisWorkbooks.PrintOut 'si oui on imprime
 
Case ".doc"
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(File1.Path & "\" & File1.FileName)
retour = MsgBox("Imprimer ce fichier ?", vbYesNo, "Imprimer") 'fenetre de confirmation d'impression
    If retour = vbYes Then ThisDocuments.PrintOut 'si oui on imprime
 
 
End Select
End Sub
 
Private Sub Cmd_modifier_Click(Index As Integer)
 
Select Case Right(File1.FileName, 4) 'filtration de l'extention
Case ".xls" 'filtration de l'extention
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True 'ouverture de la fenêtre visible
xlApp.Workbooks.Open FileName:=File1.Path & "\" & File1.FileName 'ouverture du fichier sélectionner dans filelistbox
 
Case ".doc" 'filtration de l'extention
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True 'ouverture de la fenêtre visible
Set WordDoc = WordApp.Documents.Open(File1.Path & "\" & File1.FileName) 'ouverture du fichier sélectionner dans filelistbox
 
End Select
End Sub
 
Private Sub Cmd_ouvrir_Click()
 
Select Case Right(File1.FileName, 4)
Case ".xls"
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Visible = True
xlApp.Workbooks.Open FileName:=File1.Path & "\" & File1.FileName, ReadOnly:=xlYes 'ouverture en lecture seule
 
Case ".doc"
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) 'ouverture en lecture seule
 
End Select
End Sub
 
Private Sub Form_Load()
 
Lbl_1.Caption = "Sélectionner une tour aéroréfrigérante :" 'remplissage de la liste déroulante
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 'écriture par défaut dans la liste déroulante à l'ouverture
 
Img1.Picture = LoadPicture("C:\STAGE\plan.jpg") 'affichage du plan à l'ouverture
Img2.Picture = LoadPicture("C:\STAGE\logo.jpg") 'affichage du logo à l'ouverture
 
 
End Sub
 
 
Private Sub Form_Resize() 'fonction pour redimmensionnement des contrôles de la fenêtre lors de l'agrandissement de celle-ci
 
    Dim Feuille As Form
 
    Set Feuille = Screen.ActiveForm
 
    If (Feuille.WindowState = vbMinimized) Then
 
        Exit Sub
 
    End If
 
    Static Longueur As Long
 
    Static Hauteur As Long
 
    Dim PropLongueur As Single
 
    Dim PropHauteur As Single
 
    If ((Longueur > 0) And (Hauteur > 0)) Then
 
        PropLongueur = Feuille.Width / Longueur
 
        PropHauteur = Feuille.Height / Hauteur
 
        Dim Ctrl As Control
 
        On Error Resume Next
 
        For Each Ctrl In Feuille.Controls
 
            Ctrl.Left = CInt(Ctrl.Left * PropLongueur)
 
            Ctrl.Top = CInt(Ctrl.Top * PropHauteur)
 
            Ctrl.Width = CInt(Ctrl.Width * PropLongueur)
 
            Ctrl.Height = CInt(Ctrl.Height * PropHauteur)
 
        Next
 
        On Error GoTo 0
 
    End If
 
    Longueur = Feuille.Width
    Hauteur = Feuille.Height
End Sub

20/04/2011, 10h16
OhMonBato

Tu as de la chance que tout le monde connaisse les numéros d'erreur par coeur, sinon on serait obligés de rechercher nous même à quoi elle corrrespond... Est-ce si difficile de donner le message d'erreur complet ?
(Erreur 424 : Object Requis)

Si tu avais testé ton code sur ta première machine, je doute qu'il aurait fonctionné vu que ThisWorkbooks et ThisDocument ne sont pas définis.

Je n'ai pas Excel, je ne peux donc pas tester mais cherche à quel objet tu peux appliquer la méthode Printout.

Re

Voilà je viens de créer l'executable de mon interface pour pouvoir la mettre sur n'importe quel ordinateur.

Comme j'ai 2 imprimantes réliées à cette ordinateur j'ai voulu mettre une commondialog pour sélectionner l'imprimante que je veux utiliser.

Voilà le code pour mon bouton Imprimer
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Cmd_imprimer_Click(Index As Integer) Select Case Right(File1.FileName, 4) 'Récupère les 4 derniers caractères Case ".xls" 'Récupération de l'extension xls (fichier excel) Dim xlApp As Excel.Application Set xlApp = New Excel.Application CommonDialog.ShowPrinter xlApp.PrintOut Case ".doc" 'Récupération de l'extension doc (fichier word) Dim WordApp As Word.Application Dim WordDoc As Word.Document Set WordApp = CreateObject("Word.Application") CommonDialog.ShowPrinter WordApp.PrintOut End Select End Sub
La fenêtre sélectionner s'ouvre bien lorsque je clique sur le bouton, je peux bien sélectionner l'imprimante que je veux mais lorsque que je clique sur 'ok' il s'affiche:
"Erreur d'execution '4605' Cette methode n'est pas disponible car une fenêtre de document n'est pas active"

Je n'ai presque rien trouvé sur cette erreur, comment dois-je faire, je ne comprend pas ?

20/04/2011, 14h39
fattosh

C'est bon j'ai trouver mon erreur xlApp et WordApp ne pouvait pas être imprimer car ils étaient vide j'ai donc rajouter les lignes:

Code:

xlApp.Workbooks.Open FileName:=File1.Path & "\" & File1.FileName
20/04/2011, 14h42
fattosh
et la ligne

Code:

set WordDoc = WordApp.Documents.Open(File1.Path & "\" & File1.FileName)

De plus après l'impression de ces fichiers j'ai remarqué que même si ils étaient pas visible ils étaient quand même ouvert donc j'ai rajouté:
Code:

1 2 xlApp.Quit WordApp.quit
J'aimerais savoir maitenant si comme les fichiers .xls et .doc je peux ouvrir modifier et imprimer des fichiers .pdf (enfin surtout ouvrir et imprimer en fait)?
21/04/2011, 11h47
fattosh

Bonjour

Voilà sur mon bouton imprimer, j'ai mis un controle commondialog, je peux choisir l'imprimante sans souci et celà imprime bien !
Mais si je change les propriétés (nombre de copies, recto verso ...etc) , elles ne sont pas prises en compte : Comment pourrais-je faire pour que les changements de propriétés dans la commondialog soient prises en compte lors de l'impression ?

Merci d'avance

Salut

A la suite de la boite de dialogue ShowPrinter, il faut renseigner l'objet Printer.
Exemple:
Code:

1 2 3 4 5 6 7 CommonDialog1.ShowPrinter Printer.hDC = CommonDialog1.hDC Printer.Copies = CommonDialog1.Copies Printer.Orientation = CommonDialog1.Orientation 'Printer..... = CommonDialog1...... Me.PrintForm: DoEvents Printer.EndDoc: DoEvents

voici mon code en ce qui concerne le bouton imprimer :

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
Select Case Right(File1.FileName, 4) 'Récupère les 4 derniers caractères
Case ".xls" 'Récupération de l'extension xls (fichier excel)
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
xlApp.Workbooks.Open FileName:=File1.Path & "\" & File1.FileName
CommonDialog.ShowPrinter
Printer.hDC = CommonDialog.hDC
Printer.Copies = CommonDialog.Copies
Printer.Orientation = CommonDialog.Orientation
Me.PrintForm: DoEvents
Printer.EndDoc: DoEvents
xlApp.PrintOut
xlApp.Quit
 
 
Case ".doc" 'Récupération de l'extension doc (fichier word)
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
Set WordApp = CreateObject("Word.Application")
Set WordDoc = WordApp.Documents.Open(File1.Path & "\" & File1.FileName)
CommonDialog.ShowPrinter
Printer.hDC = CommonDialog.hDC
Printer.Copies = CommonDialog.Copies
Printer.Orientation = CommonDialog.Orientation
Me.PrintForm: DoEvents
Printer.EndDoc: DoEvents
WordApp.PrintOut
WordApp.Quit
 
End Select
End Sub

Mais j'ai une erreur de compilation : "erreur de compilation, nombre d'arguments incorrect ou affectation de propriété incorrecte" avec la ligne

Code:

Printer.hDC = CommonDialog.hDC

surlignée ??

21/04/2011, 15h28
fattosh

Voilà j'ai un autre souci avec mon bouton "imprimer" lorsque que la commondialog même si je clique sur la "petit croix" :P pour fermer la fenêtre elle imprime quand même le document?

Comment faire pour remédier à ça ?

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