Fonction VBA pour update essbase

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

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 :ccool:

Merci pour la réponse.


J'aimerais ajouter une exception pour deux feuilles.

Merciii

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:

---

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

---

Merciii beaucoup

Je vous embete encore un peu :D

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 ... :cry:

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

Code:

---

X = EssVDisconnect(sheetname)

---

Merciiii

Bonjour,

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

Code:

---

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

---