gestion d'erreurs

errog · 29 Février 2008

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 😕😕😕

PHP:

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 · 29 Février 2008

Re : gestion d'erreurs

Bonsoir,

essaie ceci:

Code:

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 · 29 Février 2008

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 · 29 Février 2008

Re : gestion d'erreurs

Ca a l'air de fonctionner
MERCI BEAUCOUP 😀

gestion d'erreurs

errog

Guest

skoobi

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

errog

Guest

Discussions similaires

gestion d'erreurs

errog

Guest

skoobi

XLDnaute Barbatruc

Roland_M

XLDnaute Barbatruc

errog

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency