Supprimer un classeur Excel avec VBA

Bonjour à tous !

Je rédige une macro me permettant de créer un graphique, jusque là tout va bien. Le graphique se créé sur une nouvelle feuille excel sans problème.
Ce qui m'embête c'est qu'à chaque fois que j'exécute la macro, une nouvelle feuille avec un nouveau graphique apparait. Cela me gêne car je me retrouve vite avec plein de graphiques, alors que je souhaite uniquement conserver le plus récent !

J'ai essayé de nommer cette nouvelle feuille (sans succès), de donner l'ordre de supprimer la feuille au début de ma macro, mais si elle n'existe pas déjà ça ne fonctionne pas...

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

'Sheets("Graph1").Select 'ActiveWindow.SelectedSheets.Delete --> ne fonctionne pas si mon graph 1 n'est pas déjà créé. De plus lors de la seconde excéution, le graph créé est désormais nommé graph2. Ainsi, lors de la troisième exécution, le système ne fonctionne plus :(   With WsD Set Plage = .Range(.Cells(77, 2), .Cells(.Cells(77, 2).End(xlDown).Row, .Columns.Count).End(xlToLeft)) End With     Set objChart = ThisWorkbook.Charts.Add objChart.ChartType = xlColumnStacked objChart.SetSourceData Plage, xlRows   ActiveChart.ChartArea.Select ActiveChart.SeriesCollection(1).XValues = "=Recap!$C$64:$CP$64" ActiveChart.SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis) Selection.Caption = "Mois" ActiveChart.SetElement (msoElementPrimaryValueAxisTitleRotated) Selection.Caption = "ETPs" ActiveChart.SetElement (msoElementChartTitleAboveChart) Selection.Caption = "Plan de charge Technique groupé par famille"

---

Peut être qu'il faudrait donner un nom à la feuille créée (au moins comme ça pas de problème de graph1 graph2 graph3...) et mettre une instruction au début du code disant que si cette feuille existe déjà, alors il faut la supprimer... Qu'en pensez vous ?

J'ai un autre petit problème avec mon code : comme vous pouvez le voir, j'ai sélectionné l'échelle de l'axe des abscisses : de C64 à CP64. Néanmoins, ma colonne CP est susceptible de varier ! J'ai essayé une autre formule du type : mais sans succès :/
Voici ma formule qui ne fonctionne pas :

Code:

---

ActiveChart.SeriesCollection(1).XValues = Range(.Cells(64, 3).End(xlDown))

---

Merci à tous ceux qui pourraient me donner un petit coup de main ! Merci et bonne journée ! :)

Bonjour,

Ton idée de nommer la feuille et de verifier si elle existe au debut de la macro et de la supprimer si oui est à mon avis la plus simple et la plus efficace:ccool:.


Sinon je ne vois pas ce que tu veux dire par

Citation:

---

ma collonne CP peut varier

---

Cordialement MlNOU.

Bonjour,

voici une fonction testant si une feuille existe :

Code:

---

1 2 3 4 5

Function ExistSheet(Ws$, Optional Wb As Workbook) As Boolean If Wb Is Nothing Then Set Wb = ActiveWorkbook On Error Resume Next ExistSheet = IsObject(Wb.Sheets(Ws)) End Function

---

Le premier paramètre est le nom de la feuille.

Le second est le classeur (objet Workbook) auquel est rattachée la feuille.
Optionnel, s'il n'est pas précisé, c'est le classeur actif qui est pris en compte.

Cette fonction booléenne renvoie donc vrai ou faux …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour,

Pour supprimer toutes les feuilles de graphique :

Code:

---

1 2 3

Application.DisplayAlerts = False Charts.Delete Application.DisplayAlerts = True

---

Pour les abscisses :

Code:

---

ActiveChart.SeriesCollection(1).XValues = Range(.Cells(64, 3), .Cells(64, Columns.Count).End(xlToLeft))

