problème de Wend et close

**Pascaldigito** · 05/01/2014, 01h43

Bonjour,

j'ai un code qui génère des pages html. à la fin du déroulement normalement cela doit écrire la page, la fermer et recommencer une nouvelle.

Or la deuxième page affiche les éléments de la première puis ceux de la seconde et ensuite passe à la troisième en générant aussi 1ère, seconde puis troisième et ainsi de suite sur 130 pages !

je ne parviens pas à trouver l'erreur, pourriez-vous me filer un coup de main ?

Merci d'avance !

Pascal

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
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
Sub CreatePatho()
 
Dim res, code As String
Dim FileName, Pathologie, Descriptioncourte, DescriptionlongueHTML, Frequence, NomFichier, ExplicationMethode, ActionMethode, Precaution As String
Dim Point As String
Dim Methode As String
Dim LocaS As String
 
'je définis une variable pour la page point
Dim Page As String
Dim MonImage As String
 
 
Dim ligpat, col As Integer
 
 
ligpat = 2
 
 
While Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_NOM).Value <> ""
 
Pathologie = Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_NOM).Value
Descriptioncourte = Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_DESCRIPTION_C).Value
DescriptionlongueHTML = Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_DESCRIPTION_L).Value
Frequence = Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_FREQUENCE).Value
NomFichier = Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_FICHIER).Value
 
'While Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_TRAITEMENT + col).Value <> ""
 
'Point = Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_TRAITEMENT + col).Value
'CheminPoint = InformationTable(TB_POINT, Point, PO_PAGE)
'CheminImage = InformationTable(TB_POINT, Point, PO_IMAGE)
'Methode = Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_TRAITEMENT + 1 + col).Value
'ExplicationMethode = InformationTable(TB_METHODE, Methode, ME_EXPLICATION)
'ActionMethode = InformationTable(TB_METHODE, Methode, ME_ACTION)
'ContreIndication = InformationTable(TB_POINT, Point, PO_CONTRE_INDICATION)
'LocaS = InformationTable(TB_POINT, Point, PO_LOCALISATION_S)
 
' mise en place de la page html et du menu nav
 
 
code = code & " <!DOCTYPE html> " & vbCrLf
code = code & " <html> " & vbCrLf
code = code & " <head> " & vbCrLf
        code = code & " <meta charset='ISO-8859-1' /> " & vbCrLf
        code = code & " <link rel='stylesheet' href='css_perso/base.css' /> " & vbCrLf
        code = code & " <link rel='stylesheet' href='css_perso/nav_current.css' /> " & vbCrLf
 
 
 
 
        code = code & " <title>Digitopuncture pour tous - Volume 1 -</title> " & vbCrLf
code = code & " </head> " & vbCrLf
 
code = code & " <body> " & vbCrLf
 
