Discussion :

[titflocon]

Bonjour!

Voila mon pti problème.

Dans une fonction VBA sous Access je génère un fichier Excel à partir d'un squelette. Ce squelette contient un graphique et à chaque exportation du fichier Excel je souhaite décaler de 1 ligne la source du graphique.
Mais le hic est ke je ne sais po comment piloter un graphe à partir de VBA.

Quelqu'un pourrait me mettre sur la voie??
Merci d'avace

[titflocon]

sui désolée mais j'ai po bien compris le code que tu m'as donné.
Est-ce que tu pourrais le commenter un peu pour que je puisse l'utiliser?...

Merci ouskel'n'or

[titflocon]

Voila le code que j'ai incorporé à ma fonction:

Code :

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

1
2
3
4
'Changement de la source du graphique
        debut_source_graphique = fin_source_graphique - 5
        Charts("Indice de qualité").Activate
        ActiveChart.SetSourceData Source:=Sheets(1).Range("B" & debut_source_graphique, "C" & fin_source_graphique), PlotBy:=xlColumns

lors de l'exécution de la ligne

Code :

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

Charts("Indice de qualité").Activate

j'ai l'erreur suivante:

"L'indice n'appartient pas à la sélection"

Pourtant mon graphe existe bien!!!!

Quelqu'un pourrait m'aider?
Merci d'avance

[titflocon]

pas grave pour le retard, l'essentiel est d'avoir une réponse!

j'ai changé le nom du graphe par l'index mais ça ne change rien.

Sinon, en attendant, j'avais essayé autrechose mais sans plus de succès:

Code :

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

1
2
Set xlChart = xlSheet.ChartObjects("Indice de qualité")
         xlChart.SetSourceData Source = Sheets(1).Range("B" & debut_source_graphique, "C" & fin_source_graphique), PlotBy = xlColumns

et cette fois j'ai l'erreur (même en utilisant l'index):

la méthode "Chartobjects" de l'élément "_Worksheet" a échouée

[ouskel'n'or]

Pour faire ta mise à jour, tu dois sélectionner ton graphe
Adapte ça et dis-nous :

Code :

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

1
2
3
4
    ActiveSheet.ChartObjects("Indice de qualité").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("familles_revenus_annéecrèche_20"). _
        Range("G1:J1,G1029:J1029"), PlotBy:=xlRows

A+