info?

Super content pour Toi Sylvain !

Moi je n'ai jamais eu aucune formation... (C'est trop injuste comme disait Caliméro !!)

@+Thierry

ben, moi non plus, ya des privilégiés tout de même !

Moi aussi je comptais partir en formation, mais maintenant que Sylvain y va, cela devient inutile, puisqu'il pourra bientôt résoudre mes problèmes (-lol-).

André

Bonjour Sylvain, @+Thierry, Ti, André et les autres,

Sylvain, c'est sympa de nous faire partager ton entousiasme. Je comprends ton élan de joie. Content pour toi.

Si tes formateurs ont quelques difficultés (ça arrive), je connais un Forum où il y a des gens supers pour le VBA, les formules, les TCD et tout le reste.

Tchin! A la votre!

Quaisako

salut tout le monde.

Moi aussi je n'ai jamais fait de formation, enfin, jusqu'a ce que je trouve XLD. ;=)

Allez les gars, courrage, bientot Sylvain pourra vous soulager!!!

A+
FAb

Bonsoir le Forum

Apprnds vite sylvain besoin de toi la-dessus


Sub Req_web()
Open "c:\requ.iqy" For Output As #1 'crée fichier texte
'inscrit le texte de la requête
Print #1, "WEB" & Chr(10) & "1" & Chr(10) & "http://diffusion.loto-quebec.com/sw3/res/asp/hr_6.asp"
Close #1 'ferme le fichier texte
'insére la requête dans la page 3
Sheets(3).QueryTables.Add("FINDER;C:\requ.iqy", Sheets(3).Range("A1")).Refresh
Kill "c:\requ.iqy" 'supprime le fichier texte
Sheets("Update").Select
Columns("C:C").Select
Selection.NumberFormat = "dd-mmm-yyyy"
Range("A1").Select
'
'Quoi insérer ici pour attendre que la page soit complétement
'chargée avant de lancer la macro Transfert_données()
'
Call Transfert_donées
End Sub

Le professeur ca va etre toi )))))

Amitié Mytå