info?

[sylvain]

Salut a tous! Salut Thierry!

Je vais pouvoir etre un membre actif de ce forum (apres avoir demander je vais pouvoir aider) car je vais d'ici un ou deux mois en formation vb excel 2000.

Ouaiiiiiiiiiiiiiiiii!!!!!!!!!!!!!!!

Bon Aprem a tous!

 

[@+Thierry]

Super content pour Toi Sylvain !

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

@+Thierry

 

[Ti]

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

 

[andré]

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é

 

[Quaisako]

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

 

[fabrice]

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

 

[Mytå]

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å