---

Bonjour à tous et merci de vos réponses ! :)

@Minou
Quand je dis que ma colonne CP peux varier, c'est que ma plage d’abscisses est automatiquement remplie. Elle peut être par exemple C64:E64 aussi bien que C64:X64. Si mon C64 est fixe et la ligne dans laquelle figure les abscisses également (ligne 64), mon numéro de colonne peut varier. Daniel m'a fourni une solution (merci d'ailleurs), mais quand j'exécute ma macro avec ce code, elle me renvoie un message d'erreur sur .Cells : "référence incorrecte ou non qualifiée"... Bizarre non ???

Ensuite, j'ai écris la fonction de Marc au début de mon module, me permettant de tester si mon graph1 existe déjà ou non.

Code:

---

1 2 3 4 5

Function ExistSheet("Graph1", Optional Wb As Workbook) As Boolean If Wb Is Nothing Then Set Wb = ActiveWorkbook On Error Resume Next ExistSheet = IsObject(Wb.Sheets(Ws)) End Function

---

et ensuite dans ma macro j'ai rajouté ça :

Code:

---

1 2 3

If ExistSheet = True Then Sheets("Graph1").Select ActiveWindow.SelectedSheets.Delete End If

---

Mais rien ne fonctionne... Il me renvoie que ExistSheet est un argument non facultatif (?)...

J'ai réussi à nommer ma feuille créée :

Code:

---

ActiveSheet.Name = "Mgmt T"

---

Donc maintenant ma macro en peut s'exécuter que si ma feuille n'existe pas déjà (logique), mais j'aurais aimé réussir à la supprimer si elle existe au début de ma macro.

Encore merci pour vos réponses !

Ah déjà j'ai compris pourquoi ma macro me demandait un argument !

J'ai corrigé comme cela :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'tout en haut de mon module Function ExistSheet(Ws$, Optional Wb As Workbook) As Boolean If Wb Is Nothing Then Set Wb = ActiveWorkbook On Error Resume Next ExistSheet = IsObject(Wb.Sheets(Ws)) End Function     'au début de ma macro If ExistSheet("MgmtT") = True Then Sheets("MgmtT").Select ActiveWindow.SelectedSheets.Delete

---

Je crois que ça va mieux déjà comme ça, je vais retester et vous tiens au courant !

je supprime le Graphique existant sur la feuille
bien sur je présume que le graphique se nomme Graph1.
sin non le supprimer a la main à la première exécution.

Code:

---

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 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66

Dim Shap As Shape Enum style ColumnStacked = 52 PieExploded = 69 Pie = 5 TroisDLine = -40101 TrisDBarStacked100 = 62 End Enum   Sub test() Dim Plage As Range Set Plage = Range("A1:C12") Graphique_Delete Sheets("Graph1"), "Graph1" Graphique_New Sheets("Graph1"), "Graph1" Graphique_Style ColumnStacked Graphique_Source Plage, xlRows Graphique_SeriesCollection "=Recap!$C$64:$CP$64" Graphique_SeriesCollection_Caption "Mois", msoElementPrimaryCategoryAxisTitleAdjacentToAxis Graphique_SeriesCollection_Caption "ETPs", msoElementPrimaryValueAxisTitleRotated Graphique_SeriesCollection_Caption "Plan de charge Technique groupé par famille", msoElementChartTitleAboveChart     End Sub   Public Sub Graphique_Delete(Feuille As Worksheet, Non As String) For Each MyObject In Feuille.Shapes If MyObject.Name = nom Then MyObject.Delete: Exit Sub Next End Sub Public Sub Graphique_New(Feuille As Worksheet, Non As String) Set Shap = Feuille.Shapes.AddChart Shap.Name = nom End Sub Public Sub Graphique_Source(MyRange As Range, Orientation As Long) Shap.Chart.SetSourceData MyRange, Orientation End Sub Public Sub Graphique_Style(MyStyle As style) Shap.Chart.ChartType = MyStyle End Sub Public Sub Graphique_SeriesCollection_Caption(Caption As String, Element As MsoChartElementType) Dim e Shap.Chart.SetElement Element Select Case Element Case 2 Shap.Chart.ChartTitle.Text = Caption Case 301 Shap.Chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = Caption Case 309 Shap.Chart.Axes(xlValue, xlPrimary).AxisTitle.Text = Caption End Select End Sub Public Sub Graphique_SeriesCollection(V) Shap.Chart.SeriesCollection(1).XValues = V End Sub Public Sub Graphique_SeriesCollection_Visible()   Shap.Chart.SeriesCollection(1).ApplyDataLabels End Sub Public Sub Graphique_Taille(Hauteur As Integer, Largeur As Integer) Shap.Height = Hauteur Shap.Width = Largeur End Sub Public Sub Graphique_Position(X As Integer, Y As Integer) Shap.Top = X Shap.Left = Y End Sub

---

mariecaro,

tes lignes n°11 & 12 doivent se réduire en une seule : If ExistSheet("MgmtT") Then Sheets("MgmtT").Delete …


__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …


__________________________________________________________________________________________
Une lesbienne qui n'a pas de seins, c'est une omoplate ?

merci durupt pour ta longue réponse, mais je dois t'avouer que c'est un peu compliqué pour moi ! :?
J'ai réussi à faire fonctionner mon code grâce au dernier message de Marc, merci beaucoup c'est super ! :)

