Bonjour à tous,

Je débute dans les constructions de macro et je viens vous voir car j'ai un soucis.

J'ai des milliers de feuilles Excel du même type c'est-à-dire avec 8 colonnes de données dont 4 seulement sont utilisées pour tracer un graphe.
La première colonne est le temps, la deuxième et la troisième sont les températures et la huitième correspond au couple.

Les principaux soucis sont que le nombre de lignes n'est jamais le même, et le nom de fichier est toujours différent.

J'aimerais tracer un graphe Température (Axe des ordonnées de gauche) et Couple (Axe des ordonnées de droite) en fonction du Temps (Axe des abscisses) sur une nouvelle feuille du classeur.


En utilisant l'enregistrement de macro, voici le code généré:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Incrémental()
'
' Incrémental Macro
'
 
'
    Range("A:A,B:B,C:C,I:I").Select
    Range("I1").Activate
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'Falex3999'!$A:$A;'Falex3999'!$B:$B;'Falex3999'!$C:$C;'Falex3999'!$I:$I")
    ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
    ActiveChart.SeriesCollection(3).Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(3).AxisGroup = 2
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.SeriesCollection(3).Select
    ActiveSheet.ChartObjects("Graphique 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.Location Where:=xlLocationAsNewSheet
End Sub
J'aimerais donc généraliser ce code pour l'ensemble des fichiers et créer un graphe sur une feuille ayant toujours le même nom (ex:Graphe).


Merci d'avance pour votre aide

Devour