Gestion des bugs

[dalba]

Re bonjour,

Y a t'il un moyen de lancer un bout de macro quand le programme détecte un bug ? Quelle est la commande pour gerer cela ?


Merci d'avance

Dalba

 

[MichelXld]

bonjour Dalba

tu peux gerer les erreurs en utilisant On Error GoTo et l'objet Err


j'espere que cet exemple répondra à ta demande

Sub TestErreur()
On Error GoTo errorHandler
'
'
'ma procedure qui va bugguer
'par exemple une division par 0:
Dim x As Integer
x = 2 / 0
'
'
errorHandler:
MsgBox 'Code Erreur : ' & Err.Number & vbLf & 'Description: ' & Err.Description & _
vbLf & Err.Source & vbLf & 'Index de l'aide VBA :' & Err.HelpContext & vbLf & Err.HelpFile

MsgBox 'Cliquez sur le bouton AIDE pour afficher l'aide en ligne', _
vbMsgBoxHelpButton, , Err.HelpFile, Err.HelpContext
End Sub


bon week end
MichelXld

 

[dalba]

Merci, c'est se que je cherchais !

Mon week end va être meilleur !