Mise a jour de graphiques excel

[Bonoboo]

Je cherche le moyen de mettre a jour un graphique sous excel.En fait je souhaite faire un export de données et ajouter une série de données à un graphique déjà existant.Dans l'application Lotus, l'utilisateur peut choisir soit de réaliser un nouveau document excel, soit de rajouter dans un document excel une feuile avec des valeurs et ajouter ces valeurs à un graphique déja existant dans la feuille.J'ai réalisé le code suivant mais j'ai une erreur dans Lotus Type mismatchEst-ce que quelqu'un pourrait m'aider à le corriger car j'y arrive pas.MerciCODE :Le cas 1 marche bien, pas le cas 2Cas 1 :Création d'un nouveau graphique%END REM If Choix=6 Then xlApp.StatusBar="Création des graphiques" xlApp.WorkBooks(1).Activate Set Graph = xlApp.ActiveWorkBook.Charts.Add Set Graph = xlApp.ActiveWorkBook.ActiveChart Graph.ChartType=51 Temp=rows-1 Graph.SetSourceData xlApp.ActiveWorkBook.Application.Sheets(xlsheet.Name).Range(xlsheet.Cells(Temp,2), xlsheet.Cells(rows,9)) Graph.Name="Résultat Global" Graph.HasTitle=False Elseif Choix=7 Then 'Cas 2: Mise à jour d'un graphique%END REM xlApp.StatusBar="Création des graphiques" xlApp.WorkBooks(1).Activate Set Graph=xlApp.ActiveWorkBook.Charts(1).Activate Set Graph=xlApp.ActiveWorkBook.ActiveChart Graph.ChartArea.Select Set serie=Graph.SeriesCollection.Add serie.Values= |"='|+xlsheet.Name+|'!R|+Cstr(rows)+"C3:R"+Cstr(rows)+|C9"| End If