Bonjour,
Voici mon code:
Tout va bien, mais le graphique se crée toujours avec le type xlXYScatterSmooth alors que je lui spécifie xlXYScatterSmoothNoMarkers
Quelqu'un peut m'aider?
Je voudrais aussi modifier ce code pour agrandir le graphique automatiquement... J'ai vu un post à ce sujet mais c'était en v2003 et je suis en 2007
Merci!
Voici mon code:
Code:
Dim sFichier As String
Dim sDate As String
Dim sAnnee As String
Dim sMois As String
Dim sJour As String
Dim sPath As String
sPath = "C:\test\"
sDate = Date - 1
sAnnee = Year(sDate)
sMois = Month(sDate)
If Len(sMois) < 2 Then
sMois = "0" & sMois
End If
sJour = Day(sDate)
If Len(sJour) < 2 Then
sMois = "0" & sJour
End If
'Creation nom de fichiers
sFichier = Right(sAnnee, 2) & sMois & sJour & "_test"
sFichierNouv = Right(sAnnee, 2) & sMois & sJour & "Graph_test"
'Vérifie si fichier existe
If FileFolderExists(sPath & sFichier & ".csv") Then
'Ouvre fichier avec les données
Workbooks.Open Filename:=sPath & sFichier & ".csv"
'Renomme le fichier
ActiveWorkbook.SaveAs Filename:= _
sPath & sFichierNouv & ".xls", FileFormat:=xlExcel8, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
), Array(14, 1), Array(15, 1)), TrailingMinusNumbers:=True
Workbooks(sFichierNouv & ".xls").Activate
ActiveWorkbook.CheckCompatibility = False
'Creation du graphique
ActiveWorkbook.Sheets.Add
ActiveSheet.Name = "Graphique"
ActiveSheet.Shapes.AddChart.Select
[COLOR="Red"] ActiveChart.ChartType = xlXYScatterSmoothNoMarkers[/COLOR]
ActiveChart.HasTitle = True
ActiveChart.ChartTitle.Text = sJour & "-" & sMois & "-" & sAnnee
'Ajout courbe 1
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""1"""
ActiveChart.SeriesCollection(1).XValues = _
"='" & sFichier & "'!$B$7:$B$2000"
ActiveChart.SeriesCollection(1).Values = _
"='" & sFichier & "'!$C$7:$C$2000"
'Ajout courbe 2
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""2"""
ActiveChart.SeriesCollection(2).XValues = _
"='" & sFichier & "'!$B$7:$B$2000"
ActiveChart.SeriesCollection(2).Values = _
"='" & sFichier & "'!$D$7:$D$2000"
'Ajout courbe 3
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "=""3"""
ActiveChart.SeriesCollection(3).XValues = _
"='" & sFichier & "'!$B$7:$B$2000"
ActiveChart.SeriesCollection(3).Values = _
"='" & sFichier & "'!$E$7:$E$2000"
'Ajout courbe 4
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Name = "=""4"""
ActiveChart.SeriesCollection(4).XValues = _
"='" & sFichier & "'!$B$7:$B$2000"
ActiveChart.SeriesCollection(4).Values = _
"='" & sFichier & "'!$G$7:$G$2000"
Workbooks(sFichierNouv & ".xls").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit
Else
MsgBox ("Le fichier " & sFichier & "n'existe pas")
End If
Tout va bien, mais le graphique se crée toujours avec le type xlXYScatterSmooth alors que je lui spécifie xlXYScatterSmoothNoMarkers
Quelqu'un peut m'aider?
Je voudrais aussi modifier ce code pour agrandir le graphique automatiquement... J'ai vu un post à ce sujet mais c'était en v2003 et je suis en 2007
Merci!