code = code & " <div id='header'> " & vbCrLf
 
 
                  code = code & " <div id='image_digito'></div> " & vbCrLf
                  code = code & " <div id='titre_principal'> " & vbCrLf
                         code = code & " <h1>Digitopuncture pour tous !</h1> " & vbCrLf
                         code = code & " <h2>Le bien-&ecirc;tre et la sant&eacute; au quotidien</h2> " & vbCrLf
                         code = code & " <p></p> " & vbCrLf
                         code = code & " <p></p> " & vbCrLf
                   code = code & " </div> " & vbCrLf
 
 
 
     code = code & " <nav> " & vbCrLf
         code = code & " <ul id='nav'> " & vbCrLf
          code = code & " <li class='current'> " & vbCrLf
            code = code & " <li><a href='#'>Digitopuncture</a> " & vbCrLf
                code = code & " <ul> " & vbCrLf
                    code = code & " <li><a href='definition.html'>D&eacute;finition</a></li> " & vbCrLf
                    code = code & " <li><a href='histoire.html'>Histoire de sa d&eacute;couverte</a></li> " & vbCrLf
                code = code & " </ul> " & vbCrLf
            code = code & " </li> " & vbCrLf
            code = code & " <li><a href='#'>D&eacute;couvrez les m&eacute;ridiens</a> " & vbCrLf
                code = code & " <ul> " & vbCrLf
                    code = code & " <li><a href='#'>Quels sont les m&eacute;ridiens ?</a> " & vbCrLf
                code = code & " </ul> " & vbCrLf
                    code = code & " <ul> " & vbCrLf
                        code = code & " <li><a href='MeP.html'>M&eacute;ridien du Poumon</a></li> " & vbCrLf
                        code = code & " <li><a href='MeGI.html'>M&eacute;ridien du Gros Intestin</a></li> " & vbCrLf
                        code = code & " <li><a href='MeE.html'>M&eacute;ridien de l&rsquo;Estomac</a></li> " & vbCrLf
                        code = code & " <li><a href='MeRT.html'>M&eacute;ridien de la Rate</a></li> " & vbCrLf
                        code = code & " <li><a href='MeC.html'>M&eacute;ridien du Coeur</a></li> " & vbCrLf
                        code = code & " <li><a href='MeIG.html'>M&eacute;ridien de l&rsquo;Intestin Gr&ecirc;le</a></li> " & vbCrLf
                        code = code & " <li><a href='MeV.html'>M&eacute;ridien de la Vessie</a></li> " & vbCrLf
                        code = code & " <li><a href='MeR.html'>M&eacute;ridien des Reins</a></li> " & vbCrLf
                        code = code & " <li><a href='MeMC.html'>M&eacute;ridien du Ma&Icirc;tre Coeur</a></li> " & vbCrLf
                        code = code & " <li><a href='MeTR.html'>M&eacute;ridien du Triple R&eacute;chauffeur</a></li> " & vbCrLf
                        code = code & " <li><a href='MeVB.html'>M&eacute;ridien de la V&eacute;sicule Biliaire</a></li> " & vbCrLf
                        code = code & " <li><a href='MeF.html'>M&eacute;ridien du Foie</a></li> " & vbCrLf
                        code = code & " <li><a href='MeRM.html'>M&eacute;ridien du Vaisseau Conception ou Ren mai</a></li> " & vbCrLf
                        code = code & " <li><a href='MeDM.html'>M&eacute;ridien du Vaisseau Gouverneur ou Du mai</a></li> " & vbCrLf
                     code = code & " </ul> " & vbCrLf
 
            code = code & " </li> " & vbCrLf
            code = code & " <li><a href='mespoints.html'>Localiser mes points personnels</a></li> " & vbCrLf
            code = code & " <li><a href='#'>Affections</a> " & vbCrLf
              code = code & " <ul> " & vbCrLf
                code = code & " <li><a href='#'>A - H</a> " & vbCrLf
                  code = code & " <ul> " & vbCrLf
                   code = code & " <li><a href='#'>A</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='acne.html'>Acn&eacute;</a></li> " & vbCrLf
                            code = code & " <li><a href='agalac.html'>Agalactie</a></li> " & vbCrLf
                            code = code & " <li><a href='aissel.html'>Aisselles</a></li> " & vbCrLf
                            code = code & " <li><a href='amaigr.html'>Amaigrissement</a></li> " & vbCrLf
                            code = code & " <li><a href='anemi.html'>An&eacute;mie</a></li> " & vbCrLf
                            code = code & " <li><a href='angipo.html'>Angine de poitrine</a></li> " & vbCrLf
                            code = code & " <li><a href='anore.html'>Anorexie</a></li> " & vbCrLf
                            code = code & " <li><a href='aphte.html'>Aphtes</a></li> " & vbCrLf
                            code = code & " <li><a href='arthro.html'>Arthrose</a></li> " & vbCrLf
                            code = code & " <li><a href='asthm.html'>Asthme</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                    code = code & " <li><a href='#'>B</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                        code = code & " <li><a href='baidsex.html'>Baisse du d&eacute;sir sexuel</a></li> " & vbCrLf
                        code = code & " <li><a href='ballonint.html'>Ballonnement intestinal</a></li> " & vbCrLf
                        code = code & " <li><a href='bouche.html'>Bouche</a></li> " & vbCrLf
                        code = code & " <li><a href='boulego.html'>Boule dans la gorge</a></li> " & vbCrLf
                        code = code & " <li><a href='bourdon.html'>Bourdonnement d'oreille</a></li> " & vbCrLf
                        code = code & " <li><a href='bronch.html'>Bronchite</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>C</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='cephal.html'>C&eacute;phal&eacute;e</a></li> " & vbCrLf
                            code = code & " <li><a href='cheveu.html'>Cheveux</a></li> " & vbCrLf
                            code = code & " <li><a href='cholest.html'>Cholest&eacute;rol</a></li> " & vbCrLf
                            code = code & " <li><a href='clavi.html'>Clavicule</a></li> " & vbCrLf
                            code = code & " <li><a href='coler.html'>Col&egrave;re</a></li> " & vbCrLf
                            code = code & " <li><a href='coliqren.html'>Colique r&eacute;nale</a></li> " & vbCrLf
                            code = code & " <li><a href='confian.html'>Confiance en soi</a></li> " & vbCrLf
                            code = code & " <li><a href='consti.html'>Constipation</a></li> " & vbCrLf
                            code = code & " <li><a href='coude.html'>Coude</a></li> " & vbCrLf
                            code = code & " <li><a href='courba.html'>Courbatures</a></li> " & vbCrLf
                            code = code & " <li><a href='cuisse.html'>Cuisse</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>D</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='depress.html'>D&eacute;pression nerveuse</a></li> " & vbCrLf
                            code = code & " <li><a href='diarrh.html'>Diarrh&eacute;e</a></li> " & vbCrLf
                            code = code & " <li><a href='distabd.html'>Distension abdominale</a></li> " & vbCrLf
                            code = code & " <li><a href='dos.html'>Dos</a></li> " & vbCrLf
                            code = code & " <li><a href='dysme.html'>Dysm&eacute;norrh&eacute;e</a></li> " & vbCrLf
                            code = code & " <li><a href='dyspne.html'>Dyspn&eacute;e</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>E</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='eczem.html'>Ecz&eacute;ma</a></li> " & vbCrLf
                            code = code & " <li><a href='engour.html'>Engourdissement</a></li> " & vbCrLf
                            code = code & " <li><a href='enter.html'>Ent&eacute;rite</a></li> " & vbCrLf
                            code = code & " <li><a href='enur.html'>&Eacute;nur&eacute;sie</a></li> " & vbCrLf
                            code = code & " <li><a href='epilep.html'>&Eacute;pilepsie</a></li> " & vbCrLf
                            code = code & " <li><a href='eruct.html'>&Eacute;ructations</a></li> " & vbCrLf
                            code = code & " <li><a href='estom.html'>Estomac</a></li> " & vbCrLf
                        code = code & "</ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>F</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & "<li><a href='fatigphy.html'>Fatigue physique</a></li> " & vbCrLf
                            code = code & "<li><a href='foie.html'>Foie</a></li> " & vbCrLf
                            code = code & "<li><a href='fraye.html'>Frayeur</a></li> " & vbCrLf
                            code = code & "<li><a href='froid.html'>Froid</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                           code = code & "  <li><a href='#'>G</a> " & vbCrLf
                                    code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='gastral.html'>Gastralgie</a></li> " & vbCrLf
                            code = code & " <li><a href='gastrit.html'>Gastrite</a></li> " & vbCrLf
                            code = code & " <li><a href='genou.html'>Genou</a></li> " & vbCrLf
                            code = code & " <li><a href='goutte.html'>Goutte</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>H</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='halein.html'>Haleine</a></li> " & vbCrLf
                            code = code & " <li><a href='hematur.html'>H&eacute;maturie</a></li> " & vbCrLf
                            code = code & " <li><a href='hemopt.html'>H&eacute;moptysie</a></li> " & vbCrLf
                            code = code & " <li><a href='hemorro.html'>H&eacute;morro&iuml;des</a></li> " & vbCrLf
                            code = code & " <li><a href='hoquet.html'>Hoquet</a></li> " & vbCrLf
                            code = code & " <li><a href='hyperten.html'>Hypertension art&eacute;rielle</a></li> " & vbCrLf
                            code = code & " <li><a href='hypoten.html'>Hypotension art&eacute;rielle</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                code = code & " </ul> " & vbCrLf
                code = code & " </li> " & vbCrLf
                code = code & " <li><a href='#'>I - O</a> " & vbCrLf
                    code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='#'>I</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='impatien.html'>Impatience</a></li> " & vbCrLf
                            code = code & " <li><a href='incontin.html'>Incontinence</a></li> " & vbCrLf
                            code = code & " <li><a href='insomn.html'>Insomnie</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>J</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='jambe.html'>jambe</a></li> " & vbCrLf
                            code = code & " <li><a href='joue.html'>Joue</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>L</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='larmoie.html'>Larmoiement</a></li> " & vbCrLf
                            code = code & " <li><a href='lassitu.html'>Lassitude</a></li> " & vbCrLf
                            code = code & " <li><a href='levres.html'>L&egrave;vres</a></li> " & vbCrLf
                            code = code & " <li><a href='lombal.html'>Lombalgie</a></li> " & vbCrLf
                            code = code & " <li><a href='lumba.html'>Lumbago</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>M</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='main.html'>Main</a></li> " & vbCrLf
                            code = code & " <li><a href='memoi.html'>M&eacute;moire</a></li> " & vbCrLf
                            code = code & " <li><a href='mental.html'>Mental</a></li> " & vbCrLf
                            code = code & " <li><a href='metror.html'>M&eacute;trorragies</a></li> " & vbCrLf
                            code = code & " <li><a href='migrain.html'>Migraines</a></li> " & vbCrLf
                            code = code & " <li><a href='mucosit.html'>Mucosit&eacute;s</a></li> " & vbCrLf
                            code = code & " <li><a href='myocar.html'>Myocardite</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>N</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='nephrit.html'>N&eacute;phrite</a></li> " & vbCrLf
                            code = code & " <li><a href='neuras.html'>Neurasth&eacute;nie</a></li> " & vbCrLf
                            code = code & " <li><a href='nez.html'>Nez</a></li> " & vbCrLf
                            code = code & " <li><a href='nuque.html'>Nuque</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>O</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='oedem.html'>Oed&egrave;mes</a></li> " & vbCrLf
                            code = code & " <li><a href='oligur.html'>Oligurie</a></li> " & vbCrLf
                            code = code & " <li><a href='ongle.html'>Ongles</a></li> " & vbCrLf
                            code = code & " <li><a href='oppres.html'>Oppression</a></li> " & vbCrLf
                            code = code & " <li><a href='oreill.html'>Oreilles</a></li> " & vbCrLf
                            code = code & " <li><a href='orgel.html'>Orgelet</a></li> " & vbCrLf
                            code = code & " <li><a href='os.html'>Os</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                code = code & " </ul> " & vbCrLf
            code = code & " </li> " & vbCrLf
        code = code & " <li><a href='#'>P - Z</a> " & vbCrLf
            code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='#'>P</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='palpit.html'>Palpitations</a></li> " & vbCrLf
                            code = code & "  <li><a href='paral.html'>Paralysie</a></li> " & vbCrLf
                            code = code & " <li><a href='peau.html'>Peau</a></li> " & vbCrLf
                            code = code & " <li><a href='pertcon.html'>Perte de connaissance</a></li> " & vbCrLf
                            code = code & " <li><a href='poign.html'>Poignet</a></li> " & vbCrLf
                            code = code & " <li><a href='pommet.html'>Pommettes</a></li> " & vbCrLf
                            code = code & " <li><a href='prepchgtmp.html'>Pr&eacute;paration aux changements de saisons</a></li> " & vbCrLf
                            code = code & " <li><a href='prevgrip.html'>Pr&eacute;vention de la grippe</a></li> " & vbCrLf
                            code = code & " <li><a href='prispoid.html'>Prises de poids</a></li> " & vbCrLf
                            code = code & " <li><a href='prurit.html'>Prurit</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>R</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='rachis.html'>Rachis</a></li> " & vbCrLf
                            code = code & " <li><a href='rector.html'>Rectorragie</a></li> " & vbCrLf
                            code = code & " <li><a href='refroimb.html'>Refroidissment des membres</a></li> " & vbCrLf
                            code = code & " <li><a href='retenplac.html'>R&eacute;tention placentaire</a></li> " & vbCrLf
                            code = code & " <li><a href='returin.html'>R&eacute;tention urinaire</a></li> " & vbCrLf
                            code = code & " <li><a href='rhinit.html'>Rhinite</a></li> " & vbCrLf
                            code = code & " </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                            code = code & " <li><a href='#'>S</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                            code = code & " <li><a href='sang.html'>Sang</a></li> " & vbCrLf
                            code = code & " <li><a href='scrotum.html'>Scrotum</a></li> " & vbCrLf
                            code = code & " <li><a href='sexe.html'>Sexe</a></li> " & vbCrLf
                            code = code & " <li><a href='silicos.html'>Silicose</a></li> " & vbCrLf
                            code = code & " <li><a href='soif.html'>Soif</a></li> " & vbCrLf
                            code = code & " <li><a href='spasm.html'>Spasme</a></li> " & vbCrLf
                            code = code & " <li><a href='stagnal.html'>Stagnation alimentaire</a></li> " & vbCrLf
                            code = code & " <li><a href='stress.html'>Stress</a></li> " & vbCrLf
                            code = code & " <li><a href='surdit.html'>Surdit&eacute;</a></li> " & vbCrLf
                           code = code & "  <li><a href='surmphy.html'>Surmenage physique</a></li> " & vbCrLf
                           code = code & "  <li><a href='syndrompre.html'>Syndrome pr&eacute;mentruel</a></li> " & vbCrLf
                       code = code & "  </ul> " & vbCrLf
                   code = code & "  </li> " & vbCrLf
                            code = code & " <li><a href='#'>T</a> " & vbCrLf
                       code = code & "  <ul> " & vbCrLf
                            code = code & " <li><a href='tachyc.html'>Tachycardie</a></li> " & vbCrLf
                            code = code & " <li><a href='teinblan.html'>Teint blanc</a></li> " & vbCrLf
                           code = code & "  <li><a href='tendon.html'>Tendon</a></li> " & vbCrLf
                            code = code & " <li><a href='tete.html'>T&ecirc;te</a></li> " & vbCrLf
                           code = code & "  <li><a href='tibia.html'>Tibia</a></li> " & vbCrLf
                           code = code & "  <li><a href='tortic.html'>Torticolis</a></li> " & vbCrLf
                           code = code & "  <li><a href='trac.html'>Trac</a></li> " & vbCrLf
                          code = code & "   <li><a href='transpir.html'>Transpirations</a></li> " & vbCrLf
                           code = code & "  <li><a href='trismus.html'>Trismus</a></li> " & vbCrLf
                       code = code & "  </ul> " & vbCrLf
                  code = code & "   </li> " & vbCrLf
                           code = code & "  <li><a href='#'>U</a> " & vbCrLf
                        code = code & " <ul> " & vbCrLf
                           code = code & "  <li><a href='ulcgast.html'>Ulc&egrave;re gastrique</a></li> " & vbCrLf
                           code = code & "  <li><a href='uretrit.html'>Ur&eacute;trite</a></li> " & vbCrLf
                           code = code & "  <li><a href='urtic.html'>Urticaire</a></li> " & vbCrLf
                        code = code & " </ul> " & vbCrLf
                   code = code & "  </li> " & vbCrLf
                           code = code & "  <li><a href='#'>V</a> " & vbCrLf
                       code = code & "  <ul> " & vbCrLf
                            code = code & " <li><a href='vent.html'>Vent</a></li> " & vbCrLf
                           code = code & "  <li><a href='verge.html'>Verge</a></li> " & vbCrLf
                           code = code & "  <li><a href='vertex.html'>Vertex</a></li> " & vbCrLf
                           code = code & "  <li><a href='vesibil.html'>V&eacute;sicule biliaire</a></li> " & vbCrLf
                            code = code & " <li><a href='visag.html'>Visage</a></li> " & vbCrLf
                           code = code & " <li><a href='vue.html'>Vue</a></li> " & vbCrLf
                       code = code & "  </ul> " & vbCrLf
                    code = code & " </li> " & vbCrLf
                           code = code & "  <li><a href='#'>Z</a> " & vbCrLf
                       code = code & "  <ul> " & vbCrLf
                        code = code & "     <li><a href='zona.html'>Zona</a></li> " & vbCrLf
                       code = code & "  </ul> " & vbCrLf
                  code = code & "   </li> " & vbCrLf
            code = code & " </ul> " & vbCrLf
       code = code & "  </li> " & vbCrLf
        code = code & "  </ul> " & vbCrLf
        code = code & " </li> " & vbCrLf
       code = code & "  <li><a href='auteur.html'>Auteur</a></li> " & vbCrLf
        code = code & " <li><a href=''>Formations propos&eacute;es</a> " & vbCrLf
                            code = code & " <ul> " & vbCrLf
                        code = code & " <li><a href='formationspart.html'>Formation pour particuliers</a></li> " & vbCrLf
                        code = code & " <li><a href='formationspro.html'>Formation pour professionnels</a></li> " & vbCrLf
                            code = code & " </u> " & vbCrLf
           code = code & "  </li> " & vbCrLf
         code = code & " </ul id='nav'> " & vbCrLf
        code = code & "  </li class='current'> " & vbCrLf
       code = code & " </nav><!-- fermeture du div navigation ou menu --> " & vbCrLf
