Discussion :

[Charlemage]

Bonjour,

J'ai conçu un petit programme Excel qui :

1. se connecter à un forum,
   
2. Lire certaines données du forum
   
3. Traiter ces données
   
4. Editer un sujet du forum avec ces données
   
5. se déconnecter du forum

Pour ceci j'ai utiliser un certaine nombre de chose et au final mon programme principale ressemble à ça :

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
Sub Main()
 
    Call Logout
 
    Call connection
 
    Application.Wait Now + TimeValue("0:00:01")
 
    Call Fresh
 
        Application.Wait Now + TimeValue("0:00:3")
 
    Call Init
 
    Application.Wait Now + TimeValue("0:00:01")
 
    Call edition
 
    Application.Wait Now + TimeValue("0:00:01")
 
    Call Logout
 
    Application.Wait Now + TimeValue("0:00:01")
 
End Sub

mais mon rafraichissement se fait à la fin de tout ce qui fait que les données transmise ne sont pas les bonnes...
comment puis je faire pour que l'actualisation se fasse au bon moment ?
Je vous remercie d'avance pour vos réponses
Mike

[kiki29]

Salut,je ne vois pas de raison d'avoir des Application.Wait ... sinon il y a DoEventsn à mon avis le probleme est ailleurs dans l'une des procédures appelées ?

[Charlemage]

voici mon code entier...

quand j'utilise les fonction séparément il y a aucun problème.... c'est juste quand je cherche à faire un "main" que le rafraîchissement se passe à la fin de tout...

les différent wait c'est pour être sure que la fonction est bien fini avant de passer à la suivante, je pensais que c'était ça le pb pour le Fresh....

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
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
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
Sub Init()
'
' Init Macro
'
 
'
Call Fresh
 
    Sheets("Data_IN").Visible = True
 
Worksheets("Data_IN").Select
Range("B29:B48").Select
 
    Selection.Copy
    Range("X29").Select
    ActiveSheet.Paste
    Range("AT29").Select
    ActiveSheet.Paste
    Range("BP29").Select
    ActiveSheet.Paste
    Range("CL29").Select
    ActiveSheet.Paste
    Range("DH29").Select
    ActiveSheet.Paste
    Range("ED29").Select
    ActiveSheet.Paste
    Range("EZ29").Select
    ActiveSheet.Paste
    Range("FV29").Select
    ActiveSheet.Paste
    Range("GR29").Select
    ActiveSheet.Paste
    Range("HN29").Select
    ActiveSheet.Paste
    Range("IJ29").Select
    ActiveSheet.Paste
    Range("JF29").Select
    ActiveSheet.Paste
    Range("KB29").Select
    ActiveSheet.Paste
    Range("KX29").Select
    ActiveSheet.Paste
    Range("LT29").Select
    ActiveSheet.Paste
    Range("MH29").Select
 
        Sheets("Data_IN").Visible = False
    Worksheets("Connexion").Range("A1").Select
 
 
End Sub
 
 
Sub connection()
 
Dim strLogin As String
Dim strMDP As String
Dim Page As New InternetExplorer
 
strLogin = Sheets("Connexion").Range("K3").Value
strMDP = Sheets("Connexion").Range("K4").Value
 
On Error Resume Next
 
'Ouverture du navigateur
Page.navigate "http://la-cite-perdue.fr-bb.com/login"
Page.Visible = True
 
' Attente que la page soit chargé et prète à etre utilisé
Do While Page.busy
Loop
DoEvents
Application.Wait Now + TimeValue("0:00:01")
Do While Page.busy
Loop
DoEvents
 
'Lancement de l'enregistrement
Call SendKeys(strLogin, True)
Application.Wait Now + TimeValue("0:00:01")
 
Call SendKeys("{TAB}", True)
 
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys(strMDP, True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:00")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{ENTER}", True)
 
'Attente de la confirmation d'enregistrement
Do While Page.busy
Loop
DoEvents
Application.Wait Now + TimeValue("0:00:01")
Do While Page.busy
Loop
DoEvents
 
'Fermeture de la page
Page.Visible = False
Page.Quit
 
'Activation du classeur
Workbooks("Liste Varden.xlsm").Activate
 
End Sub
 
Sub Fresh()
 
    ActiveWorkbook.RefreshAll
 
End Sub
 
Sub edition()
 
 
Dim Page As New InternetExplorer
Dim strAddEdit As String
Dim strRaison As String
 
strAddEdit = "http://la-cite-perdue.fr-bb.com/post?p=75045&mode=editpost"
strRaison = "Mise à jour automatique"
Sheets("Liste").Select
Range("$A$1:$F$70").Select
Selection.Copy
Sheets("Connexion").Select
 
