Utilitaire pour pilotage du port série

On Error resume Next

1
2
DoEvents
If Err.Number = 0

1
2
3
4
' Connexion port série
On Error GoTo 0
MSComm1.CommPort = PortCom ' Port paramétré
MSComm1.PortOpen = True: DoEvents ' Ouverture du port

On Error goto line

On Error resume next

1
2
3
4
5
6
7
8
9
10
11
12
Sub MaSub
  On Error Goto ErrPort
MSComm1.CommPort = PortCom ' Port paramétré
MSComm1.PortOpen = True: DoEvents ' Ouverture du port
On Error Goto 0 'Fin gestion d'erreur

...
 ... le reste de ton code.. faut voir..?
 Exit sub 'Pour ne pas passer dans le code gestion d'erreur
ErrPort:
 MsgBox "Ouverture port impossible.."
end sub

1
2
3
4
  On error Resume next
  x=x/0  'ca normalement ca genere une erreur, vb ne sachant pas diviser par zero
  on error goto 0

1
2
3
4
5
6
7
8
9
  On error Goto ErreurDivision
  x=x/0
  On error goto 0
  exit sub

ErreurDivision:
  Msgbox "Erreur N° " & err.number & vbCrLf & err.description
  Resume Next    'reprendre l'execution a la ligne suivant
  ' Resume         'le Resume seul demande de ré-excécuter la ligne en erreur