problème avec MSChart.chartType=

Bonjour,

Je sèche complètement ... à l'aide !!

Dans une appli, j'ai la ligne de code suivante :

Code:

---

MSChart.chartType=VtChChartType2dBar

---

Si l'appli est lancée par un profil administrateur pas de pb. Par contre, si c'est un autre utilisateur, alors j'ai l'erreur suivante :

"L'objet invoqué s'est déconnecté de ses clients"

J'ai vérifié que MSCHART20.ocx était bien registrer, mais rien n'y fait ! Si une âme charitable se sentait inspirée ... Merci !

C'est difficile de t'aider sans aucun bout de code qui montre exactement où ça plante !
Déjà je te conseille de faire une gestion d'erreur rapide avec on error go to ... et récupérer le err.description et nous la dire avec un bout de code où ça plante !!

Sinon à mon avis le problème est que tu fais appel à un objet qui a été soit supprimer , soit qu'il n'est pas encore créé !!

Vérifie que tu n'appelles pas un formulaire déjà fermé, ou que tu instancies bien ton objet MSCHART avant de l'appeller, genre

Code:

---

1 2	Public MonChart As MSCHART Set MonChart = New MSCHART

---

Je ne sais pas si ça existe mais un truc du genre , je connais pas le MSCHART OCX, ce que je te dis c'est pour te donner une idée , à toi de vérifier la syntaxe

La ligne de code où ça plante, c'est exactement celle que j'ai écrite :

Code:

---

1 2	MSChart.chartType = VtChChartType2dBar

---

et l'erreur celle que j'ai écrite :

Erreur automation
L'objet invoqué s'est déconnecté de ses clients

Il est bien instancié et ça plante uniquement si on n'est pas administrateur du poste !

Meme si ça plante ici, l'erreur n'est pas forcément là, mais à un certain endroit où tu perds ton objet !
Pour moi, vu le message d'erreur, je ne peux penser qu'à ça , que ton objet quelque part est perdu, pourquoi, ça je peux pas le dire avec une ligne de code !
Chai pas si quelqu'un d'autre a une idée ou il peut t'aider via une seule ligne de code mais ça m'étonnerai

Hélas, je confirme, c'est bien CETTE ligne de code, je l'ai court-circuitée et ça fonctionne ( sauf que je perds une fonctionnalité à mon appli, ce qui est dommage ... ).

Si tu veux plus de détail sur la procédure appelée la voici :

Code:

---

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

Private Sub TypeGraphiqueMSChart() ' Bar, Air, Ligne, Section, Pas   On Local Error GoTo Err   If GBL_lngTypeGraphe = 0 Then MSCGraph1.chartType = VtChChartType2dBar MSCGraph2.chartType = VtChChartType2dBar ElseIf GBL_lngTypeGraphe = 1 Then MSCGraph1.chartType = VtChChartType2dArea MSCGraph2.chartType = VtChChartType2dArea ElseIf GBL_lngTypeGraphe = 2 Then MSCGraph1.chartType = VtChChartType2dLine MSCGraph2.chartType = VtChChartType2dLine ElseIf GBL_lngTypeGraphe = 3 Then MSCGraph1.chartType = VtChChartType2dPie MSCGraph2.chartType = VtChChartType2dPie Else MSCGraph1.chartType = VtChChartType2dStep MSCGraph2.chartType = VtChChartType2dStep End If   Exit Sub Err: MsgBox "c est là que ça plante !!!!!!" & Err.Description   End Sub

---

Je n'appele plus cette procédure, ça marche, mais l'utilisateur n'a plus le choix du type de représentation et par défaut a les barres !

Et le plus embêtant, c'est que je ne m'explique pas du tout le plantage !!

t'as essayé de faire comme je t'ai dis qqch du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub TypeGraphiqueMSChart() ' Bar, Air, Ligne, Section, Pas   Public MSCGraph1 As MSCHART Set MSCGraph1= New MSCHART   Public MSCGraph2 As MSCHART Set MSCGraph2= New MSCHART   .....

---

en plus GBL_lngTypeGraphe etc.... sont t'il déclaré comme public ?

Alors ? t'as de nouvelles ?

d'ailleurs une fois j'ai eu un probleme du genre mais avec un autre composant et pour résoudre j'ai simplement mis, le NomDuformulaire.Nomducomposant aussi tu peux essayer genre FORM1.MSCGraph1 au lieu de MSCGraph1