Discussion :

[Val2000]

Bonjour,
je travaille avec Essbase (Excel Add-in, pas de droits administrateur). Via une macro dans excel, je lance un grand nombre de retrieves. Mon probleme: Apres 250 connexions (chacune deconnecte) je recois une message d'erreur comme quoi le nombre maximum (250) de connextion est atteint. Est-ce que qqn aurait un conseil comment je pourrais ou fermer ma session entiere (ce aui mettrait le compteur des connexions a 0 a mon avis) ou augmenter le nombre par defaut des connexions possibles? Ou autre solutions?

Merci d'avance.

[Antoun]

Bonjour,

Pourrais-tu donner le libellé exact du message d'erreur, et si possible son numéro ?

Dans tous les cas, les connexions fermées ne devraient pas compter... Peux-tu nous montrer ton code qui les ferme, voire l'ensemble de ta macro ?

[Val2000]

Bonjour,

Pourrais-tu donner le libellé exact du message d'erreur, et si possible son numéro ?

Dans tous les cas, les connexions fermées ne devraient pas compter... Peux-tu nous montrer ton code qui les ferme, voire l'ensemble de ta macro ?

Bonjour Antoun,

voici le message d'erreur (fenetre premier plan, en Allemand...). Il n'a pas de code erreur, on ne le trouve pas non plus dans la liste des erreurs dasn les documents Essbase.


La traduction: nombre maximum [250] de connexions pour la session a ete atteint. En anglais (trouve dasn le net): You have exceeded the maximum [250] connections for this session.
Le principe de la procedure est une combinaison d'un fichier excel avec la procedure et des templates dedans. A partir d'un userform, on choisit les reportings qu'on veut (40 au total), le degre de detail organisationel (Divisions, Business Units, ...), le mois concerne etc. Cela marche tres bien jusqu'au 25eme reporting a peu pres. A ce moment 250 connexions/deconnexions son atteints (je les compte dan mon userform) car il y a des reportings acev une trentaine d'onglets dedans (un pour chaque Business Unit etc). Donc a ce moment le message d'erreur apparait. A la fin, aucune connexion Essbase reste ouverte. Si je choisis moins de 25 reporting a la fois, tout se passe bien.
Je passe par deux fonctions pour connecter/deconnecter, ensuite une pour faire le retrieve:

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
Public Function essVLogin(ByVal p_strSheetName As String, p_strUser As String, p_strPassword As String, p_strServerName As String, p_strCubeName As String, p_DatabName As String) As Long
On Error GoTo ErrorHandler
Dim Ctxt As Long
 
 
    Ctxt = EssVConnect("[" & ActiveWorkbook.Name & "]" & p_strSheetName, p_strUser, p_strPassword, p_strServerName, p_strCubeName, p_DatabName)
 
'Compteur de connextions:
    Frm_GetData.Txt_Connect.Value = Frm_GetData.Txt_Connect.Value + 1
 
    If Ctxt <> 0 Then GoTo ErrorHandler
 
 
    Exit Function
ErrorHandler:
essVLogin = -1
End Function
 
' >>>Essbase Logout
Public Function essVLogout(ByVal p_strSheetName As String) As Long
On Error GoTo ErrorHandler
Dim Ctxt As Long
Dim DisConXcounter As Integer
 
    Ctxt = EssVDisconnect("[" & ActiveWorkbook.Name & "]" & p_strSheetName)
 
 'Compteur de deconnextions:   
Frm_GetData.Txt_Disconnect.Value = Frm_GetData.Txt_Disconnect.Value + 1
    If Ctxt <> 0 Then GoTo ErrorHandler
 
 
    Exit Function
ErrorHandler:
essVLogout = -1
End Function

Une solution erait de couper le package de reporting en deux. Mais cela serait vraiment dommage pour l'outil je trouve....Merci beaucoup par avance de ton aide!
Val

[Antoun]

J'ai reproduit ton bug à partir de tes fonctions. Quand je vais dans le menu Disconnect de l'add-in, je m'aperçois que les connexions des feuilles ne sont pas fermées, parce qu'elles sont référencées simplement sous le nom de la feuille plutôt qu'avec la combinaison [classeur]feuille.

C'est une faille que j'ai déjà rencontrée avec le Spreadsheet Toolkit, quand tu fermes la connexion avec [classeur]feuille alors que la connexion s'appelle simplement feuille, ou le contraire, il ne fait pas d'erreur parce que la connexion est vraiment fermée au niveau Essbase, mais elle continue à être référencée comme active dans l'add-in.

Du coup, j'ai adapté la fonction de fermeture pour qu'elle fasse les deux :

Code VBA :

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

1
2
    Ctxt = EssVDisconnect("[" & ActiveWorkbook.Name & "]" & p_strSheetName)
    Ctxt = EssVDisconnect(p_strSheetName)

Comme ça, les connexions sont vraiment oubliées et je dépasse sans problème la limite de 250.

[Val2000]

Bonjour Antoun,
c'est magnifique et tout simple, ca marche nickel. Milles mercis!
Val