IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Incompréhension dans l'utilisation de sapi.spvoice


Sujet :

VBScript

  1. #1
    Membre actif
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    380
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 380
    Points : 247
    Points
    247
    Par défaut Incompréhension dans l'utilisation de sapi.spvoice
    bonjour
    J'ai un programme HTA dans lequel je voudrais voir un message apparaître dans une fenêtre (OnLoad), puis écouter le contenu de ce message (OnUnLoad).
    Hors, il se produit le contraire.
    Je me trouve désappointé dans ce cas de figure.
    Windows 10
    Microsoft Edge (64 bits)
    Google Chrome Version 67.0.3396.99 (Build officiel) (64 bits)

  2. #2
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 157
    Points
    17 157
    Par défaut
    Salut

    Et le code, il est ou le code dit donc, une fois
    L'endroit, dans la page HTA, ou est écrit la partie VBScript a son importance.
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  3. #3
    Membre actif
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    380
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 380
    Points : 247
    Points
    247
    Par défaut
    salut
    C' est vrai que j'aurai du mettre le code.
    Actuellement je ne suis pas chez moi et je ne parviens pas à accéder à mes données sur Dropbox.
    Le PC sur lequel je suis ne m'appartient pas et je ne voudrais pas faire du dégât.
    Je pourrai fournir le code la semaine prochaine.
    Merci de t'intéresser à ma question.
    A bientôt.
    Windows 10
    Microsoft Edge (64 bits)
    Google Chrome Version 67.0.3396.99 (Build officiel) (64 bits)

  4. #4
    Membre actif
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    380
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 380
    Points : 247
    Points
    247
    Par défaut
    Finalement j'ai récupéré mon PC plus tôt.

    Code html : 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
    <html><head><title>Dicton du jour</title>
    		<HTA:Application ICON =""
    		                SCROLL= 'no'
    		        MAXIMIZEBUTTON= 'no'  >   </head>
     
    <script language='VBScript'>
            Dim txt
     'Self.document.title = "le dicton du " & aujourdhui 
    'Sub Window_onLoad
            window.resizeTo 350,150
    'Set fs = CreateObject("Scripting.FileSystemObject")
    'if Wscript.ScriptFullName <> adresse then
    'fs.copyfile Wscript.ScriptFullName,adresse
    'end if
     
    'aujourd'hui en texte
    mois=array("janvier","février","mars","avril","mai","juin","juillet","août","septembre","octobre","novembre","décembre")
    aujourdhui=day(date)
    if aujourdhui=1 then aujourdhui="1er"
    aujourdhui=aujourdhui & " " & mois(month(date)-1)
    '                       msgbox aujourdhui,,month(date) : wscript.quit
    'ouverture du fichier en lecture pour récupérer le dicton
    With CreateObject("Scripting.FileSystemObject")
     Set fich =  .OpenTextFile(document.location.pathname, 1, False)
    End with
    'recherche du début des dictons
    do while txt<>"'##########"
             txt=fich.readline
    loop
     
    'recherche de la ligne correspondant à aujourd'hui
         d=date
        cal=(31*(month(d)-1)) + day(d)   -1
     
    for num=1 to cal
       fich.skipline
    next
     
     'affichage du message
     lig = mid(fich.readline,2)
     txt = replace(lig,"#",chr(10))     ' SF
     ttx = Replace(lig,"#","<br>")
        fich.Close
    Set fich = Nothing
        Window.Onload  =GetRef("debut")
        Window.OnUnload=GetRef("sortie")
     
    sub debut 'window_onload
                 document.write ttx
            Self.document.title = "le dicton du " & aujourdhui 
    End sub
     
    Sub sortie 'window_onunload   
         Set Voix = CreateObject("SAPI.Spvoice")
             Voix.Speak aujourdhui
             Voix.Speak txt
    End sub
     
     
     
    '##########
    'S'il pleut la nuit de la nouvelle année,#  Le laboureur n'aura guère de denrées#    Et l'on aura pas de bon vin#      Pour noyer son pauvre chagrin.
    'Saint-Clair porte quarantaine
    'Sainte Geneviève ne sort point ##si saint Marceau ne la rejoint.
    'Le jour de la Saint Odilon #Souvent n'amène rien de bon.
    'A la saint Siméon,#La neige et les tisons
    'Si le soir des Rois#  Beaucoup d'étoiles tu vois,#    Auras sécheresse en été#      Et beaucoup d'oeufs au poulailler.
    'Saint Raymond, Sainte Mélanie.##S'il gèle à la saint Raymond, #L'hiver est encore long.
    'Temps de saint Lucien,#Temps de chien.##Au jour de Sainte Gudule,#Le jour croît, mais le froid ne recule.
    'Saint Adrien, Sainte Alix, Saint Julien.##Pour Saint Adrien, le froid nous revient.
    'Saint Guillaume
    'Dans la nuit du 11 au 12, regardez de quel côté le vent souffle :# S'il vient de l'Orient, il y aura mortalité de bestiaux ;#  S'il vient du midi, il y aura des malades ;#   S'il vient de l'Occident, c'est signe de guerre ;#    S'il vient du Septentrion, les champs sont menacés de stérilité.###...moralité, il vaut mieux rester au lit !
    '    Sainte tatiana##Les douze premiers jours de janvier# Indiquent le temps qu'iul fera#  Les douze mois de l'année.
    'Saint Arcade, Saint Hilaire, Sainte Yvette.##Les jours croissent à la Saint Hilaire#De quelques pas de bergère.
    'Le soleil pour Saint-Hilarion,#Il faudra force tisons.
    'Saint Maur, Saint Rémi.##A la Saint Maur,#Ne t'étonne pas si le vent souffle fort.
    'Saint Marcel, Sainte Nina##Soleil de Sainte Nina,#Pour un long hiver rentre ton bois.
    '  Saint Antoine, Sainte Roseline.##Les jours à la Saint Antoine,#Croissent comme la barbe d'un moine.##Pour la Saint Antoine, #Il fait froid même dans l'huile.
    'A Saint Pierre, coq chantant#Est présage de mauvais temps.
    'Neige de la Sainte-Prisca#Va apporter une belle année que voilà
    'A la Saint Sébastien,#L'hiver s'en va ou revient.
    'Jour de Sainte Agnès,#Jamais trop de froid ne laisse.
    'A la saint Vincent, #l'hiver se reprend ou perd sa dent.##Pour la Saint-Enérance,#Les jours rallongent d'une aune de gance.
    'S'il géle à la Saint-Raymond,#L'hiver est encore plus long.##Saint-Barnard ensoleillé#Rend le vigneron gai.
    'Saint François, Saint Priest##Soleil de Saint-Priest,#Abondance de Millet.
    'A la saint Paul s'entrebattent les vents;#Celui qui l'emportera dominera l'an.
    'Saint-Polycarpe nous écharpe.
    'Beau temps à la Saint Julien#Promet abondance de biens.
    'Saint-Thomas, Saint-Charlemagne##Saint-Charlemagne,#Février en armes !
    'S'il pleut à la Saint Sulpice,#C'est tous les jours comme vache qui pisse.
    'Prends garde à la Sainte Martine,#Car, souvent, l'hiver se mutine !##A la Saint-Hippolite,#Bien souvent l'hiver nous quitte.
    'Sainte Marcelle##Compte bien fin janvier#Que tu as mangé la moitié de ton grenier.
    'Février trop doux, #Printemps en courroux.##A la Saint-Ignace,#L'eau est de glace.
    'Soleil le matin de la chandeleur, quarante jours à la tanière.##A la chandeleur, l'hiver passe ou prend vigueur.
    'A partir de la Saint Blaise, #L'hiver redouble ou s'apaise
    'Sainte-Véronique, Saint-Isidore##Prenez garde au lendemain#  De Saint Blaise, s'il esr serein,#    Car cela présage une année#      Toute fertile et fortunée.
    'A la Sainte Agathe,#Les jours croissent du saut d'une bocatte.
    'A la Sainte Dorothée,#La plus forte gelée.
    'Saint-Romuald##Il n'est de février si mauvais et si méchant#Qu'il ne nous donne huit jours de printemps.
    'A la Sainte Jacqueline,#Froid et bruine.##Eté de la Saint-Jean,#Quelques jours cléments.
    'A la Sainte Apolline,#  Présage certain,#    L'hiver s'achemine#      Ou touche à sa fin.
    'Bise et grand vent à la Saint-Amand#Font mal au froment.
    'Séverin et ses coquins#Font tout geler sur leur chemin.
    'Sainte Eulalie avec la pluie,#Quarante jours reste dans ton lit !
    'De Sainte Béatrice la nuée#Assure six semaines mouillées.
    'Souvent à la Saint Valentin,#La roue gèle avant le moulin.
    'Les cerises, c'est Saint Claude#Qui les baille ou les ôte.
    'A la Sainte-Julienne,# Faut toujours que le soleil vienne,#  S'il luit un peu, bon pour les bœufs,#   S'il luit prou, c'est un bon août.
    'Saint Alexis##Si février laisse les fossés pleins,#Les greniers seront pleins.
    'A la Sainte Bernadette,#Souvent le soleil est de la fête.##A la saint Alexandre,#Finies les cendres.
    'A  partir de la Saint-Siméon,#Tu peux semer tes melons.
    'Souvent à la Sainte Aimée,#La campagne est enneigée.##Taillis pluvieux à la Saint Sylvain#Fait tout l'an incertain.
    'A la Saint Pierre Damien,#L'hiver reprend ou s'éteint.##Il est trop tard à la Saint Pépin#Pour planter les arbres à pépin.
    'A la Sainte Isabelle,#  Si l'aurore est belle,#    Et s'il fait soleil au matin,#      C'est du bon pour tous les grains.
    'A la chaire du bon Saint Pierre,#L'hiver s'en va, s'il ne se resserre.##A la Saint Florent,#Il est bien de semer le froment#Mais sans perdre de temps.##Souvent quand Saint Lazare appelle le froid,#Il n'en reste pas.
    'A la saint Mathias, #C'est souvent la fin des glaces.
    'Saint Roméo##Février entre tous les mois,#Le plus court et le moins courtois.
    'Saint Nestor##Quand février commence en lion,#il finit en mouton.
    'A la Sainte Honorine,#Bourgeonne l'aubépine.
    'Saint Romain##Soleil le dernier jour de février#Met des fleurs au pommier.
    'Saint Auguste##L'année bissextile, soyez fin,#Semez du chanvre au lieu du lin.
    '
    '
    'Mars haleux, #Fait bon marier la fille du laboureux.##S'il pleut à la Saint Aubin,#L'eau sera plus chère que le vin.
    'Saint Charles, Saint Jacob.
    'A la Sainte Cunégonde,#La terre redevient féconde.
    'Souvent à Saint Adrien,#Gelée ne gèle que les mains.
    'De Casimir la douceur#Fait peur aux jardiniers et aux laboureurs.
    'Au jour de Sainte Colette#Commence à chanter l'alouette.
    'De Saint Thomas à la Sainte Mathilde,#Le temps est à la neige souvent.##A la sainte Véronique,#Le soleil à l'hiver fait la nique.
    'De Saint-Jean-de-Dieu à Saint-Grégoire,#Vent et giboulées font notre désespoir.
    'Semé à la Sainte-Françoise,#Ton grain aura du poids.
    'S'il gèle aux Quarante Martyrs,#Il gèlera encore quarante jours.
    'Bon rédeux, à Saint-Euloge,#Voit les jeunes lapins à l'auge.
    'A la Saint Grégoire,#Tailler sa vigne, c'est de l'or.##A la Saint Marius,#On voit clair à l'Angélus.
    'A la Sainte-Euphrasie,#Pointe la fraise.
    'Pluie de Sainte-Mathilde#N'est jamais trop.
    'Sait Zacharie##A mi-mars,#Le coucou est dans l'épinard.
    'Sainte Bénédicte
    'Saint Patrice, Saint Patrick, Sainte Gertrude##Dème tes pois à la Saint Patrick,#Tu en auras à ton caprice.
    'A Saint Narcisse les mouches,#Aux pêcheurs les touches.
    'Le chaud à la Saint Joseph,#L'été sera bref.
    '
    'Une hirondelle ne fait pas le printemps.
    'Sainte Léa##Fleur marsière#Ne tient guère.
    'S'il pleut le jour de Saint Victorien,#Tu peux sûrement compter sur du bon foin.
    'Sainte Catherine, Saint Gabriel
    'Annonciation mouillée,#Crains les giboulées !
    'Neige en mars#vaut blé en sac.
    'Mars venteux,#Vergers pommeux.
    'A Saint Gontran, si la température est belle,#Arrivent les premières hirondelles.
    'Quand mars bien mouillé sera,#Beaucoup de fruits cueilleras.
    'Souvent, la Saint Amédée#Est de mars la plus belle journée.
    'A la Saint Benjamin,#Le mauvais temps prend fin.
    'Le premier avril, #On fait courir les sots.
    'Sainte Sandrine.
    'Saint Richard.
    'En avril,#Ne te découvre pas d'un fil !
    'Sainte Irène
    'Au jour de la Sainte Prudence,#S'il pleut, s'il vente,#Peu après le mouton danse.
    'Au sept d'avril, aporès le coucou,#C'est le rossignol qui chante.
    'Sainte Julie.
    'A la sainte Marie, #Toutes les aubépines sont fleuries.
    'Quand arrive la Saint Fulbert,#Dans la campagne tout est vert.
    'S'il gèle à la Saint Stanislas,#On aura deux jours de glace.
    'A la Saint Jules, mauvais temps #N'est pas installé pour longtemps.
    'A la Sainte Clémence,#Les moutons prennent du ton.
    'Saint Valérien, Saint Maxime.##Bourgeons de Saint Valérien,#Le fruit n'est pas loin.
    '
    'Gelée de Saint Fructueux#Rend le vigneron malheureux.
    'Beau temps à la Saint Anicet#Est l'annonce d'un bel été.
    'Saint Parfait
    'Sainte Emma.
    'Sainte Odette.
    'Tel temps à la Saint Anselme,#Tel temps pendant une semaine.
    'Saint Alexandre, Sainte Opportune##Pluie le jour de Sainte Opportune,#Ni cerises, ni prunes.
    'Quand il pleut le jour de Saint Georges,#Sur cent cerises, on en a quatorze.
    'A la saint Gaston,#Trie la semence, enlève le bourgeon.
    'Quand Saint Marc n'est pas beau, #Pas de fruits à noyau.
    'Saint Clet#Ferme la porte aux derniers pois.
    '
    'Sainte Valérie.
    'Avril a trente jours.#  Si trente et un il avait,#    Personne ne s'en plaindrait.
    'La pluie le jour de Saint Robert, #De bon vin remplira ton verre.
    '
    'A la veille de Saint Jacques#  Si tu as le soleil de Pâques,#    Compte que, pour la moisson, #      Le blé sera dru et bon.
    'En Mai, #Fait ce qui te plaît.
    'Qui n'a pas semé à la sainte Croix, #Au lieu d'un grain en mettra trois.
    'Regarde bien, si tu me crois,#Le lendemain de Sainte Croix#Si nous avons le temps serein.##Car on dit, comme un fait certain,#Que quand cela vient, Dieu nous donne#L'année premièrement bonne.
    'Le temps de Sainte Judith #Va durer jusqu'au dix.
    'S'il fait beau à la petite Saint Jean, #Année fructueuse en froment.
    'A la sainte Gisèle, #Prends garde s'il gèle.
    'A sainte Félicie, #Tous les lilas sont fleuris.
    'Rosée de mai,#Fait tout beau ou tout laid.
    'Sainte Solange
    'Gare qu'il ne gèle#A la saint Estelle.
    '
    'A la Saint servais, #Sème ton chanvre, ou bien ne le sème jamais.
    'En plantant tes fèves à la Saint Boniface, #Tu auras la bonne place.
    'A la Sainte Denise #S'arrête la bise.
    'A la Saint Honoré,#  S'il fait gelée,#    Le vin diminue de moitié.
    'S'il tonne au jour de Saint Pascal, #Sans grèle, ce n'est pas un mal.
    'Soleil à la Saint Eric #Promet du vin plein les barriques.##Bon fermier, à Sainte Juliette,#Doit vendre ses poulettes.##A la saint Félix,#Tous les lilas sont fleuris.
    'A la Saint-Yves,#Le beau temps#Ote au laboureur ses dents.
    'S'il pleut à la Saint Bernardin,#Tu peux dire adieu à ton vin.
    'Si elle gèle, Sainte Quitère#Emporte tout dans sa devantière.
    'Beau temps de Saint Emile#Donne du fruit à la folie.
    'A la saint Didier, soleil orgueilleux#Nous annonce un été joyeux.
    'Après Sainte Angèle, #Le jardinier ne craint plus le gel.
    'Soleil à la Saint Urbain #Présage une année de vin.
    'Quand il pleut à la Saint-Philippe,#Le pauvre n'a pas besoin du riche.
    'A la Saint-Hildevert,#Est mort tout arbre qui n'est pas vert.
    'A la Saint Cyrille,#Une fleur blanche pour mille.##Tant que mai n'est pas au vingt-huit,#L'hiver n'est pas tout à fait cuit.
    'A Saint Gérard,#La récolte ets encore au hasard.
    'Lorsque mai est trop jardinier,#Cela ne remplit pas le grenier.
    'S'il pleut à Saint Pétronille, #  Les raisins deviennent grappilles#    Ou tombent en guenilles.
    'Au mois de juin, quand les ânes secouent l'oreille,#C'est signe qu'il pleuvra à merveille.
    'Le feu de Saint-Elme allant aux mâts,#Indique le vent grands ébats.
    'A Sainte Clotilde, de fleur en buisson,#Abeille butine à foison.
    'A Sainte Enna,#Tes fourrages en bas.
    'Saint Igor##Prépare autant de tonneaux#Qu'en juin tu compteras de beaux jours.
    'Saint Norbert, Saint Claude##La Saint Claude#Baille les cerises ou les ôte.
    'Saint Gilbert.
    'S'il pleut à la Saint Médard, #C'est du beau temps pour les canards.
    'A Saint Félicien,#Mouche à miel n'a plus de bien.
    'A la saint Landry, s'il tonne,#Restera vide la tonne.
    'A la Saint Barnabé, #Les jours croissent d'un saut de baudet.
    'Qui nait à la Saint Basilide#Ne sera jamais invalide.
    'A la Saint Antoine de Padoue,#Toujours du temps doux.
    'A Saint Rufin,#Cerises à plein jardin.
    'Aujourd'hui, Saint Bernard, Saint Guy, Saint Modeste et Sainte Germaine.##Pluie de Saint Guy,#C'est tout l'an qui rit.
    'Si le jour de la Saint Fargeau#  La lune se fait dans l'eau,#    Le reste du mois est beau.
    'Soleil à la Saint Hervé #Fait présager d'un bel été.
    'Pluie de la Saint Florentin #Dure jusqu'au lendemain.
    'Quand il pleut à la Saint Gervais,#Il pleut quarante jours après.
    'Pluie d'orage à la Saint Sylvère, #C'est beaucoup de vin dans le verre.
    'Qui dit du mal de l'été, #Du Bon Dieu sera rejeté.
    'Saint Alban##Qui pêche en juin,#Pêche fretin.
    'Sainte Aure
    'La nuit de la Saint Jean #Est la plus courte de l'an.
    'S'il fait beau à la Saint Guillaume,#Auras du blé plus que de chaume.
    'Saint Anthelme
    'Saint Fernand##S'il pleut en juin,#Le jardinier ronge son poing.
    'Le jour de la Saint Irénée, #C'est l'un des plus beaux de l'année.##Au jour de Saint Germain,#Travaille tôt ou tard.
    'Saint Pierre et Saint Paul, #pluvieux,#Est pour trente jours dangereux.
    'Saint Martial, Saint Thibault##Lorsqu'en juin on voit sa fin, #Saint Martial souvent lave le chemin.
    '            31 06 (n'existe pas)
    'A la saint Thierry,#Aux champs, jour et nuit.
    'S'il pleut à la Visitation, #Pluie à discrétion.
    'Saint Thomas, Saint Anatole##Saint Anatole ensoleillé#De blé emplit le grenier.
    'Saint Florent, Sainte Berthe
    'Saint Antoine, Sainte Zoé
    'A Sainte Colombe,#Le ramier quitte sa colombe.
    'Quand à Saint Raoul, le soleil brille,#C'est le moissonneur qui grille
    'Saint Thibaut, Sainte Virginie, Saint Edgard##A la Saint Thibaut,#Ne t'étonne pas si le temps est chaud.
    'Sainte Amandine, #Arrive la canicule.
    'Saint Ulrich#Pluie du dix juillet,#Mouille sept fois,#Du moissonneur le bonnet
    'Saint Benoît,#Rosée du jour de Saint-Savin,#Est, dit-on, rosée de vin.
    'Saint Olivier.#Juillet, orage de nuit,#Peu de mal, mais que de bruit !
    'Saint Henri, Saint Joël, Saint Hippolyte, Saint Eugène##C'est vers la Saint Hippolyte#Que le raisin change plus vite.
    'Pluie du matin,#En juillet est bonne au vin.
    'Saint Donald,#Juillet sans orage,#Famine au village
    'Notre Dame Mont Carmel,#Qui veut bon navet,#Le sème en juillet.
    'Sainte Charlottes,#À Saint-Alexis,#Foin occis.
    'Saint Frédéric,#En juillet, mois d'abondance,#Le pauvre a toujours sa pitance.
    'À la Saint-Arsène,#Met au sec tes graines.
    'A la Sainte Marguerite,#Forte pluie est maudite.
    'Quand il pleut le jour de Saint Victor,#La récolte n'est pas d'or.
    'S'il pleut à la Sainte Madeleine, #Il pleut durant six semaines.
    'Nuages de la Sainte Brigitte, #Par le soleil sont chassés vite.
    'A la Sainte Christine,#Coupe le blé, plie l'échine.
    'Si Saint Jacques est serein,#L'hiver sera dur et chagrin.
    'S'il pleut pour la Sainte Anne, #Il pleut un mois et une semane.
    'A la Sainte Nathalie,#Temps joli.
    'Si le jour de Saint-Samson,#Le pinson est au buisson,#Tu peux, bon vigneron,#Défoncer ton poinçon.
    'Mauvais temps le jour de Sainte Marthe n'est rien, #Car il faut qu'il parte.
    'A la Sainte-Juliette, #L'été est en fête.
    'Au jour de Saint-Ignace, moissone quelque temps qu'il fasse.
    'Qui se marie le 1er août, #La corde il se met au cou.
    'Saint Julien brise glace ;#s'il ne la brise,#il l'embrasse.#Si le jour de saint Julien est trouble,#il met le vin au double.
    'Sainte Lydie.#Quiconque en août s'endormira.#En janvier s'en repentira.
    'St-Jean Marie Vianney#Quand août est bon,#Abondance à la maison. 
    'A la saint-Abel,#Faites vos confitures de mirabelles.
    'Au mois d'août,#Le vent, est fou.
    'Le mois d'août est toujours chaud,#Quand le premier de l'An est beau.
    'A la Saint Dominique#Te plains pas si le soleil pique.
    'Saint Amour##Mois d'Août pluvieux,#Rend le cep vineux.
    'L'alouette à la Saint Laurent,#  Pour voyager se met en rang.#    L'hirondelle, à la Saint Matthieu,#      Se prépare à nous dire adieu.
    'Toujours pour la Sainte Claire,#Journée chaude et claire.
    'S'il pleut à la Sainte Clarisse,#C'est souvent comme vache qui pisse.
    'S'il pleut le jour de Sainte Radegonde,#Misère abonde sur le monde.
    'A la Saint Evrard,#Temps trop beau en août,"Annonce hiver en courroux.
    'Pluie à l'Assomption,#Huit jours de mouillon.
    'Saint Armel#Après Saint-Roch,#Aiguise ton soc !
    'Quand août est bon,#Abondance à la maison.
    'A la Sainte Hélène,#  La noix est pleine,#    Et le cerneau#      Se met à l'eau.
    'Saint Jean-Eudes,#Quand août est pluvieux,#Septembre est radieux.
    'Pluie de la Saint Bernard#Fait déborder la marre.
    'Pluie violente à la Saint Christophe#Peut mener à la catastrophe.
    'Pluie à la Saint Fabrice#Ne rend pas le paysan riche.
    'A la Sainte Rose,#Pour le travailleur, pas de pause.
    'A la Saint Barthélémy,#La grenouille sort de son nid.
    'Si la lune de Saint Louis#Se fait en beau, sois réjoui.
    'Sainte Natacha,#Soleil rouge en août,#C'est de la pluie partout.
    'A la Sainte Monique,#Ne te plains pas si le soleil pique.
    'A la Saint Augustin,#Les orages sont proches de leur fin.
    'Pluie à la Sainte Sabine#Est une grâce divine.
    'A la Saint Fiacre, soleil ardent,#Pour huit jours encore, du beau temps.
    'Saint Paulin##Temps trop beau en août,#Annonce un hiver en courroux.
    'S'il fait beau à la Saint Gilles,#Cela durera jusqu'à la Saint Michel.##Saint Gilles et Saint Leu#Guérissent de la peu.
    'Orages de septembre,#Neiges de décembre.
    'Pluie du jour de Saint Grégoire,#Autant de vin de plus à boire.
    'Sainte Rosalie##Septembre se nomme#Le mai de l'Automne.
    'En septembre,#Le fainéant peut aller se pendre.
    'Saint Bertrand,#À la Saint-Onésiphore,#La sève s'endort. 
    'A la Sainte Reine,#Sème tes graines.
    'Le temps de la Nativité#Dure tout un mois sans variété.
    'Saint Alain,#Septembre emporte les ponts,#Ou tarit les fontaines.
    'A la Saint Inès,#Travaille sans cesse !
    'Tu peux semer sans crainte,#Quand arrive la Saint Hyacinthe.
    'A la Saint Aubierge#Vole le fil de la Vierge.
    'Saint Aimé##Septembre humide,#Pas de tonneaux vides.
    'A la Sainte Croix, #Cueille tes pommes et gaule tes noix.
    'La rosée de Saint Albin#Est dit-on, rosée de vin.
    'Sainte Edith##Orages en septembre,#Noël en Décembre.
    'La pluie au jour de Saint Lambert,#Il y en a pour un novenaire.
    'Froid de la Saint Nadège#Annonce pour bientôt la neige.
    'Qui sème à la Saint Janvier,#De l'an récolte le premier.
    'Gelée blanche pour Saint-Eustache#Grossit le raisin qui tache.
    'Automne en fleurs,#Hiver plein de rigueurs.##Quand vient Saint Matthieu,#L'été, adieu.
    'Séme des pois à la Saint Maurice,#Tu en auras à ton caprice !
    'A la saint Lin,#Fait rouir le lin.
    'A la Saint Gérard, les noix#Sont mûres pour toi et pour moi.
    'A la Saint Firmin,#L'hiver est en chemin.
    'A Sainte Justine, #Toute fleur s'incline.
    'Priez Saint Côme et Saint Damien,#Vous vous porterez toujours bien !
    'Forte chaleur en septembre,#A pluie d'octobre, il faut s'attendre.
    'A la Saint Michel,#  Regarde le ciel.#    Si l'ange se baigne l'aile,#      Il pleut jusqu'à Noël.
    'Saint Jerôme
    '               31 09 (n'existe pas)
    'A la Saint Rémy,#La grande chaleur, fini.
    'Octobre à moitié pluvieux#  Rend le laboureur joyeux,#    Mais le vendangeur soucieux#      Met de côté son vin vieux.
    'Saint Gérard##Si octobre est trop chaud,#En février, la glace est au carreau.
    'A la Saint François,#Vient le premier froid.
    'A la Saint Placide,#Le verger est vide.##Quand arrive la Sainte Fleur,#Pour aller au verger, ce n'est plus l'heure.
    'A la Saint Bruno,#Les feuilles tombent dans le bô.
    'A la Saint Serge,#Achète des habits de serge.
    'En octobre qui ne fume rien,#Ne récolte rien.###… les autres un cancer du poumon
    'S'il fait beau à la Saint Denis,#L'hiver sera bientôt fini.
    'Saint Ghislain
    'Si la Saint Gomer arrive par temps sec,#L'hiver sera humide dès le début.
    'A la Saint Bertrand,#Double tes vêtements.
    'Souvent à la Saint Géraud,#Nous arrive trois jours de beau.
    '
    'Il faut qu'à la Sainte Eugénie,#Toute semaille soit finie.##Souvent Sainte Thérèse nous apporte un petit été,#Mais surtout, jardinier, ne va pas te déshabiller.
    'Sainte Edwige, Saint Gall.##Le vin de Saint Gall#N'est jamais un régal.
    'A Saint Auneuil,#Cueille les querneuilles.
    'A la Saint Luc, la pluie du vallon#Fait de la neige sur le mont.
    'A la Saint René,#Couvre ton nez !
    'Sainte Adeline
    'Sainte Céline, Saint Ursule##A la Saint Ursule, #Le froid recule.
    'Au jour des Saintes Maries,#Laboure avec énergie.
    'A la Saint Hyacinthe,#On peut semer sans crainte.
    'A la Saint Raphaël,#La chaleur monte au ciel.##Souvent, à la Saint Florentin,#L'hiver lisse le chemin.
    'Pour la Saint Pépin,#Sort donc ton pépin !
    'A la Saint Amand,#Sont mûrs les glands.##A Saint Evariste,#Jour de pluie, jour triste.
    'A la Saint Dimitri,#Le froid est bien pris.##A la Sainte Antoinette,#La neige s'apprête.
    'A la Sainte Simone,#Il faut avoir rentré ses pommes.
    'Octobre au coin du feu,#Fait venir le leu.
    'Si octobre s'emplit de vents,#Du froid tu pâtiras longtemps.
    'A la Saint Quentin,#La chaleur a sa fin.##Après la Saint Urbain,#Ce qui reste de la vigne ne vaut rien.
    'Autant d'heures de soleil à la Toussaint,#Autant de semaines à souffler dans tes mains.
    'Quelque temps qu'il fasse en novembre,#Commence le feu dans ta chambre !
    'A la Saint Hubert, #Les oies sauvages fuient l'hiver.
    'A la Saint Charles,#Souvent, l'hiver parle.
    'Sainte Sylvie, Saint Ernest##A la Saint Ernest,#Abats les pommes qui te restent.
    'Quand en novembre tu entends la grive chanter,#Rentre à la maison pour t'abriter#Et du bois pour te chauffer.
    'Novembre chaud au début,#Froid à la fin.
    'Il pleut au saint Jour des Reliques,#  Et vente à décorner les biques;#    Mais, souvent, le grand Saint Martin,#      Pour trois jours, sèche le chemin.
    'A la Saint Mathurin, #Des fruits rouges c'est la fin.
    'A la Saint Léon,#Mets tes artichauts en monts.
    'Il y a plus d'un âne qui s'appelle Martin.###Si le vent du sud souffle pour la Saint Martin,#L'hiver ne sera pas coquin.
    'Saint Christian, saint Emilien
    'Saint Brice
    'A Saint Philomène,#Misère dans les garennes.
    'A la Saint Albert,#Reste bien couvert !
    'Sainte Marguerite
    'A la mi-novembre passée, #Il peut venter et neiger à souhait.
    'Journée de Sainte Aude,#Ordinairement n'est pas chaude.
    'Sainte Elisabeth nous montre#Quel bonhomme l'hiver sera.
    'A la Saint Edmond,#Le temps n'est pas bon.##A la Saint Tanguy,#Jamais vent ne languit.
    'Saint Félix et la Présentation#Amènent le froid pour de bon.
    'Pour la Sainte Cécile,#Chaque fève en fait mille.
    'Quand l'hiver vient doucement,#Il est là à la Saint Clément.
    'Sainte Flora, Sainte Flore##A la Sainte Flora,#Plus rien ne fleurira
    'Sainte Catherine,#  Toute fille veut la fêter,#    Mais point ne veut la coiffer.
    'A Sainte Delphine, #Mets ton manteau à pèlerine !
    'Si elle n'est pas là à la Saint Séverin,#La neige n'est pas loin.
    'S'il neige à la Saint Hilaire,#Il fera froid tout l'hiver.
    'Soleil fin novembre, #Noël en décembre.
    'Neige de Saint André,#Peut cent jours durer.
    '                  31 11 (n'existe pas)
    'Sainte Florence, Saint Eloi##Lorsque Saint Eloi#  A bien froid,#    Quatre mois dure le plus grand froid.
    'Sainte Viviane##Décembre trop beau,#Eté dans l'eau.
    'Saint François Xavier
    'A la Sainte Barbe,#Le soleil peu darde.
    'Saint Gérald,#Si décembre et janvier ne font leur chemin,#Février fait le lutin.
    'Le jour de Saint Nicolas,#De décembre est le moins froid.
    'A la Saint Ambroise,#Du froid pour huit jours.
    'Notre Dame de l'Avent,#  Pluie et vent;#    Tire ton bonnet jusqu'aux dents
    'De Sainte Léocardie à Sainte Nicaise, #Les gelées naissent
    'A Sainte Julie,#Le soleil ne quitte pas son lit.
    'Tel temps à la Saint Daniel,#Même temps à Noël.
    'A Saint Constance,#Plein hiver en France.
    'Sainte Luce, Sainte Lucie, Sainte Odile##A la Sainte Luce, #Le jour croît du saut d'une puce.
    'S'il neige à la Saint Florian,#Les récoltes seront en excédent.
    'Quand il tonne hors saison,#Pluie ou neige sans raison.
    'Quand il pleut à la Sainte Alice,#C'est souvent comme une vache qui pisse.
    'Saint Gaêl,#Quand secs sont les Avents,#Abondant sera l'an.
    'À la Saint-Gatien,#Le temps ne vaut rien.
    'Saint Urbain,#En décembre, fais du bois,#Et endors-toi.
    'Au vingt de Noël,#Les jours rallongent d'un pas d'hirondelle.
    'Saint Thomas##Soleil d'hiver, amour de paillarde,#Tard vient et peu darde.
    'Décembre prend,#Il ne rend.
    'A Sainte Evariste,#Jour de pluie, jour triste.
    'Entre Sainte Adèle et Saint Vincent,#Les gelées ont plus de mordant.
    'Noël au balcon, Pâques aux tisons.##A la Noël ciel laiteux, #                       à la Saint Jean ciel orageux.
    'A la Saint Etienne,#Les jours croissent#D'une aiguillée de laine.
    'A la Saint Jean,#Se renouvelle l'an.
    'S'il neige à la Sainte Eléonore,#Les récoltes seront d'or.
    'Saint David,#À la Saint Thomas,#Les jours sont au plus bas.
    'Saint Roger,#Quand il tonne hors saison,#Pluie et neige sans raison.
    'Chaque Saint-Sylvestre sonnée,#Nous fait plus vieux d'une année.
    </script>
    Windows 10
    Microsoft Edge (64 bits)
    Google Chrome Version 67.0.3396.99 (Build officiel) (64 bits)

  5. #5
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 157
    Points
    17 157
    Par défaut
    Re

    Ta ligne 45, essais simplement debut() plutôt que Window.Onload = GetRef("debut"), chez moi c'est la solution.
    De plus, mets toutes la partie VBScript entre les balise <body> </body>, car document n'existe pas si tu n'as pas ces balises.
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  6. #6
    Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    Décembre 2004
    Messages
    6 067
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : Décembre 2004
    Messages : 6 067
    Points : 17 157
    Points
    17 157
    Par défaut
    Re

    Au fait, pour aujourdhui, tu peux faire plus simple aujourdhui=FormatDateTime(date,vbLongDate) pour avoir la lecture de mardi 7 Aout 2018
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.
    👉 → → Ma page perso sur DVP ← ← 👈

  7. #7
    Membre actif
    Homme Profil pro
    retraité
    Inscrit en
    Juillet 2011
    Messages
    380
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Juillet 2011
    Messages : 380
    Points : 247
    Points
    247
    Par défaut
    Je te remercie pour ces informations.
    Windows 10
    Microsoft Edge (64 bits)
    Google Chrome Version 67.0.3396.99 (Build officiel) (64 bits)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [FPDF] Probleme dans l'utilisation de la classe FPDF et les tableaux
    Par mathieu77186 dans le forum Bibliothèques et frameworks
    Réponses: 3
    Dernier message: 24/04/2008, 23h03
  2. probleme dans l'utilisation de la fonction include
    Par cortex007 dans le forum Langage
    Réponses: 7
    Dernier message: 27/01/2006, 18h37
  3. "warning" dans eclipse (utiliser les Generic)
    Par Isher dans le forum Eclipse Java
    Réponses: 15
    Dernier message: 19/10/2005, 13h04
  4. [Select()/Focus()] Pb dans l'utilisation de ces méthodes
    Par Kylen dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 23/06/2005, 15h54
  5. Erreur dans l'utilisation de SWAP
    Par mire dans le forum Langage
    Réponses: 12
    Dernier message: 15/03/2003, 22h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo