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

Re,

la macro "calcula" est une procédure événementielle, pour mettre le calcul sur ordre, à placer dans le module "thisworkbook", événement "open" :

Application.Calculation = xlCalculationManual

pour rétablir la calcul auto, à associer à ton bouton :

Application.Calculation = xlCalculationAutomatic

 

[mimy]

Re : Retardement le lancement d une macro

Donc si je comprends bien, il faut que
- je dessine un rectangle qui sera mon bouton
- je laisse le code worksheet_calculate dans la feuil1
- puis j ecris ça dans this workbook:
Option Explicit
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic
v=Sheets("Feuil1").Range("B7").value
End Sub

- et dans mon module standart:
Option Explicit
Public v As Double

peut être que je dis des betises...

 

[Pierrot93]

Re : Retardement le lancement d une macro

Re,

non, dans l'événement "open"

Option Explicit
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub

et dans un modle standard, une macro associé à ton bouton :

Option Explicit
Public v As Double
Sub Test
v=Sheets("Feuil1").Range("B7").value
Application.Calculation = xlCalculationAutomatic
End Sub

+ le code dans le module de la feuille....

 

[Pierrot93]

Re : Retardement le lancement d une macro

Re,

attention je viens d'éditer le code du précédent message...

 

[mimy]

Re : Retardement le lancement d une macro

re,

pardon j avais mal lu.... je vais essayer

 

[mimy]

Re : Retardement le lancement d une macro

re,

qu entends tu par réediter le code précédent Pierrot?

 

[mimy]

Re : Retardement le lancement d une macro

re,

J ai ecrit ce que tu avais fait, je n ai plus le message d erreur mais je suis obligée de rafraichir à la main mes cellules qui contiennent les liens....

 

[Pierrot93]

Re : Retardement le lancement d une macro

Re,

pour mettre à jour toutes les liaisons du classeur actif :

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

 

[mimy]

Re : Retardement le lancement d une macro

Re,

Je dois mettre ça dans ma Feuil1??

 

[Pierrot93]

Re : Retardement le lancement d une macro

Re,

1ère ligne d'instruction dans la macro "test" du module standard....

 

[mimy]

Re : Retardement le lancement d une macro

Bonjour Pierrot,

J ai rajouté ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources dans le module mais ça bug. Je ne sais pas pourquoi

 

[mimy]

Re : Retardement le lancement d une macro

Est ce qu il ne faudrait pas updater les liens dès l ouverture du fichier avant d appuyer sur le bouton? à mettre dans le workbook_open?

 

[Pierrot93]

Re : Retardement le lancement d une macro

Bonjour,
ca bogue sur quelle ligne ? en jaune lors du debogage....

 

[mimy]

Re : Retardement le lancement d une macro

re,
ça souligne en jaune ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

 

[Pierrot93]

Re : Retardement le lancement d une macro

Re,

A voir si la source des données est valide et disponible....