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