Discussion :

[TomGratte]

Bonjour, voilà le problème :

J'ai créé une macro créant un graphique. Je l'ai enregistrée dans un classeur personnel "perso.xls". (accessible depuis n'importe quel classeur)

A partir d'un autre classeur, je lance la macro, et obtiens l'erreur "l'indice n'appartient pas à la sélection". Et dans le code ça bloque là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub TestGraphique2()
'
' TestGraphique2 Macro
' Macro enregistrée le 24/06/2009 par Tomtom
'

'
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 92
    (...) (il y en a beaucoup)
    ActiveWindow.ScrollRow = 17174
    ActiveWindow.ScrollRow = 17205
    ActiveWindow.ScrollRow = 17235
    Range("W3:W17268").Select
    Range("W17268").Activate
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets("voie_0_").Range( _
        "W3:W17268"), PlotBy:=xlColumns

Sachant que le classeur initial où j'ai créé la macro s'appelle "voie_0_" et que je lance cette macro depuis un autre classeur.

Pour exécuter la macro dans un classeur "B", il faut que les données soient prises dans ce même classeur "B" et non pas dans le classeur initial "A" où a été définie la macro.

Comment faut-il modifier ça ?
Je vous remercie.
Tom

[aalex_38]

Bonjour à tous,

Essai

Code :

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

1
2
Workbooks("nomduclasseur").worksheets("voie_0_").Range( _
        "W3:W17268"), PlotBy:=xlColumns

[TomGratte]

Dans mon code initial, si je remplace à la main "voie_0_" par le nom du classeur dans lequel je souhaite utiliser ma macro, ça marche. Mais je souhaite utiliser cette macro pour d'autres classeurs (beaucoup).

Je viens d'essayer ton code aalex_38 et ça ne marche pas : même indication d'erreur au même endroit.



D'autres idées ?
Tom

[aalex_38]

Je viens d'essayer ton code aalex_38 et ça ne marche pas : même indication d'erreur au même endroit.

J'ai pourtant un code similaire qui fonctionne (je met que le code utile):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Workbooks("Classeur2").Worksheets(1)
    Dim MyCell As Range
    Set MyCell = .Cells(.Range("A65536").End(xlUp).Row, 1)
'...
end with
 
Set MyG = Charts.Add(After:=ThisWorkbook.Sheets(Sheets.Count))
 
With MyG
    .Name = MyChartName
    .ChartType = xl3DColumnClustered
    .SetSourceData Source:=MyCell, PlotBy:=xlColumns
'...
end with

[TomGratte]

Aalex_38, je vais essayer de préciser.
Dans mon classeur A, je crée une macro générant un graphique utilisant les données de la seule feuille du classeur A. Le code créé est :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Sub TestGraphique3()
'
' TestGraphique3 Macro
' Macro enregistrée le 25/06/2009 par Tomtom
'

'
    ActiveWindow.ScrollRow = 3969
    ActiveWindow.ScrollRow = 4211
    ActiveWindow.ScrollRow = 4453
    ActiveWindow.ScrollRow = 4847
    ActiveWindow.ScrollRow = 5362
    ActiveWindow.ScrollRow = 6119
    ActiveWindow.ScrollRow = 7058
    ActiveWindow.ScrollRow = 8088
    ActiveWindow.ScrollRow = 9330
    ActiveWindow.ScrollRow = 10450
    ActiveWindow.ScrollRow = 11571
    ActiveWindow.ScrollRow = 12631
    ActiveWindow.ScrollRow = 13540
    ActiveWindow.ScrollRow = 14479
    ActiveWindow.ScrollRow = 15115
    ActiveWindow.ScrollRow = 15660
    ActiveWindow.ScrollRow = 16145
    ActiveWindow.ScrollRow = 16599
    ActiveWindow.ScrollRow = 16962
    ActiveWindow.ScrollRow = 17235
    ActiveWindow.ScrollRow = 3938
    ActiveWindow.ScrollRow = 17235
    ActiveWindow.ScrollColumn = 20
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 18
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 18
    Range("W3:W17268").Select
    Range("W17268").Activate
    Charts.Add
    ActiveChart.ChartType = xlXYScatterLinesNoMarkers
    ActiveChart.SetSourceData Source:=Sheets("A").Range( _
        "W3:W17268"), PlotBy:=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=A"
    ActiveChart.SeriesCollection(1).Name = "=""Youpi"""
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="genial"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Youpi"
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "yeah"
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

Le code est donc relatif à la feuille de mon classeur appelé A.

Je souhaite ensuite appliquer cette macro dans un autre classeur B. Ca ne marche pas, et ça bloque à l'endroit où la macro essaie d'atteindre les données du classeur A (normal), ici :

Code :

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

1
2
ActiveChart.SetSourceData Source:=Sheets("A").Range( _
        "W3:W17268"), PlotBy:=xlColumns

Le principe d'une macro c'est que ça soit réutilisable dans d'autres classeurs : le code ne doit pas dépendre du classeur où la macro a été créée, non ?

Pour répondre à ton dernier message, oui, si je change à la main le "A" en "B" et que je lance la macro dans le classeur B çà fonctionne, il n'y a pas besoin de préciser le workbook (classeur ?).

Pour indication, d'autres macros classiques fonctionnent (où je fais juste des calculs).

Ou bien serait-ce un problème de rangement de classeurs et de feuilles ?

Cela éclaire-t-il ?
Tom

[aalex_38]

Bonjour,


Dans l'exemple que je t'ai donné, le graphique n'est pas créer dans le classeur 2 mais depuis un autre classeur.

Ca ne marche pas, et ça bloque à l'endroit où la macro essaie d'atteindre les données du classeur A

Ton classeur A est-il ouvert au moment ou te lance la macro, sinon ça ne fonctionne pas, il faut l'ouvrir avant de l'utiliser.

[mapeh]

Bonjour,

Si tu veux pouvoir utiliser ce code pour n'importe quel classeur, remplace tout ce qui ressemble à un nom d'onglet par ActiveSheet...

[TomGratte]

Dans l'exemple que je t'ai donné, le graphique n'est pas créer dans le classeur 2 mais depuis un autre classeur.

Ah, j'avais pas saisi. Cependant, ça ne marche pas, (en laissant le classeur A ouvert), j'ai le même message d'erreur au même endroit.

Avec ACtiveSheet, ça ne marche pas non plus avec l'erreur "Propriété ou méthode non gérée par l'objet" :
(je mets le code intégral, c'est quasiment le même, y'a plus les activewindow du début)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Maquereau()
'
' Maquereau Macro
' Macro enregistrée le 25/06/2009 par Tomtom
'

'
    Range("B:B,H:H").Select
    Range("H1").Activate
    Charts.Add
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=ActiveSheet.Range( _
        "B1:B17269,H1:H17269"), PlotBy:=xlColumns
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="bap"
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "µYEAH"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

Enfin, pour tes quelques lignes de code Aalex_38, je sais pas où les insérer, je maîtrise pas vraiment le langage.(et tes 3 petits points je sais pas si ça fait partie du code ou pas.)

Des suggestions ?
Merci
Tom

[aalex_38]

ton problème est bien de récuperer la source dans le bon document ? Alors au lieu de la mettre directement comme ça :

Code :

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

Source:=ActiveSheet.Range( "B1:B17269,H1:H17269")

Dans le code que je t'ai montré, je la récupère comme ça dans le claseur2 ( depuis le classeur1)

Code :

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

1
2
3
4
With Workbooks("Classeur2").Worksheets(1)
    Dim MyCell As Range
    Set MyCell = .Range("B1:B17269,H1:H17269")
end with

Ensuite pendant la création du graphique, je renseigne la source avec la plage récupérée :

Code :

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

Source:=MyCell

[TomGratte]

Arf. Je crois qu'on s'est mal compris.

ton problème est bien de récuperer la source dans le bon document ?

Oui.

Dans le code que je t'ai montré, je la récupère comme ça dans le claseur2 ( depuis le classeur1)

Non, je crois que c'est pas ça.

Je crée la macro depuis le classeur A, générant un graphique dans le classeur A à partir de données présentes dans le classeur A.
Ensuite, je veux utiliser cette macro dans le classeur B, pour créer un graphique dans le classeur B, en utilisant les données de ce même classeur B.

Il me semble qu'il faudrait utiliser une sorte de ActiveSheet pour ne pas faire de référence exacte au classeur A dans le code généré. La référence doit être une sorte de feuille courante.

Me fais-je bien comprendre ?
Tom

[aalex_38]

Me fais-je bien comprendre ?

Beaucoup mieux et c'est bien plus clair maintenant et la solution sans doute plus simple

Juste une précision ta macro sera présente dans le classeur A et b ou seulement dans A ?

Veux-tu que la macro s'exécute automatiquement sur tous les classeurs ouverts, ou seulement celui que tu indiques.

Si c'est seulement celui que tu indiques, veux tu l'indiquer dans la macro ou dans une cellule ou dans une boite de dialogue ?

En attendant ta réponse regarde ce que fait ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Lister_Les_Classeurs_ouverts()
Dim wb As Workbook
 
Dim MaCell As Range
For Each wb In Workbooks
With wb
    Set MaCell = .Worksheets(1).Range("A1")
    MsgBox "Nom du classeur " & .Name & vbCrLf & "Contenu cellule " & MaCell.Address & " :" & MaCell.Value
End With
Next wb
 
End Sub

[TomGratte]

Ah ! On avance.
J'enregistre ma macro dans un classeur personnel "PERSO.XLS" qui est accessible depuis tous les classeurs. Je crois que l'accessibilité n'est pas un problème ici, c'est bon.
Je n'aurai donc pas besoin du code de ton dernier post je pense.

La solution simple se dessine-t-elle ?
Tom

[aalex_38]

Ok, donc ta macro est dans le classeur personnel des macros complémentaires, comment veux tu que t'a macro s'execute :
- chaque fois que tu ouvres un classeur.
- Tu lanceras toi même la macro

Si tu lances toi même la macro veux-tu qu'elle s'execute sur tous les classeurs ouverts ou seulement sur le classeur actif ou bien qu'une boite de dialogue s'affiche te demandans sur quel classeur lancer la macro (il faut alors créer un userform) ?

[TomGratte]

Je souhaite lancer ma macro moi-même pour qu'elle s'exécute sur le classeur actif.

Je sens qu'on y est, et, comme à Pyramide, je dirais : "en un".

Merci
Tom

[aalex_38]

Ca ne marche pas, et ça bloque à l'endroit où la macro essaie d'atteindre les données du classeur A

Attention de ne pas confondre workbook (classeur) et worksheet (feuille) dans l'exemple cité ci-dessus tu fais la confusion.

Je souhaite lancer ma macro moi-même pour qu'elle s'exécute sur le classeur actif.

Si on ne précise pas le classeur alors la macro s'execute sur le classeur actif.

Le code que je t'ai donné hier à 12 h23 fonctionne, dans ton cas il suffit de l'adapter, d'abord tu définni ta plage :

Code :

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

1
2
3
4
With ActiveWorkbook.Worksheets(1) ' premiere feuille du classeur actif
    Dim MyCell As Range
    Set MyCell = .Range("B1:B17269,H1:H17269")
end with

Ensuite tu utilises cette plage pour la source comme je t'ai montré.

Nb: tu peux ajouter un espion sur la variable Mycell en mode pas à pas ce qui te donneras tout un tas d'informations sur la valeur du range.

[TomGratte]

OUI ! C'est bon, ça fonctionne grâce à ton dernier post. J'ai mis

Code :

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

1
2
3
4
With ActiveWorkbook.Worksheets(1) ' premiere feuille du classeur actif
    Dim MyCell As Range
    Set MyCell = .Range("B1:B17269,H1:H17269")
End With

puis dans la commande pour le graphique

Code :

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

Source:= MyCell

Merci Aalex_38 d'avoir pris le temps de résoudre mon problème.

Tom

[aalex_38]

Oui le tout était de bien se comprendre, en plus j'ai pu réviser la création de graphiques.

Cet exemple montre que lorsque on prend l'habitude d'instancier les feuilles ou les range... on évite certaines erreurs et parfois on gagne du temps.

Personnellement je rajouterai qu'il faut se méfier de tout ce qui commence par ACTIV dans le code car alors il faut vraiment maitriser quel élement est actif.
Il m'arrive de lancer des macro par exemples depuis excel alors que je suis sur une autre feuille que celle sur laquelle la macro va agir. Si on utilise par exemple ActiveSheet, le résultat n'est pas celui attendu.

Même le code que je t'ai donné n'est pas le meilleur car ici la feuille n'est pas nommé et en cas de déplacement aie :

Code :

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

ActiveWorkbook.Worksheets(1)