bonjour
j'ai le problème suivant, j'essaie de donner une valeur à des series de données dans un graphique excel. par moment c'est bon sans que je ne sache réellement ce que j'ai fait (c'était bon hier) et depuis ce matin ce n'est pas bon. jai le message:la méthode range de l'objet _global a échoué au niveau du code en rouge

voici mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
For Each sh In Sheets
For Each Graph In sh.ChartObjects
Windows("statjourfull.xls").Activate
Sheets("Comviva").Activate

Graph.Chart.SetSourceData Source:=Range(sourcedata1(code, mam))
'Graph.Name

Next Graph

Next sh

End Sub
voici une partie de mon code: sourcedata1. et c'est ok si je mets juste
Code : Sélectionner tout - Visualiser dans une fenêtre à part
sourcedata1 = "Comviva!$A$2:$Y$2
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Public Function sourcedata1(nombre, mam)
 
'Windows("statjourfull.xls").Activate
'Sheets("Comviva").Activate
     If nombre = "code1" Then
     If mam = "ENGINE1" Then
     sourcedata1 = "Comviva!$A$2:$Y$2;Comviva!$A$4:$Y$4;Comviva!$A$8:$Y$8;Comviva!$A$10:$Y$10"
     End If
...
end function
merci pour votre aide