[vb6] aide excel

Question

Bonjour,
J'ai un probleme lorsque je fais des statistiques sur excel &#224; partir de vb... Lorsque j'ouvre excel une premiere fois, tout se passe correctement, mais la deuxieme fois, j'ai une erreur ;
 la m&#233;thode 'ActiveChart' de l'objet global a echou&#233;. Je pensais que excel etait mal ferm&#233;, mais je le ferme manuellement et j'ai le meme probleme. J'espere que quelqu'un pourra m'aider...
Voila la partie du code qui bloque lors de la deusieme ouverture. 

   monex.Range("A2:L2").Select
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=monex.Sheets("Feuil1").Range("A1:L2"), PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "defaut majeur"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "mois"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "nombre"
    End With



(Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...)

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

mrdep1978 · Answer

Salut, 
Personnellement, j'&#233;vite d'utiliser ActiveChart qd je cr&#233;e le graphe par code

Je te conseille donc de stocker l'objet dans une variable "Graphique" qd tu l'ajoutes &#224; ton classeur
Dim l_Chart As Chart
 monex.Range("A2:L2").Select
    Set l_Chart = Charts.Add
   With l_Chart
      .ChartType = xlColumnClustered
      .SetSourceData Source:=monex.Sheets("Feuil1").Range("A1:L2"), PlotBy:= _
        xlRows
        .HasTitle = True
        .ChartTitle.Characters.Text = "defaut majeur"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "mois"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "nombre"
    End With
    l_Chart.Location Where:=xlLocationAsObject, Name:="Feuil1"
    Set l_Chart = Nothing

kamui74 · Answer

'lut !
J'ai eu le m&#234;me genre de probl&#232;mes mais pour des Ranges, etc... Pour la peine j'ai ajouter devant chaque commande Excel objExcel.Application ou objExcel tout court suivant les cas.
Depuis plus de soucis !

Dans ton cas il faut mettre objExcel &#231;a devrait suffir. En tout cas j'ai &#231;a pour acc&#233;der &#224; un graphique Excel en vb.NET.

Kamui74

tof008 · Answer

ca marche toujours la premiere fois, mais la deuxieme ,ca me fait soit le meme message d'erreur, soit ca bloque au niveau .ChartType = xlColumnClustered...


Est ce que tu aurai une autre id&#233;e? Ou tu sais ce qui bloque?
(Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...)

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

tof008 · Answer

Pour Kamui, est ce que ca marche en vb6? Et tu met ou le objexcel? Tu peux me montrer sur mon code?



(Si la r&#233;ponse vous convient, appuyez sur r&#233;ponse accept&#233;e...)

Il y a plusieurs facon d'&#234;tre con ,mais un con choisit toujours la pire

mrdep1978 · Answer

objexcel correspond &#224; ton objet monex

kamui74 · Answer

En fait tu appelle juste monex.ActiveChart. etc....

et &#231;a marche bien en vb6 et autant de fois que tu veux. Par contre surveille bien tes processus Excel...

[vb6] aide excel

6 réponses

Discussions similaires