supprimer feuille excel

[nsqualli]

Bonjour,

j'ai un classeur avec plusieures feuilles.
j'ai meme une feuille qui se créée apres l'execution d'une macro.
sauf que cette feuille doit etre supprimer apres la fermeture du classeur.
SVP comment puis-je faire cela?
Merci

 

[tototiti2008]

Re : supprimer feuille excel

Bonjour nsqualli,

apres la fermeture du classeur ou à la fermeture du classeur ?

 

[13GIBE59]

Re : supprimer feuille excel

Bonjour, nsqualli

Tu as essayé l'enregistreur de macro ?

A +

JB

 

[nsqualli]

Re : supprimer feuille excel

lool dsl à la fermeture du classeur

 

[nsqualli]

Re : supprimer feuille excel

Bonjour nsqualli,

apres la fermeture du classeur ou à la fermeture du classeur ?

😉 dsl je voulais dire à la fermeture lool

 

[mumu]

Re : supprimer feuille excel

Salut tt le monde,

Voici un bout de code que j'avais trouvé par là..... Cela peut te donner un début de piste

Sub supprime()

' on empêche le message d'alerte d'apparaître
Application.DisplayAlerts = False
    
For Each X In Sheets
If X.Name = "Feuil1" Then
X.Delete
End If
Next

ActiveWorkbook.Save
' on remet le message d'alerte
Application.DisplayAlerts = True

ActiveWindow.Close

End Sub

@ +

Mumu

 

[nsqualli]

Re : supprimer feuille excel

Salut tt le monde,

Voici un bout de code que j'avais trouvé par là..... Cela peut te donner un début de piste

Sub supprime()

' on empêche le message d'alerte d'apparaître
Application.DisplayAlerts = False
    
For Each X In Sheets
If X.Name = "Feuil1" Then
X.Delete
End If
Next

ActiveWorkbook.Save
' on remet le message d'alerte
Application.DisplayAlerts = True

ActiveWindow.Close

End Sub

@ +

Mumu

non ça marche pas

 

[tototiti2008]

Re : supprimer feuille excel

Bonjour à tous,

et tu connais le nom de la feuille à supprimer, ou ce nom change à chaque fois ? comment savoir laquelle supprimer ?

 

[nsqualli]

Re : supprimer feuille excel

Bonjour à tous,

et tu connais le nom de la feuille à supprimer, ou ce nom change à chaque fois ? comment savoir laquelle supprimer ?

le nom de la feuille est "liste demande"

 

[tototiti2008]

Re : supprimer feuille excel

Re,

code à placer dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.DisplayAlerts = False
ThisWorkbook.Worksheets("liste demande").Delete
ThisWorkbook.Save
Application.DisplayAlerts = True
On Error GoTo 0
End Sub

un petit soucis : ça sauvegarde automatiquement le fichier à la fermeture...

 

[nsqualli]

Re : supprimer feuille excel

Re,

code à placer dans ThisWorkbook :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.DisplayAlerts = False
ThisWorkbook.Worksheets("liste demande").Delete
ThisWorkbook.Save
Application.DisplayAlerts = True
On Error GoTo 0
End Sub

un petit soucis : ça sauvegarde automatiquement le fichier à la fermeture...

Merci bcp, c'est ce que je voulais