Bonjour,

j'ai fait un petit bout de code pour pouvoir supprimer la feuille courante

Pour cela j'ai créer une petite forme qui demande à l'utilisateur,s'il veut vraiment supprimer la feuille courante avec deux boutons oui et non.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub cmdOui_Click()
 
Dim feuille as Worksheet
Set feuille = ActiveSheet
Application.DisplayAlerts = False
feuille.delete
frmSupprimer.Hide
Application.DisplayAlerts = True
 
End Sub
Il me retourne une erreur

Run-time error '-2147417848(80010108)
Automation error

Une idée ,merci