Gestionnaire d'erreur

Gestionnaire d'erreur - VB/VBA/VBS - Programmation

Marsh Posté le 28-06-2005 à 11:55:06    

Bonjour,
 
J'ai un problème pour mon gestionnaire d'erreur :
 
Si une erreur à été traitée, alors dés que je veux fermer excel, excel plante et se ferme avec un message d'alerte. pourquoi ?
 
Voici mon code
 
En gros, dés qu'il y a l'erreur 1004, je crée un fichier texte (je traite l'erreur, mais je n'ai pas mi le code) et je continue le prog.
 
oups:
If Err.Number = 1004 Then
    If bError = False Then
        fso.CreateTextFile ("D:\Ludovic\erreur.txt" )
    End If
    bError = True
    Open "D:\Ludovic\erreur.txt" For Output As #1
    Print #1, "erreur sur le fichier"; fl.Name & " à partir de la feuille : " & xlwks2.Name
    Print #1, "Un nouveau fichier a donc été créé pour copier les feuilles suivantes : " &     fd.Path & "\" & lstClients.List(i) & iFichier
    Close "1"
End If
 
merci

Reply

Marsh Posté le 28-06-2005 à 11:55:06   

Reply

Marsh Posté le 28-06-2005 à 12:36:42    

un Err.Clear ne manquerait il pas ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed