[VBA-E]Erreur d'automation
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:
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