Modifier un fichier pour télécharger des données d'internet
Pour l'instant, tout va bien sauf la mise à jour qui se déclenche toutes les 20 secondes !!
Pourtant, la macro Start Timer est réglée sur 300 secondes. Quelle chose à régler ?
Merci
Qataror
Bonjour,
ALT + F11 pour voir le code.
Va dans le module1, regarde : Sub StartTimer()
C'est dans ce code que le délai est ajusté en seconde.
Excuse-moi d'avoir oublié de le mentionner.
Le court délai d'actualisation était pour les tests.
Bizz
Pas de souci. Je n'avais pas remarqué le 10 au lieu du 300. Voilà, c'est rectifier.
Bonjour Bizarre,
Encore un petit problème rencontré dans le dernier fichier b2003-b.
En effet lors de la mise à jour, les cours sont des chiffres entiers et ne prennent pas en compte les décimales.
J'ai essayé de comparer les 2 macros b2003 et b2003-b mais aucune différence donc je ne sais pas comment effectuer la rectif.
Merci pour ton intervention
Cordialement Qataror
Bonjour,
Malheureusement, c'est la proposition de dysorthographie qui pose problème.
J'ai remis l'information à l'origine et les décimales sont revenues.
Bizz
Bonjour dysorthographie,
Je viens de tester les deux versions.
Est-ce que tu as regardé la ligne 33 ?
Si c'est "Val", les décimales sont toujours ,00
Si c'est "Cdbl, les décimales s'affichent.
Bizz
Bonsoir,
Un Grand Merci à Bizarre et à dysorthographie pour votre aide pour l'actualisation automatique de mon fichier excel bourse.
Très cordialement
Qataror
Bonjour,
voila ce que j'ai répondu hier à 12:05
Bonjour,
Personnellement je préfère Val à Cdbl car CDBL prend en charge les paramètres régionaux et pas VAL!
If .Status = 200 Then COT(i, 1) = Format(Val(Replace(Split(Split(.responseText, avant)(1), apres)(0), ",", ".")), "#0.000")
donc le code devient:
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", URL, False
.Send
If .Status = 200 Then
COT(i) = Format(Val(Replace(Split(Split(.responseText, avant)(1), apres)(0), ",", ".")), "#0,000") ' CDbl pour les décimales
End If
End With