cs_labout
Messages postés1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 20068 23 nov. 2003 à 21:40
labout
Voici un exemple pour créer et écrire dans une feuille Excel
Dim xlapp As Object
Dim fichier As String
Dim i As Integer
Dim j As Integer
fichier = "c:\test.xls"
Set xlapp = CreateObject("excel.application")
With xlapp.application
.application.Workbooks.Add
.application.activeworkbook.Saveas fichier
For i = 0 To 6
.cells(1, i + 1) = "cell" & i ' .cells(ligne,Colonne)
Next
j = 1
For j = 2 To 6
For i = 0 To 6
.cells(j, i + 1) = j + i
Next
Next
.application.activeworkbook.Save
.Visible = True ' peut être mis
End With
' ensuite fait une macro sous excel puis récupère le code et
'colle le dans vb en le modifiant éventuellement
' Si tu plantes le programme il faut tuer la tâche Excel.
juste après le saveas pour éviter cet inconvénient
place le .visible=true
cs_labout
Messages postés1356Date d'inscriptionsamedi 8 décembre 2001StatutMembreDernière intervention23 octobre 20068 24 nov. 2003 à 21:18
labout
Avec le controle Mschart (mschart20.ocx)
Mettre l'objet dans la feuille
exemple
Private Sub Command1_Click()
Dim msc As Chart
With MSChart1
' Affiche un graphique en 3D avec 8 colonnes et
' 8 lignes de données.
Dim column As Integer
Dim row As Integer
Dim index1 As Integer
Dim index2 As Integer
Dim index3 As Integer
Dim index4 As Integer
.ChartType = VtChChartType2dLine
.ColumnCount = 1
.RowCount = 8
For column = 1 To 1
For row = 1 To 8
.column = column
.row = row
.Data = Cos((row - 1) * 100)
Next row
Next column
' Utilise le graphique comme fond de la légende.
.ShowLegend = True
.SelectPart VtChPartTypePlot, index1, index2, _
index3, index4
.EditCopy
.SelectPart VtChPartTypeLegend, index1, _
index2, index3, index4
.EditPaste
End With
End Sub
Je n'en sais pas plus
A toi de définir les points X et Y de ta courbe
c'est la ligne .Data = Cos((row - 1) * 100)