Dans le cadre de la mise en place d'un système de mesure de cote sur des vis, une communication par port RS 232 avec récupération des données sous Excel a été développée, celle-ci fonctionnait très bien jusqu'à ce qu'on change le PC.
Désormais VB ne reconnait plus les termes en com (comEventBreak etc...) liés au port série. Le PC utilisé tourne avec Excel 2003 sp2 et VB 6.3.
Malgré mes recherches je n'ai pas réussi à trouver de solution à ce problème.
Quelqu'un peut-il me renseigner ?
D'avance merci !
Partie de code posant problème :
Private Sub RS232_OnComm()
' OnComm est déclenché quand l'appareil a envoyé N caractères
' N correspond à la propriété [RThreshold] de l'objet MSComm
Dim tampon As String, MsgErr As String
Select Case Me![RS232].CommEvent
'liste des erreurs possibles
Case comEventBreak ' On a reçu un signal d’interruption (Break)
' MsgErr = "ERREUR N° " & Statut & " : " & "signal d’interruption (Break)"
' MsgBox MsgErr, vbExclamation
Case comEventCDTO ' Timeout de la porteuse
MsgErr = "ERREUR N° " & Statut & " : " & "timeout de la porteuse"
MsgBox MsgErr, vbExclamation
Case comEventCTSTO ' Timeout du signal CTS (Clear To Send)
MsgErr = "ERREUR N° " & Statut & " : " & "Timeout du signal CTS (Clear To Send)"
MsgBox MsgErr, vbExclamation
Case comEventDSRTO ' Timeout du signal de réception
MsgErr = "ERREUR N° " & Statut & " : " & "Timeout du signal de réception"
MsgBox MsgErr, vbExclamation
Case comEventFrame ' Erreur de trame
MsgErr = "ERREUR N° " & Statut & " : " & "Erreur de trame"
MsgBox MsgErr, vbExclamation
Case comEventOverrun ' Des données ont été perdues
MsgErr = "ERREUR N° " & Statut & " : " & "Des données ont été perdues"
MsgBox MsgErr, vbExclamation
Case comEventRxOver ' Tampon de réception saturé
MsgErr = "ERREUR N° " & Statut & " : " & "Tampon de réception saturé"
MsgBox MsgErr, vbExclamation
Case comEventRxParity ' Erreur de parité
MsgErr = "ERREUR N° " & Statut & " : " & "Erreur de parité"
MsgBox MsgErr, vbExclamation
Bonjour, le problème a été résolu,
Le problème venait tout simplement des références (outils->Références...) cochées par défaut qui sont plus nombreuses sur certains postes que sur d'autres.
En général on dit "qui peut le plus peut le moins" mais pas dans ce cas là !
j'imagine que tu doit avoir une user form dans ton classeur excel pour contenir le controle il faudrait vérifier en mode édition dans VBA si ton controle est bien présent sur la form sinon vérifier sa présence dans les références du projet