'Call connection
 
 
 
 
On Error Resume Next
 
'Ouverture du navigateur
Page.navigate strAddEdit
Page.Visible = True
 
 
' Attente que la page soit chargé et prète à etre utilisé
Do While Page.busy
Loop
DoEvents
Application.Wait Now + TimeValue("0:00:02")
Do While Page.busy
Loop
DoEvents
 
'Lancement de l'édition
Call SendKeys("{TAB 7}", True)
Application.Wait Now + TimeValue("0:00:01")
 
Call SendKeys("^a", True)
 
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{DELETE}", True)
Application.Wait Now + TimeValue("0:00:01")
 
 
Call SendKeys("^v", True)
Application.Wait Now + TimeValue("0:00:02")
 
'Call SendKeys("{TAB 2}", True)
'Application.Wait Now + TimeValue("0:00:01")
 
Call SendKeys("{TAB 128}", True)
Application.Wait Now + TimeValue("0:00:02")
Call SendKeys(strRaison, True)
Application.Wait Now + TimeValue("0:00:02")
 
Call SendKeys("{TAB 18}", True)
Application.Wait Now + TimeValue("0:00:01")
 
 
Call SendKeys("{ENTER}", True)
 
 
'Attente de la confirmation d'enregistrement
Do While Page.busy
Loop
DoEvents
Application.Wait Now + TimeValue("0:00:01")
Do While Page.busy
Loop
DoEvents
 
'Fermeture de la page
Page.Visible = False
Page.Quit
 
'Activation du classeur
Workbooks("Liste Varden.xlsm").Activate
 
End Sub
 
Sub Logout()
 
 
 
Dim Page As New InternetExplorer
Dim strAdd As String
 
strAdd = "http://la-cite-perdue.fr-bb.com/"
On Error Resume Next
 
'Ouverture du navigateur
Page.navigate strAdd
Page.Visible = True
 
 
' Attente que la page soit chargé et prète à etre utilisé
Do While Page.busy
Loop
DoEvents
Application.Wait Now + TimeValue("0:00:05")
Do While Page.busy
Loop
DoEvents
 
'Lancement de l'édition
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
Call SendKeys("{TAB}", True)
Application.Wait Now + TimeValue("0:00:01")
 
Call SendKeys("{ENTER}", True)
 
 
'Attente de la confirmation d'enregistrement
Do While Page.busy
Loop
DoEvents
Application.Wait Now + TimeValue("0:00:01")
Do While Page.busy
Loop
DoEvents
 
'Fermeture de la page
Page.Visible = False
Page.Quit
 
'Activation du classeur
Workbooks("Liste Varden.xlsm").Activate
 
 
 
 
 
End Sub
 
 
Sub Main()
    Call Logout
    Call connection
    Application.Wait Now + TimeValue("0:00:01")
    'Call Fresh
        Application.Wait Now + TimeValue("0:00:3")
    Call Init
    Application.Wait Now + TimeValue("0:00:01")
    Call edition
    Application.Wait Now + TimeValue("0:00:01")
    Call Logout
    Application.Wait Now + TimeValue("0:00:01")
 
End Sub

[rtg57]

Bonjour,

le problème de l'utilisation de Application.Wait est que votre application attend... et ne fait rien pendans ce temps.

Quelques DoEvents intercallés entre les attentes devraient résoudre le problème.

Personnellement, lorsque je provoque des attentes chronométrées, je procède de cette façon:

Code :

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

1
2
3
4
5
6
7
8
9
 
Application.Cursor = xlWait
 
temps_final = Now + TimeValue("0:00:05")
While (Now < temps_final)
    DoEvents
Wend
 
Application.Cursor = xlDefault

Ceci permet de laisser vivre certains mécanismes de l'application. A voir si cela vous dépanne...

@ bientôt...

[Charlemage]

non le rafraîchissement se passe toujours à la fin... il saute totalement l'étape fresh

[kiki29]

Salut,qqs conseils
remplacer tout ce qui ressemble à

Code :

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

1
2
3
4
5
 
    Range("B29:B48").Select
    Selection.Copy
    Range("X29").Select
    ActiveSheet.Paste

par

Code :

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

1
2
 
	Range("B29:B48").Copy Range("X29").Paste

un peu plus loin il y a

Code :

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

1
2
3
4
5
 
    Sheets("Liste").Select
    Range("$A$1:$F$70").Select
    Selection.Copy
    Sheets("Connexion").Select

Qui copie qqch mais la colle OU ?

Ton code est totalement imbuvable et à revoir de A à Z , j'y renonce