code = code & " </div><!-- fermeture du div header fixe --> " & vbCrLf
    code = code & " <P> " & vbCrLf
code = code & " <br> " & vbCrLf
code = code & " <br> " & vbCrLf
code = code & " <br> " & vbCrLf
code = code & " <br> " & vbCrLf
code = code & " <br> " & vbCrLf
code = code & " <br> " & vbCrLf
code = code & " <br> " & vbCrLf
code = code & " <br> " & vbCrLf
code = code & " <br> " & vbCrLf
code = code & " <br>" & vbCrLf
 
 
'mettre entre guillement le code HTML du fichier a générer
 
'!!!! ne pas oublier de déclarer la table pour les infos lexique  !!!!
 
' détermination du div de la pathologie, servant pour ancrer la page
 
 
 
 
code = code & "<a href='#' class = 'info' title = '" & DescriptionlongueHTML & "' background ='#D8BFD8;' align='center' OnMouseOut='';>" & Pathologie & "</a></b>" & vbCrLf
 
'code = code & "<div id='conteneur'><b><a href='#' onmouseover='document.getElementById('lexique').style.display='block';document.getElementById('lexique').innerHTML='" & Descriptionlongue & "'; ' onmouseout='document.getElementById('lexique').style.display='none''>" & Pathologie & "</a></b></div></div>" & vbCrLf
 
 
code = code & "<br>" & vbCrLf
code = code & "<br>" & vbCrLf
code = code & "<br>" & vbCrLf
 