Un dernier petit problème avec ma sélection des abscisses :

Code:

---

1 2	ActiveChart.SeriesCollection(1).XValues = Range(.Cells(64, 3), .Cells(64, Columns.Count).End(xlToLeft))

---

Cela me renvoie toujours un message d'erreur... Une idée ?

pourtant mon code fait la même chose que le tien ni plus ni moins

Code:

---

Set Plage = .Range(.Cells(77, 2), .Cells(.Cells(77, 2).End(xlDown).Row, .Columns.Count).End(xlToLeft))

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sub test() Dim Plage As Range Set Plage = .Range(.Cells(77, 2), .Cells(.Cells(77, 2).End(xlDown).Row, .Columns.Count).End(xlToLeft)) Graphique_Delete Sheets("Graph1"), "Graph1" Graphique_New Sheets("Graph1"), "Graph1" Graphique_Style ColumnStacked Graphique_Source Plage, xlRows Graphique_SeriesCollection "=Recap!$C$64:$CP$64" Graphique_SeriesCollection_Caption "Mois", msoElementPrimaryCategoryAxisTitleAdjacentToAxis Graphique_SeriesCollection_Caption "ETPs", msoElementPrimaryValueAxisTitleRotated Graphique_SeriesCollection_Caption "Plan de charge Technique groupé par famille", msoElementChartTitleAboveChart     End Sub

---

Il faut que le graphique soit sélectionné :

Code:

---

ActiveChart.SeriesCollection(1).XValues = .Range(.Cells(64, 3), .Cells(64, .Columns.Count).End(xlToLeft))

---

Code:

---

Graphique_SeriesCollection .Range(.Cells(64, 3), .Cells(64, .Columns.Count).End(xlToLeft))

---

Code:

---

1 2 3

Public Sub Graphique_SeriesCollection(V) Shap.Chart.SeriesCollection(1).XValues = V End Sub

---

ma méthode:

Code:

---

1 2 3 4

Public Sub Graphique_New(Feuille As Worksheet, Non As String) Set Shap = Feuille.Shapes.AddChart Shap.Name = nom End Sub

---

fait référence a l'objet Shap pas besoin de le sélectionner.

Citation:

---

pas besoin de le sélectionner.

---

Dans le code initial, il est automatiquement sélectionné lors de la création. Pourquoi compliquer ?

pas de souci!