Sheets(). name [Résolu]

Signaler
Messages postés
35
Date d'inscription
mercredi 25 mai 2011
Statut
Membre
Dernière intervention
3 mai 2012
-
bigfish_le vrai
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
-
Bonjour tout le monde,

Grace à l’enregistreur de macro j'ai pu récupérer ces lignes de code pour creer un graphique et le placer dans une nouvelle feuille.

Range("BK1:BL12").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'Export_Archives_2011_T206_S5'!$BK$1:$BL$12")
    ActiveChart.ApplyChartTemplate ( _
        "C:\Users\Maxime\AppData\Roaming\Microsoft\Templates\Charts\Graphique1.crtx")
    ActiveChart.Location Where:=xlLocationAsNewSheet


Mon problème est qu'il me prend le nom de la feuille mais ces lignes de code je veux les utiliser pour plusieurs classeurs :
[*] Export_Archives_2011_T206_S5
[*] Export_Archives_2011_T206_S6
[*] Export_Archives_2011_T206_S7 ...

Donc dans un souci de standardisation j'ai voulu utiliser ces lignes de code qui n'ont rien donner.


Dim semaine As String
semaine = Sheets(1).Name

        If Menu_choix_graph.CheckBox1 = True Then
    
    Range("BK1:BL12").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'semaine'!$BK$1:$BL$12")
    ActiveChart.ApplyChartTemplate ( _
        "C:\Users\Maxime\AppData\Roaming\Microsoft\Templates\Charts\Graphique1.crtx")
    ActiveChart.Location Where:=xlLocationAsNewSheet



J'aimerais avoir vos opinions sur ce problème et savoir si des solutions sont envisageables.

je vous remercie d'avance ;)

4 réponses

Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
ohhhhhhh je n'ai pas vu ton erreur !

Dim semaine As String
semaine = Sheets(1).Name

        If Menu_choix_graph.CheckBox1 = True Then
    
    Range("BK1:BL12").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range( _
        "'" & semaine & "'!$BK$1:$BL$12") '<-------------ICI
    ActiveChart.ApplyChartTemplate ( _
        "C:\Users\Maxime\AppData\Roaming\Microsoft\Templates\Charts\Graphique1.crtx")
    ActiveChart.Location Where:=xlLocationAsNewSheet


A+
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
Salut,

impossible de faire autrement car pour excel les données d'un graphique sont forcement liées à une feuille.

A+
Messages postés
35
Date d'inscription
mercredi 25 mai 2011
Statut
Membre
Dernière intervention
3 mai 2012

Dim semaine As String
semaine = Sheets(1).Name

Sheets(1).Name = "Export_Archives_2011_T206_S5"

C'est pour cela que j'ai voulut remplacer

 ActiveChart.SetSourceData Source:=Range( _
        "'Export_Archives_2011_T206_S5'!$BK$1:$BL$12")


par :

ActiveChart.SetSourceData Source:=Range( _
        "'semaine'!$BK$1:$BL$12")


Mais à cause des guillemets cela ne fonctionne pas. J’espère avoir été plus clair.

Trouvez moi une solution STPPPP! LOL

MERCI
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
9
regarde mon 2ieme message c'est corrigé

A+