' indication de la durée et de la fréquence du traitement
 
code = code & "<div id='frequence'>" & vbCrLf
 
    code = code & "<P align='center'><B><FONT SIZE='+1' FACE='Verdana' text='#FFFFFF'>Dur&eacute;e et fr&eacute;quence : </B></font>" & vbCrLf
    code = code & "<p class='duree'  align='center'>" & Frequence & "</strong></font></p>" & vbCrLf
 
code = code & "</div><!-- ferme le div frequence-->" & vbCrLf
 
 
' fin de l'indication de durée du traitement
 
' application des images avec construction d'un tableau
 
col = 0
 
code = code & "<TABLE>" & vbCrLf
 
While Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_TRAITEMENT + col).Value <> ""
Point = Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_TRAITEMENT + col).Value
CheminPoint = InformationTable(TB_POINT, Point, PO_PAGE)
CheminImage = InformationTable(TB_POINT, Point, PO_IMAGE)
Methode = Worksheets(TB_PATHOLOGIE).Cells(ligpat, PA_TRAITEMENT + 1 + col).Value
ExplicationMethode = InformationTable(TB_METHODE, Methode, ME_EXPLICATION)
ActionMethode = InformationTable(TB_METHODE, Methode, ME_ACTION)
ContreIndication = InformationTable(TB_POINT, Point, PO_CONTRE_INDICATION)
LocaS = InformationTable(TB_POINT, Point, PO_LOCALISATION_S)
 
