sheets(). nameRésolu

Question

Bonjour tout le monde,

Grace à l&#8217;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 ;)

bigfish_le vrai · Accepted Answer

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 · Answer

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

maxxx08 · Answer

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&#8217;espère avoir été plus clair. 

Trouvez moi une solution STPPPP! LOL

MERCI

bigfish_le vrai · Answer

regarde mon 2ieme message c'est corrigé

A+

Sheets(). name

4 réponses

Votre réponse

Discussions similaires