Discussion :

[Razekiel_]

Bonjour,

J'avais fait une demande afin de connaitre les commandes à mettre pour traiter 365 fichiers dans un même dossier automatiquement avec une macro mais je n'ai pas eu de réponse...

Donc je vais traiter mes fichiers un a un en enregistrant une macro. Dans celle ci je supprime des colonnes, changes les . en , et je sélectionne 2 colonnes et choisit nuage de point.
Une fois ces étapes faites j'enregistre la macro faite sur le fichier "2010-04-01.csv"

J'ouvre le fichier "2010-04-02.csv"
La suppression des colonnes et le changement . en , se fait bien mais j'ai une erreur sur le graphique

Code :

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

1
2
3
4
5
6
7
8
9
10
    [...]
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveWindow.SmallScroll ToRight:=-6
    ActiveWindow.SmallScroll Down:=-30
    Range("A7:B58").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Range("'2010-04-01'!$A$7:$B$58")
End Sub

Dans l'attente de vos réponses, merci d'avance.

[mercatog]

Code :

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

1
2
ActiveChart.SetSourceData Source:=Range("A7:B58")

EDIT

Le mieux est de travailler avec les objets

Code :

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

1
2
3
4
5
6
7
8
Dim Grf As ChartObject
 
With ActiveSheet
    Set Grf = .ChartObjects.Add(100, 50, 400, 200)
    Grf.Chart.ChartType = xlXYScatterSmooth
    Grf.Chart.SetSourceData Source:=.Range("A7:B58")
    Set Grf = Nothing
End With

[Razekiel_]

ok, merci pour ta réponse,
je teste sa et je te tiens au courant.

Encore merci

PS: tu n'aurais pas une idée pour une ouverture automatique de fichiers...

alors je viens de tester et maintenant l'erreur se trouve ailleurs...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
End With
    Range("L11").Select
    ActiveWindow.SmallScroll ToRight:=-5
    ActiveWindow.SmallScroll Down:=0
    Range("A7:A71").Select
    ActiveWindow.SmallScroll Down:=-120
    Range("A7:A71,B7:B71").Select
    Range("B7").Activate
    ActiveWindow.SmallScroll Down:=-102
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Range( _
        "'13-05-2011'!$A$7:$A$71;'13-05-2011'!$B$7:$B$71")
End Sub

J'ai bien configuré excel en point dans Paramètres régionaux...
Je cherche sur le net mais je ne trouve pas encore de réponse, donc si tu peux m'aider encore une fois, c'st avec plaisir.

Merci d'avance

[mercatog]

On te donne des codes pour les tester.
Travaille avec les objets comme proposé dans le code précédent.

[Razekiel_]

ralala excuse moi, j'ai lu trop vite...
J'ai lu, travail avec des points, autant pour moi. Je teste

[Razekiel_]

j'avais donc sa

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Range("L11").Select
    ActiveWindow.SmallScroll ToRight:=-5
    ActiveWindow.SmallScroll Down:=0
    Range("A7:A71").Select
    ActiveWindow.SmallScroll Down:=-120
    Range("A7:A71,B7:B71").Select
    Range("B7").Activate
    ActiveWindow.SmallScroll Down:=-102
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Range( _
        "'13-05-2011'!$A$7:$A$71;'13-05-2011'!$B$7:$B$71")

j'ai modifié grace à ton code mais je n'ai aucune base en VBA malheureusement. j'ai juste fait la macro puis je suis allé voir ou était le problème dans la macro...

Code :

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

1
2
3
4
5
6
7
With ActiveSheet
    Set Grf = .ChartObjects.Add("A7:A71,B7:B71")
    Grf.Chart.ChartType = xlXYScatterSmooth
    Grf.Chart.SetSourceData Source:=.Range( _
        "'13-05-2011'!$A$7:$A$71;'13-05-2011'!$B$7:$B$71")
    Set Grf = Nothing
    End With

l'erreur doit se trouver dans la facon d'écrire les colonnes sélectionnées pour le graphe :/