Discussion :

[ratiarison]

bonjour,

j'utilise avec excel 2003, l'addin XL reportbuilder qui me permet d'attaquer les cubes olap analysis services.
J'ai fait un rapport au format libre (utilisation des fonctions cellmembervalue,etc..) qui extrait à partir de 3 cubes (donc 3 connections )des informations communes à une clé unique.

Je récupère ces informations dans une zone que je souhaite recopier dans un autre onglet en valeurs.

Mon souci VBA excel est d'être sur d'avoir actualisé toutes les fonctions reportbuilder avant de les copier en valeurs.

Et donc de réaliser une étape d'actualisation-temporisation
avant déclenchement du module de copie.

j'ai testé diverses fonctions d'attente, l'application ontime.
Mais ce n'est pas satisfaisant (copie de valeurs partiellement actualisées)

Est ce qu'il y a une spécificité du reportbuilder addin ?

Merci pour vos éclairages.

[cafeine]

Hello,

Par quelle instruction VBA déclenches-tu l'actualisation ?
Une possibilité pourrait être d'encapsuler l'actualisation de tes chiffres dans un process.
J'utilise cette technique pour attendre que des calculs Hyperion ESSbase soient terminés pour enchainer des traitements.
Pour te mettre sur la voie, il y a ce code disponible dans une FAQ avec l'API
WaitForSingleObject.

[ratiarison]

Bonjour, voici l'extrait code VBA excel que j'utilise:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
With Application
        .Calculation = xlManual
End With
 
Range("I24:AJ29").Select
Calculate
 
Range("I31:AJ36").Select
Calculate
 
Range("AK24:AQ29").Select
Calculate
 
Range("AU24:BF27").Select
Calculate
 
 
Attente2
 
    Range("E40:AS48").Select
    Selection.Copy
    ActiveWorkbook.Sheets("blocdna").Select
    Range("A" & copiedeb).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    copiedeb = copiedeb + 9
"
"Sub Attente2()
Dim Start, PauseTime
PauseTime = 1
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub

"
Ce code ne fonctionnant pas j'ai laissé tombé pour le moment. je vais explorer votre code API.

Merci