Probleme entre Lotus et Excel

[Bonoboo]

Bonjour tout le mondeJe suis confronté à une erreur que je n'arrive pas à résoudre.Je souhaite rajouter dans un graphe contenu dans un fichier excel un série de données.Je parviens donc à exporter mes données de Lotus dans le fichier existant, à sélectionner le bon graphe, à rajouter un série de données. Mon problème se pose lorsque que je souhaite définir le nom, définir la plage de valeurs que je veux...Voila le code que j'ai fait. Je ne trouve pas ce qu'il ne va pas lApp.StatusBar="Création des graphiques" xlApp.WorkBooks(1).Activate xlApp.Sheets("Résultat Global").Select Set Graph = xlApp.Charts("Résultat Global") Set Graph = xlApp.ActiveChart Graph.ChartArea.Select Graph.SeriesCollection.NewSeries Graph.SeriesCollection(SeriesCollection.Count).Select Selection.Interior.ColorIndex=|="36"| Selection.Name="Deuxieme Serie" Selection.Values="= Enquête "+Format(Now,"dd/mm/aaaa")+"!C8:I8"A partir de la ligne Selection.Interior.ColorIndex=... , Lotus me met l'erreur suivante : "VARIABLE DOES NOT CONTAIN ANY OBJECT"Est-ce que quelqu'un pourrait m'aider ?Merci d'avance !

[Raziel]

Salut,Ou initialise tu ta variable "Selection" ?Je pense qu'à un moment, tu devrais avoir quelque chose commeset Selection = ???

[Bonoboo]

en fait le code que jai donné n'était pas correct.j'ai une variable xlApp qui correspond à l'application ExcelLa ligne est donc xlApp.Selection.Interior ...Normalement une fois que j'ai fait un select dans Excel, je peux utiliser cette référence.Ca marche avec d'autres lignes par exemple je selectionne une cellule et je change la police...Mais la ca ne marche pas comme si la méthode select ne faisait rien.c'est bizarre

[Raziel]

Salut,Je viens de faire un test. Le but : J'ouvre un fichier, je génére le grph en fonction des données sélectionnées. Ensuite, je sélectionne une série de données afin de modifié leur couleur sur le graphFunction OpenXlsFile (Path As String, xlsObject As Variant) As VariantxlsObject.Workbooks.Open PathSet OpenXlsFile = xlsObject.ActiveWorkbookEnd FunctionSub InitializeDim xlsApp As VariantDim xlsWorkBook As VariantDim xlsSheet As VariantDim Graph As VariantDim nomComplet As String nomComplet="c:\temp\Tarifs2003.xls"Set xlsApp = CreateObject("Excel.Application") xlsApp.StatusBar = "Ouverture du fichier en cours. Veuillez patienter..." Set xlsWorkBook = OpenXlsFile (nomComplet, xlsApp) xlsApp.Visible = TruexlsApp.ReferenceStyle = 1 Set xlsSheet = xlsApp.Application.Sheets("Feuil1")xlsSheet.Range("B2:H6").Select Set Graph = xlsWorkBook.Charts.AddSet Graph = xlsWorkBook.ActiveChart Graph.SeriesCollection(3).SelectxlsApp.Selection.Interior.ColorIndex = 11 Graph.ChartType = 51 Graph.SetSourceData xlsApp.Application.Sheets("Feuil1").Range("B2:H6") Graph.Location 2, "Feuil1" Set xlsApp=Nothing End Sub

[Bonoboo]

SalutEffectivement ton code marcheen ayant modifié le mien j'avais également réussi à changer le nom de la dernière série de données ajoutée aux graphes.Mon problème qui n'est toujours pas résolu est le fait que je veuille définir les données de la série que j'ai ajouté.Normalement, il existe en VB une instance Values qui permet de définir une plage de données pour une série. Donc en Lotus je tape la commande suivante :Graph.SeriesCollection(Graph.SeriesCollection.Count).Values = "='Enquête 02-06-2003'!R8C3:R8C9" SeriesCollection(Graph...) me permet de récupérer la dernière série de données ajoutée.Le problème c'est que lotus me dit : "Impossible de définir la propriété values de la classe series !"Je ne comprends pas !Merci déjà pour tes précédents conseils !si tu as une idée pour ca, je suis tres preneur !!Merci

[Bonoboo]

C bon après de nombreux essais, j'ai finalement réussi.Tout marche bien.Merci beaucoup pour ton aide.A bientot