Discussion :

[said06000]

Bonjour tout le monde.
Je viens car j'ai besoin de votre aide.
J'ai une macro qui fait un retrieve de mon cube essbase donc qui me raffraichit tout mes chiffres sur mes 22 feuilles excel. Jusque la aucun soucis.
Le probleme est que j'ai 2 feuilles excel dans mon classeur où j'aimerais que ma macro ne fasse pas de retrieve.
Si quelqu'un connait a un bout de code qui le fait ...
Je vous remerciiiie
Bonne journée

[Jean-Philippe André]

salut,

idéalement, si tu nous fournis un peu de code actuellement utilisé pour le retrieve, on augmentera considérablement tes chances d'avoir une solution adéquate à ta problématique

[said06000]

Merci pour la réponse.


J'aimerais ajouter une exception pour deux feuilles.

Merciii

[Jean-Philippe André]

Et bien avec ce code c'est très simple, mais as-tu le nom des feuilles que tu ne souhaites pas passer au Retrieve ?

Il s'agira d'adapter ces lignes :

Code :

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

1
2
3
4
5
6
For Each Feuille In Application.ActiveWorkbook.Worksheets     
 If Feuille.Name<>"nomdema1erefeuilleaeviter" and Feuille.Name<>"nomdema2efeuilleaeviter" Then
    retourEssbase = EssVRetrieve(Feuille.Name, Null, 1)
    If retourEssbase <> 0 Then MsgBox "Erreur " & retourEssbase 
 End If
Next Feuille

[said06000]

Merciii beaucoup

[said06000]

Je vous embete encore un peu

J'aimerais qu'à la fin de la macro mes feuilles excel soient automatiquement déconnecté.
J'ai vu qu'il y avait la fonction EssVDisconnect
Mais je n'arrive pas ...

J'arrive a déconnecter une feuille mais pas toutes en meme temps.

Code :

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

X = EssVDisconnect(sheetname)

Merciiii

[asphp]

Bonjour,

ce code parcourt toutes les feuilles du classeur et déconnecte les feuilles connectées. Enjoy !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim oSheet As Worksheet
Dim sName As String
 
        For Each oSheet In ActiveWorkbook.Worksheets
            ' Récupération du nom de la feuille dans le format de l'addin
            sName = "[" & oSheet.Parent.Name & "]" & oSheet.Name
 
            ' Si la feuille est connectée
            If EssVGetHctxFromSheet(sName) > 0 Then
                ' Déconnexion de la feuille
                EssVDisconnect sName
            End If
        Next