gestion d'erreurs

[errog]

Bonjour,
Je voudrais dans une procédure créer une feuille mais il se peut qu'elle existe déja et donc une erreur apparait. Je voudrais gérer cette erreur.
Quelqu'un peut'il m'aider a corriger le code suivant ( je m'y prends certainement mal 🙁 ) car j'ai l'impression qu'il boucle : faut-il ajouter un truc du genre Err.Clear 😕😕😕

Worksheets("modele").Copy Before:=Sheets(1)

On Error Goto gestion_erreur
ActiveSheet.Name="Feuille"
.....
Exit Sub
gestion_erreur:
Sheets("Feuille").Delete
Resume
End Sub

Merci

 

[skoobi]

Re : gestion d'erreurs

Bonsoir,

essaie ceci:

Application.DisplayAlerts = False
Worksheets(1).Copy Before:=Sheets(1)

On Error Resume Next
ActiveSheet.Name = "Feuille"
If Err.Number <> 0 Then
    Sheets("Feuille").Delete
    ActiveSheet.Name = "Feuille"
End If
On Error GoTo 0
'ici la suite de la macro.....
'............
End Sub

 

[Roland_M]

Re : gestion d'erreurs

bonsoir

------------- création d'une feuille sans erreur...

Public Sub CreationFeuil(NomDeLaFeuil$) ' envoye du nom de ta feuille
'-------- delete avant ---------
Dim EtatAlerts As Boolean
EtatAlerts = Application.DisplayAlerts
On Error Resume Next: Err.Clear: Application.DisplayAlerts = False
Sheets(NomDeLaFeuil$).Delete
On Error GoTo 0: Err.Clear: Application.DisplayAlerts = EtatAlerts
'-------- création ---------
Sheets.Add.Name = NomDeLaFeuil$
End Sub

Roland

 

[errog]

Re : gestion d'erreurs

Ca a l'air de fonctionner
MERCI BEAUCOUP 😀