Bonjour à tous

Je vais expliquer plus clairement mon problème. J'aimerai pouvoir faire des graphiques sur un fichier excel, via des données qui sont sur une base access sans passer par le copie de la requete dans un range sur un feuillet excel... J'ai cherché sur internet, je n'ai rien trouvé à ce sujet qui puisse m'aider... alors j'ai tenté naïvement quelques astuces au début en mettant carrément la requête comme définition mais évidemment ça n'a pas marché... La dernière astuce que j'ai trouvé, c'était faire croire que je rentrais les données à la main mais ça ne fonctionne pas non plus, si quelqu'un sait si y a une manière propre, ou s'il y a une astuce ? Je vous mets mon dernier code là :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Dim entree As Date, sortie As Date, part As String, plage As String, plage1 As String
 
 
entree = Range("J10")
sortie = Range("J11")
part = Range("J9")
 
srequete = "SELECT * FROM PORTEFEUILLES_PARTS WHERE DT BETWEEN #" & entree & "# AND #" & sortie & "# AND trim(TYP_PART)='" & part & "'  order by DT desc "
    Set rs = New ADODB.Recordset
    rs.Open srequete, cncon, adOpenDynamic, adLockOptimistic
    If rs.EOF = False Then
        rs.MoveFirst
 
        plage = ""
        plage1 = ""
 
 
        While rs.EOF = False
 
            plage = rs("PART") & "." & plage
            plage1 = "" & rs("DT") & ";" & plage1 & ""
            rs.MoveNext
        Wend
 
            ActiveSheet.ChartObjects("Graphique 1").Activate
            ActiveChart.SetSourceData Source:=" & plage & "
J'ai aussi essayé avec :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveChart.SeriesCollection(2).Values = plage

Merci de vos lumières