code = code & "<div id='image_point'>" & vbCrLf
 
    code = code & "<P>" & vbCrLf
    code = code & "<P>" & vbCrLf
    code = code & "<P>" & vbCrLf
    code = code & "<P>" & vbCrLf
    code = code & "<tr><td width='200'></td><td align='center'>" & vbCrLf
    'code = code & "<a href='" & CheminPoint & "' target='_blank'>" & vbCrLf
    code = code & "<IMG SRC='" & CheminImage & "' WIDTH='300' HEIGHT='400' ALIGN='BOTTOM' BORDER='0' NATURALSIZEFLAG='3'></a><br> " & vbCrLf
    code = code & "<P>" & vbCrLf
    code = code & "<P>" & vbCrLf
    code = code & "<P>" & vbCrLf
    code = code & "<P>" & vbCrLf
 
code = code & "</div><!-- ferme le div image_point-->" & vbCrLf
 
'explication du comment pratiquer le point
 
code = code & "<div id='methode'>" & vbCrLf
 
    code = code & "<B><FONT SIZE='+1' FACE='Verdana' title='" & ExplicationMethode & "'>" & ActionMethode & "</font></B><P><P><P>" & vbCrLf
    code = code & "</td><td width='300'>" & vbCrLf
 
code = code & "</div><!-- ferme le div methode-->" & vbCrLf
 
