Discussion :

[Kutoh]

Bonjour
J'ai une feuille contenant des formules.
La macro que j'écris récupère des informations dans un classeur excel et les colle dans ma feuille contenant des formules. Le soucis c'est que pour que ma macro puisse continuer son évolution faudrait que les formules de la feuille excel se mettent à jour, ce qui n'est pas le cas. Ce n'est qu'après l'arrêt de la macro que ma feuille excel se met à jour.

j'ai écris un code qui me permet de mettre à jour ma feuille pendant l'exécution de la macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    For Each Plg1 In Range("C10:H134")
    Do
    Plg1.Calculate
    Loop Until Plg1.Value = "#N/A Requesting Data..."
    Next Plg1

Mais il ne se passe rien.
Une idée?
Merci

[mayekeul]

bonjour,

comme le code est écrit là, tu ne calcule qu'une cellule, pas la feuille.

Donc je ne sais pas si c'est ce que tu veux..

le code donné... soit il ne se passe rien du tout... soit ça va boucler indéfiniment...

[Kutoh]

J'ai changé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Plg1.Calculate

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Sheets(NomFeuil).Calculate

mais toujours rien

Le principal problème ici est la mise à jour de la feuille pendant que ma macro est entrain de tourner. Ce qui serait déjà un bon début serait de savoir s'il y'a moyen de faire perdre le focus à ma macro(en gros comme si elle s'est arrêtée de tourner).

[parmi]

Normalement, tes formules se mettent à jour dès qu'il y a changement.
C'est pourquoi, lorsqu'on ne veut pas que ça calcule, on met Application.Calculation à Manuel en début de procédure et qu'on remet à Automatique à la fin.

Si tu n'utilises pas ça, ça devrait se calculer au fur et à mesure.

Autrement, si tu ne vois pas les changements, peut-être utilises-tu Application.ScreenUpdating à False (?)

[Kutoh]

J'ai éssayé Mais y'a tjrs rien.
Ce que j'ai fait c'est de mettre une pause à ma macro mais ce n'est toujours pas la solution.
Ma dernière alternative était de découper ma macro en laissant le temps à mes formules de se mettre à jour et ça fonctionne.

[nibledispo]

bonjour,

personnellement je ne saisis pas l'utilité de cette macro qui n'est de toute évidence pas celle qui introduit les valeurs à calculer dans la feuille.

j'ai fait l'essai suivant et le calcul est immédiat à chaque changement de n.

la formule col A + col B est colonne C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub calcul()
n = 5
For i = 1 To 30
    Cells(i, 1) = i + n        ' valeur logée cellule Ai
    Cells(i, 2) = i + 2 * n   ' valeur logée cellule Bi
Next i
End Sub

cordialement.

[Kutoh]

C'est normal que le calcul soit immédiat, parce qu'il fait partir de ta macro. Dans mon cas, ma macro ,ne fait aucun calcul, elle injecte juste les données dans les cellules et les fonctions contenues dans la feuilles font le reste du boulot(calcul). J'ai oublié de mentionner que les fonctions présentes dans ma feuille sont des fonctions bloomberg, ceci dit, pour que le calcul soit fait, il faut donner le focus à bloomberg, ce qui n'est pas le cas lorsque ma macro est en exécution.

[nibledispo]

bonjour,

dans la macro, je modifie deux valeurs qui seront entrées en A et B.
le calcul, c'est à dire la somme des deux valeurs entrées Excel, se fait bien sur la feuille excel.

je ne connais pas les fonctions bloomgerg et le coup d'oeil jeté sur le net ne m'instruit pas davantage sur celles-ci.

pour une meilleure info des membres, il ne serait sans doute pas inutile que tu donnes un extrait de ta feuille de calcul avec ces fonctions et de la macro dont tu parles dans ta première intervention, celle qui envoie les données à ta feuille de calcul.

cordialement.

[Kutoh]

Desolé de t'avoir av=bandonné. En fait les formules bloomberg ne fonctionnent que lorsqu'il existe une connexion bloomberg, auquel cas tu aura des
#NA Requesting Data... dans tes cellules.

Je ne suis pas autorisé à poster cette feuille de calcul, sinon je l'aurai fait par contre pour ce qui est de mon code il est dans le fichier excel ci joint. J'espère que tu arriveras à suivre.

[parmi]

Personnellement, je recommencerais à 0 ou presque...
Tu utilises beaucoup trop de variables Globales (en entête de module). Tu cherches le trouble...

J'ai aussi vu Application.Volatile qui ne sert à rien

Et il y a trop de code pour bien comprendre où se situerait pe problème...

[Kutoh]

Ya trop de variables parce que je t'ai donné juste la partie qui fait l'importation et le calcul.

J'ai enlevé les partie de traitement, d'enregistrement et bien d'autres encore, qui utilisent les variables que tu a vu. C'est pour ça que je t'ai dit que j'espère que tu vas suivre. Ce programme est très long.

Et pour ce qui est d'application.Volatile, je l'ai enlevé, comme j'ai écris dans l'entête, c'est une ébauche.

Tu veras les deux Sub que j'ai nommé ImportDonnées et CalculDonnées, ces deux sub étaient une seule avant. Mais coe juste après l'introduction de mes données ma feuille ne se mettait pas à jour, j'ai divisé ma macro. Comme ca lorsque j'importe des données(avec le USERFORM), ensuite j'arrête ma macro d'importation et je clique sur le bouton calcul pour poursuivre mon traitement.

Comme je l'ai dit, bloomberg a besoin de prendre le Focus pour mettre à jour ma feuille, et il ne peut pas prendre ce focus quand ma macro est en exécution, entre autre j'avais pas d'autre solution que de couper ma macro.

[parmi]

Lorsque tu dis que tu utilises les formules Bloomberg, est-ce que ce sont les formules du genre qui suit ?
=BDP(...)
=BDH(...)
=BDS(...)

Et est-ce que ce sont ces formules qui ne se mettent pas à jour ?

Est-ce que dans ta session Excel, il y a un onglet ajouté avec les menus Bloomberg ?

[Kutoh]

C'est exactement ces formules là qui sont dans ma feuille de calcul et qui ne se mettent pas à jour, et c'est exact aussi pour l'onglet.

[parmi]

J'ai vu la barre de menu ajouté sur ce site
http://www.gsb.stanford.edu/sites/de...loomberg_0.pdf

Est-ce que la boîte "Real-time updates" est bien cochée chez toi ?

Et est-ce que tu as accès à des fonctions du Add-In à partir d'Excel ?
C'est peut-être là qu'il faudrait regarder pour faire un "Refresh" des formules (?)

[Kutoh]

Real-Time Udaptes est bel et bien cochée et il y'a sur cette barre un onglet appelé Refresh Workbooks dans lequel tu as
- Refresh Selection
- Refresh worksheet
- Refresh Workbook
- Refresh Workbooks

Et avec des sendkeys j'ai à chaque fois fait Refresh Worksheet accompagné d'un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Wait

Mais ça ne me donnait toujours rien.

[parmi]

Voici quelque chose que j'ai trouvé et qui pourrait peut-être aider (?)
Comme je n'ai pas accès à Bloomberg, je ne peux tester...

If you wish to emulate the Bloomberg "Refresh All Static Data" menu item, found in the "BLP...Refresh" toolbar's drop-down menu, within your Excel VBA code, you can do so by adding the following line of code within a sub procedure/function in a code module:



VB:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Run "blpmain.xla!RefreshAllStaticData"

For this code to update static RTD links, the "Use DDE Only" checkbox in the "About Bloomberg Excel Add-In" dialog box must be unchecked (otherwise DDE will be used), you must be using Microsoft Excel 2002, or greater (previous versions do not support RTD), and you must use the BLP() function (a straight RTD call in an Excel worksheet cell will not work, just as it will not work with its toolbar equivalent.

[Kutoh]

Ah j'avais déjà éssayé cette ligne de code, mais je n'ai eu aucun bon resultat. J'avais un message d'erreur qui me disait

fichier introuvable

[parmi]

Lorsque tu es dans l'IDE, est que tu vois le fichier BLPMAIN.xla à gauche avec le ou les autres programmes ?

Sinon, il faudrait probablement que tu coches le fichier dans la liste des macros complémentaires.

[Kutoh]

Sisi je vois ce fichier, mais il est impossible de le toucher. Les macro xla de Bloomberg sont protégées par un mot de passe. De toutes les façons, s'il ya un moyen que ça marche, c'est eux qui devraient avoir la solution.

[EngueEngue]

Kutoh... J'utilise aussi bloomberg souvent.

A l'endroit ou tu dois attendre qu'elles se réactualisent mets un petit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call wait

Qui fera attendre 15 secondes histoire que ton sheet s'actualise.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sub wait()
PauseTime=15
Start = Timer
Do while timer< Start + PauseTime
DoEvents
Loop
End Sub

Il te suffira de jouer avec le PauseTime pour que toutes soient actualisés.