Bonjour,

Depuis ce matin j'essaie de faire une macro me permettant de tracer un graph avec des données en X et en Y en fonction du nombre de valeurs contenu ds la feuille. J'ai utilisé l'enregistreur de macro pour voir comment cela fonctionnait (je découvre vba depuis ce matin je précise) mais impossible à arriver à automatiser cette tache.

Voici mon code:
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
22
23
24
25
26
27
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 01/04/2008 par thierry
'

'
Dim feuille
Set feuille = Sheets(1)

    Range("E4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=feuille.Range("E4:E4732") _
        , PlotBy:=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=" & feuille & "!R4C1:R4732C1"
    ActiveChart.SeriesCollection(1).Name = "=""toto"""
    ActiveChart.Location Where:=xlLocationAsNewSheet
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "toto"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
        
    End With
End Sub
Cela plante à la ligne rouge (propriété ou methode non géré par cet objet). Si je remplace & feuille & par le vrai nom de la feuille cela fonctionne:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
ActiveChart.SeriesCollection(1).XValues = "='6-Acquisition-130500.acq'!R4C1:R4732C1"
Dans la variable "feuille" je récupère bien le nom de la feuille puisque la ligne de code précédent l'erreur ne plante pas ???? Le graph se trace mais plante au moment d'attribuer les données en X.

Au moment ou il crée le graph, ma variable feuille ne fait peut etre plus appelle à la feuille originale mais a la feuille graphique nouvellement crée? Comment récupérer le nom de la premiere feuille alors (cette derniere a un nom variable et n'est pas de type feuill1)

Merci d'avance,
Thierry