Changer type graph xlXYScatterSmoothNoMarkers + redimensionner

[Marie1982]

Bonjour,

Voici mon 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!

 

[Marie1982]

Re : Changer type graph xlXYScatterSmoothNoMarkers + redimensionner

Personne peut m'aider???