Discussion :

[zertupo]

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

[Jean-Philippe André]

Salut,

question qui n'a peut etre rien a voir, mais ta ligne

Code :

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

ActiveChart.SetSourceData Source:=" & plage & "

ne devrait-elle pas plutot etre

Code :

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

ActiveChart.SetSourceData Source:= plage

[Invité]

Bonsoir,
Il me semble qu'il serait préférable de créer un connecteur odbc sur ton fichier excel et ensuite d'établir un lien SQL sur ton graphique!

Je l'ai déjà fait avec un tableau dynamique croisé pour un graphe je regarde!

[zertupo]

Salut,

question qui n'a peut etre rien a voir, mais ta ligne

Code :

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

ActiveChart.SetSourceData Source:=" & plage & "

ne devrait-elle pas plutot etre

Code :

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

ActiveChart.SetSourceData Source:= plage

salut

si si cela à voir ^^ mais j'ai essayé cette possibilité aussi, j'ai aussi essayé de mettre entre {} et de retranscrire de la même manière que si je taper à la main dans excel les ajouts de données du graphique, mais ça ne fonctionne pas...

[zertupo]

Bonsoir,
Il me semble qu'il serait préférable de créer un connecteur odbc sur ton fichier excel et ensuite d'établir un lien SQL sur ton graphique!

Je l'ai déjà fait avec un tableau dynamique croisé pour un graphe je regarde!

Si tu peux m'éclairer sur le lien SQL vers le graphique stp

[Invité]

bonjour,
oui sens problème, mais avant il faut que je trouve l’ampoule pour m’éclairer moi même!

le premier arrivé attend l'autre.

[zertupo]

J'ai pensé à une astuce en voyant qu'avec un array, cela marche... Mais il faut créer un array avec toutes les valeurs de la base, quelqu'un sait comment procéder pour réaliser cela ? si c'est possible...

[zertupo]

C'est bon j'ai trouvé...

je créais un tableau plage(i) avec les valeurs de ma requête, et je donne mon tableau, excel le traduit tout seul :

Code :

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

ActiveChart.SeriesCollection(2).Values=plage