Sheets(). name

Résolu
maxxx08 Messages postés 33 Date d'inscription mercredi 25 mai 2011 Statut Membre Dernière intervention 3 mai 2012 - 24 juin 2011 à 11:00
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 - 24 juin 2011 à 12:31
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

bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 15
24 juin 2011 à 11:31
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+
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 15
24 juin 2011 à 11:24
Salut,

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

A+
maxxx08 Messages postés 33 Date d'inscription mercredi 25 mai 2011 Statut Membre Dernière intervention 3 mai 2012
24 juin 2011 à 11:47
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
bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 15
24 juin 2011 à 12:31
regarde mon 2ieme message c'est corrigé

A+
Rejoignez-nous