Discussion :

[eric062]

Bonjour à Tous

J'essaie de faire un update sur Essbase avec VBA mais rien ne se passe
Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 Private Sub Send_btn_Click()
    essbase = EssVConnect("[Update 05202011.xls]RESULTS", "admin", "password", "10.1.1.198", "DISTRI27", "DISTRIB")
        range("E5").Select
    essbase = EssVRetrieve("[Update 05202011.xls]RESULTS", range("A5:" & Chr$(64 + Selection.End(xlToRight).Column) & Selection.End(xlDown).Row), 3)
    range("E5").Select
    essbase = EssVSendData("[Update 05202011.xls]RESULTS", range("A5:" & Chr$(64 + Selection.End(xlToRight).Column) & Selection.End(xlDown).Row))
    essbase = EssVUnlock("[Update 05202011.xls]RESULTS")
    essbase = EssVDisconnect("[Update 05202011.xls]RESULTS")
    MsgBox "Data have sent"
 
    End Sub

merci d'avance

[Antoun]

1) Si tu le fais hors VBA, sur le même point de vue, ça marche ?

2) à la suite de chacune de tes instructions, peux-tu regarder si ta variable essbase vaut bien zéro ?

3) peux-tu publier ici ta requête Excel ?

[eric062]

1) Si je le fait à la main ça marche

2) les variables valent bien zéro à chaque instruction

3) je ne peux pas publier le tableau qui doit être mis à jour.

[eric062]

Le probleme est résolu.
Je ne sais pas ce qui a débloqué mais il fait les mise à jour correctement

Merci