Discussion :

[maxtin]

Bonjour, jai un probleme avec mon exportation vers Excel. Mes données sexporte tres bien mais cest lorsque jessaie de faire un graphique avec ces données...

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub SetUpGraph(Col1 As String, Col2 As String, Title As String)
 
    obWorkSheet.Activate
    obWorkSheet.Range("A3").Select
    obExcelApp.Charts.Add
    obExcelApp.ActiveChart.ChartType = xlXYScatter
 
  'ca crash a la ligne suivante:
 
    obExcelApp.ActiveChart.SetSourceData Source:=Sheets("sheet1").Range("A" & Col1 & ":B" & Col2), PlotBy:=xlColumns

Par contre..tout se passe bien a la premiere execution....si je veux que ca reussise a nouveau, je dois fermer et relancer lapplication

pourtant je fais :

Code :

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

1
2
Set obWorkSheet = Nothing
Set obExcelApp = Nothing

joublie quelque chose?

[SfJ5Rpw8]

as tu fermé ton classeur avant le nothing..?

[maxtin]

bon cest enfin resolu

jai deplacer la creation de lapplication (new excel.application) en dehors de ma fonction..

cetait un probleme de reference