Sheets(). name [Résolu]

Messages postés
35
Date d'inscription
mercredi 25 mai 2011
Statut
Membre
Dernière intervention
3 mai 2012
- - Dernière réponse : bigfish_le vrai
Messages postés
1839
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 ;)
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
8
3
Merci
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+

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Commenter la réponse de bigfish_le vrai
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
8
0
Merci
Salut,

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

A+
Commenter la réponse de bigfish_le vrai
Messages postés
35
Date d'inscription
mercredi 25 mai 2011
Statut
Membre
Dernière intervention
3 mai 2012
0
Merci
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
Commenter la réponse de maxxx08
Messages postés
1839
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
8
0
Merci
regarde mon 2ieme message c'est corrigé

A+
Commenter la réponse de bigfish_le vrai