salut,
as-tu essayé de faire, en VBA, un bout de code qui execute ta requete depuis excel ?
Par exemple, si c'est une base Access, faire la liaison :
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 27 28
| Dim bd As Database
Dim rs As Recordset
Dim Cible As Workbook
Set bd = OpenDatabase("ma_db")
Set rs = bd.OpenRecordset("Select * From table1")
Application.ScreenUpdating = False
'vider le fichier des anciennes données
Cible.Worksheets("Feuil1").Cells.Clear
'remplir avec les nouvelles données
i = 2
With Cible.Worksheets("Feuil1")
Do While Not rs.EOF
.Cells(i, 1) = rs.Fields(0)
.Cells(i, 2) = rs.Fields(1)
.Cells(i, 3) = rs.Fields(2)
.Cells(i, 4) = rs.Fields(3)
.Cells(i, 5) = rs.Fields(4)
.Cells(i, 6) = rs.Fields(5)
.Cells(i, 7) = rs.Fields(6)
.Cells(i, 8) = rs.Fields(7) 'etc... suivant le nb de champs
rs.MoveNext
i = i + 1
Loop
End With |
Puis de définir ton graphique sur la zone occupée par les données :
range("A1").currentregion
Partager