Fermeture automatique de fichier après erreur

[emmanuel75]

Bonjour à tout le forum,

Je me demandais s'il existait une façon de faire pour enregistrer et fermer automatiquement un fichier après un message d'erreur qui survient lors d'une macro.
Exemple: une macro se lance à l'ouverture d'un fichier...une erreur se produit...normalement l'utilisateur choisit entre "FIN" ..."DEBOGAGE"..."ANNULER".
Comment faire pour que le fichier ferme la fenêtre avec "FIN" et ensuite le fichier en sauvegardant ????????


Merci à tous ceux qui ont le savoir🙂

Emmanuel

 

[kllmoon]

Re : Fermeture automatique de fichier après erreur

utilise la fonction onerror

On Error Goto ErrHandler:
   'ton code
    Exit Sub 
    ErrHandler:
    ' ton code s'il y a erreur
    Resume Next
    End Sub

 

[Pierrot93]

Re : Fermeture automatique de fichier après erreur

Bonjour,

peut être comme ceci si j'ai bien compris, mais attention ferme le classeur en sauvegardant... :

On Error GoTo fin
'ton code
Exit Sub
fin:
ThisWorkbook.Close True

bon après midi
@+

 

[emmanuel75]

Re : Fermeture automatique de fichier après erreur

Merci kllmoon,

si j'ai bien compris...
dans le code :
On Error Goto ErrHandler:
'ton code
Exit Sub
ErrHandler:
' ton code s'il y a erreur
Resume Next
End Sub

'ton code représente le nom de ma macro

et 'ton code s'il y a erreur représente les quelques lignes commandant au programme de fermer le fichier en le sauvegardant n'est-ce-pas ???

 

[emmanuel75]

Re : Fermeture automatique de fichier après erreur

QUESTION :

pour fermer complètement excel,
ThisWorkbook.Close True ne suffit pas...quel est le code pour "TOUT FERMER" ???

 

[Pierrot93]

Re : Fermeture automatique de fichier après erreur

Re,

"Application.Quit" pour fermer Excel, mais attention, en fonction de la version Excel utilisée, si tu as d'autres classeurs d'ouverts et non enregistrés du peux perdre ton travail... d'autant plus ennuyeux si ton classeur à vocation à être distribué à d'autres personnes....

 

[kllmoon]

Re : Fermeture automatique de fichier après erreur

Merci kllmoon,

si j'ai bien compris...
dans le code :
On Error Goto ErrHandler:
'ton code
Exit Sub
ErrHandler:
' ton code s'il y a erreur
Resume Next
End Sub

'ton code représente le nom de ma macro

et 'ton code s'il y a erreur représente les quelques lignes commandant au programme de fermer le fichier en le sauvegardant n'est-ce-pas ???

Exactement, tu peux insérer ta macro directement à 'ton code ou faire Call 'lenomdetamacro' (sans les guillemets bien sûr. Et ton code s'il y a erreur représente ce que tu veux que excel fasse s'il y a une erreur qui se produit.