Retardement le lancement d une macro

[mimy]

Bonjour,

Je suis en train de réaliser un fichier excel qui récupère des cours d indices via un site internet.
Grâce à l aide de personnes de ce site, j ai pu réaliser à bien ce fichier mais je voudrais l optimiser.
Le problème c est que la "connexion" entre le site est mon fichier est lente et les valeurs mettent quelques secondes à s afficher. D où le message Debug dès l ouverture de mon fichier.
Je voudrais savoir si dès l ouverture de mon fichier on peut mettre un timer (je suppose dans workbook_open) et qui prend en compte ma macro qui est dans ma Feuil1 qui s appelle Private sub Worksheet_Calculate().
J ai ecrit dans ThisWorkbook:

private sub WorkBook_open()
Application.Ontime Now+TimeValue("00:00:10"), "Worksheet_Calculate"
v=Sheets("Feuil1").range("B7").value ' j actualise mes valeurs de cours d indices
end sub

mais ça ne marche pas.

Dans d autres sites il y a des exemples où la macro se trouve dans un module et ça marche contrairement à ma macro dans ma Feuil1

Merci beaucoup

 

[Pierrot93]

Re : Retardement le lancement d une macro

Bonjour,

le mieux est de rester sur le même fil.....;
https://www.excel-downloads.com/threads/timer-qui-actualise-colonne-de-feuille.180365/
mets plutôt en pièce jointe un tout petit fichier permettant de reproduire le problème posé (avec une requête identique), en l'état tu risques de tourner en rond encore longtemps...

bon après midi
@+

 

[mimy]

Re : Retardement le lancement d une macro

Merci Pierrot!

Seulement sur l ordi sur lequel je suis, je n ai pas d acces a mes documents excel et je n ai aucun moyen de le récuperer. Je sais que ca parait bizarre mais c est une règle de mon école....

 

[mimy]

Re : Retardement le lancement d une macro

re,

J ai reussi a le récuperer!

 

[mimy]

Re : Retardement le lancement d une macro

Bonjour tout le monde,

j ai fait des recherches hier soir et j ai toujours pas reussie

 

[Pierrot93]

Re : Retardement le lancement d une macro

Bonjour,

z'avais pas vu ton fichier.... désolé...

Je suis en train de réaliser un fichier excel qui récupère des cours d indices via un site internet.

vois rien dans ce sens sur ton fichier, par contre il y a une liaison avec un autre fichier.....

bon après midi
@+

 

[mimy]

Re : Retardement le lancement d une macro

re,

Ce sont mes liens que je récupere et que je mets dans mes cellules, le truc c est qu il y a juste un probleme dès l ouverture du fichier car les valeurs mettent du temps à s afficher et comme la macro s execute dès l ouverture du fichier ca bug automatiquement. Je ne sais pas si on peut par exemple dès l ouverture du fichier retarder le lancement de ma macro

 

[Pierrot93]

Re : Retardement le lancement d une macro

Re,

pour retarder le lancement de la macro, il y avait cette méthode :

Application.Ontime

que je t'avais donné dans une précédente discussion...

 

[mimy]

Re : Retardement le lancement d une macro

re,

Je sais qu il faut utiliser Application.Ontime Now+ timeValue("00:00:05") , mais la il faut que je mette une macro qui doit se trouver dans un module standart et non dans ma Feuil1.
Sais tu si on peut pas faire, "tant qu il n y a pas de valeur numerique dans ma cellule B7 on lance aucune macro"

 

[mimy]

Re : Retardement le lancement d une macro

Merci Pierrot en tout cas

 

[Pierrot93]

Re : Retardement le lancement d une macro

Re,

tu avais la totalité des codes dans une précédente discussion me semble t'il.....

 

[Pierrot93]

Re : Retardement le lancement d une macro

Re,

regarde ce sujet :
https://www.excel-downloads.com/threads/timer-qui-actualise-colonne-de-feuille.180365/

notament le post #17, par contre il faut retirer cette partie, et modifier la valeur de la fonction "timevalue" :

Do While .QueryTables(1).Refreshing
        DoEvents
    Loop

 

[mimy]

Re : Retardement le lancement d une macro

Re,

je sais qu il y avait le code mais j avais tenté de le changer et ca ne marchait toujours pas,

donc je reecris ca?

Option Explicit
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "mamacro"
End Sub

Option Explicit
Public v As Double
Sub mamacro()
With Sheets("Feuil1")
v = Sheets("Feuil1").Range("B7").Value
End With
End Sub

merci

 

[Pierrot93]

Re : Retardement le lancement d une macro

Re,

oui, plus toujours le code dans le module de la feuille lié à l'événement "calculate"....

 

[mimy]

Re : Retardement le lancement d une macro

Re,

Ca marche toujours pas... je pensais donc à un bouton on/off.
Dès l ouverture de mon fichier mon bouton se met sur off par defaut. Mes liens se mettent à jour tout seul.
Et dès que j appuie de nouveau sur le bouton la macro s effectue avec les valeurs numérique de mes cellules.
Est ce que c est possible d affecter ma macro "calculate" à un bouton?

merci merci et merci