Bonjour à tous, je me permet de vous contacter pour bénéficier de votre aide
J'utilise le VBA pour communiquer avec un analyseur de spectre.
Au départs je dois rentrer 3 changer " Nom Prenom Projet" qui creer un nouveau excel.
A la fin de cette étape, ma macro se connecte automatique à l'analyseur de spectre. Mais lors de soucis de connexion ou X raisons je peux avoir des messages d'erreur.
Quand ca arrive j'ai personnalisé avec ce message
J'ai toujours un message avec "Débogage" qui me renvoie vers le code. C'est contraignant car l'erreur n'est pas du au code et il me fait quitter la page excel, ce que je ne souhaite pas.
Et voici le code qui me permet de me connecter à l'analyseur :
J'aimerai savoir comment, en appuyant sur le bouton Ok de ma page d'erreur crée, je pouvais enlever le message d'erreur système. Ce qui m'éviterai d'aller sur la page VBA et, de reprendre la "manipulation", "la continuité" du code comme avant l'erreur.
En gros : Si c'est une erreur de branchement du cable ethernet : Quand j'appuie sur Ok ca m'affiche pas l'erreur et me laisse sur ma page Excel avec ma manip.
Je m'excuse si je n'ai pas étais hyper clair ou assez technique.
Merci d'avance pour votre aide.
Cdlt
J'utilise le VBA pour communiquer avec un analyseur de spectre.
Au départs je dois rentrer 3 changer " Nom Prenom Projet" qui creer un nouveau excel.
A la fin de cette étape, ma macro se connecte automatique à l'analyseur de spectre. Mais lors de soucis de connexion ou X raisons je peux avoir des messages d'erreur.
Quand ca arrive j'ai personnalisé avec ce message
J'ai toujours un message avec "Débogage" qui me renvoie vers le code. C'est contraignant car l'erreur n'est pas du au code et il me fait quitter la page excel, ce que je ne souhaite pas.
Et voici le code qui me permet de me connecter à l'analyseur :
VB:
Public Sub OpenConnexion()
'This sub open the connexion with the ASA
'Variable declaration
Dim command As String
Dim buff As String
'Variable Initialization
Set ioMgr = New VisaComLib.ResourceManager
Set instrument = New VisaComLib.FormattedIO488
'Connexion
command = "TCPIP::" & ipASA & "::inst0::INSTR" [COLOR=rgb(226, 80, 65)]=> Permet la connexion[/COLOR]
On Error GoTo ErrorConnexion
Set instrument.IO = ioMgr.Open(command, openTimeout:=500000)
Exit Sub
ErrorConnexion:
buff = MsgBox("Connection error with the Spectrum Analyser" & vbCrLf & "Check that the ethernet cable is plug in" & vbCrLf & "Check that the IP address of the ASA is the same specified in the configuration sheet", vbOKOnly)
If vbOKOnly Then
command = "TCPIP::" & ipASA & "::inst0::INSTR"
Set instrument.IO = ioMgr.Open(command, openTimeout:=500000)
End If
End SubJ'aimerai savoir comment, en appuyant sur le bouton Ok de ma page d'erreur crée, je pouvais enlever le message d'erreur système. Ce qui m'éviterai d'aller sur la page VBA et, de reprendre la "manipulation", "la continuité" du code comme avant l'erreur.
En gros : Si c'est une erreur de branchement du cable ethernet : Quand j'appuie sur Ok ca m'affiche pas l'erreur et me laisse sur ma page Excel avec ma manip.
Je m'excuse si je n'ai pas étais hyper clair ou assez technique.
Merci d'avance pour votre aide.
Cdlt