' fin de l'explication
 
code = code & "<P>" & vbCrLf
code = code & "<P>" & vbCrLf
code = code & "<P>" & vbCrLf
code = code & "<P>" & vbCrLf
code = code & "<p class='texte' align='center'>" & AjoutePopUp(LocaS) & "</P>" & vbCrLf
code = code & "<p class='contre_indication' align='center'>" & ContreIndication & "</P>" & vbCrLf
code = code & "</td><td></td></tr>" & vbCrLf
 
 
col = col + 2
Wend
code = code & "</TABLE>" & vbCrLf
 
code = code & "</FORM>" & vbCrLf
 
code = code & "</BODY>" & vbCrLf
code = code & "</HTML>" & vbCrLf
 
 
 
'creation du fichier
Set fs = CreateObject("scripting.fileSystemObject")
Set a = fs.CreateTextFile(ActiveWorkbook.Path & "\pathologies\" & NomFichier & ".html", True, False)
a.WriteLine code
a.Close
ligpat = ligpat + 1
Wend
MsgBox CStr(ligpat - 2) & " Pathologies générées"
End Sub

**SfJ5Rpw8** · 05/01/2014, 09h43

Bonjour,

modifie ta ligne 45 , initialisation de ta variable code :

Code :

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

code = " <!DOCTYPE html> " & vbCrLf

**Pascaldigito** · 05/01/2014, 11h06

Merci beaucoup,

j'avais viré la ligne puis idem

et là, j'ai réfléchi (si si ) et mis code ="" et ça fonctionne super !

Merci beaucoup !

Bonne journée

**SfJ5Rpw8** · 05/01/2014, 11h44

Envoyé par Pascaldigito

Merci beaucoup,

j'avais viré la ligne puis idem

et là, j'ai réfléchi (si si ) et mis code ="" et ça fonctionne super !

Merci beaucoup !

Bonne journée

Il ne s'agissait pas de virer la ligne mais de la modifier ...

si tu as ta réponse utilise le bouton

en dessous de message pour nous le signaler ....

problème de Wend et close

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager