j'ai fait une gestion d'erreur pour faire une liaison OLE.
ce que je voudrais c'est afficher une description de l'erreur (pas le
numéro) : est-ce possible ?
On Error Resume Next 'Routine de contrôle d'erreur
Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS
Logic
MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
If Err <> 0 Then 'gestion d'erreur
MsgBox ("Erreur connection PADS Logic !" + vbCr + "Arrêt du programme.")
Exit Sub
End If
Set SelectPOWER = Nothing 'se deconnect de PADS Logic
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Emcy,
essaie ceci :
'----------------------- Dim GestionErreur As String
On Error GoTo GestionErreur
Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS Logic MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
Set SelectPOWER = Nothing 'se deconnect de PADS Logic Exit Sub
GestionErreur: MsgBox Err.Number & " : " & Err.Description Err = 0 'reprend à la ligne suivante la procédure si besoin 'Resume '-----------------------
Salutations!
"Emcy" a écrit dans le message de news: Bonjours,
j'ai fait une gestion d'erreur pour faire une liaison OLE. ce que je voudrais c'est afficher une description de l'erreur (pas le numéro) : est-ce possible ?
On Error Resume Next 'Routine de contrôle d'erreur Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS Logic MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
If Err <> 0 Then 'gestion d'erreur MsgBox ("Erreur connection PADS Logic !" + vbCr + "Arrêt du programme.") Exit Sub End If
Set SelectPOWER = Nothing 'se deconnect de PADS Logic
Bonjour Emcy,
essaie ceci :
'-----------------------
Dim GestionErreur As String
On Error GoTo GestionErreur
Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS
Logic
MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
Set SelectPOWER = Nothing 'se deconnect de PADS Logic
Exit Sub
GestionErreur:
MsgBox Err.Number & " : " & Err.Description
Err = 0
'reprend à la ligne suivante la procédure si besoin
'Resume
'-----------------------
Salutations!
"Emcy" <toto@bla.com> a écrit dans le message de news: e5n4CPK0FHA.2752@TK2MSFTNGP12.phx.gbl...
Bonjours,
j'ai fait une gestion d'erreur pour faire une liaison OLE.
ce que je voudrais c'est afficher une description de l'erreur (pas le
numéro) : est-ce possible ?
On Error Resume Next 'Routine de contrôle d'erreur
Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS
Logic
MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
If Err <> 0 Then 'gestion d'erreur
MsgBox ("Erreur connection PADS Logic !" + vbCr + "Arrêt du programme.")
Exit Sub
End If
Set SelectPOWER = Nothing 'se deconnect de PADS Logic
'----------------------- Dim GestionErreur As String
On Error GoTo GestionErreur
Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS Logic MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
Set SelectPOWER = Nothing 'se deconnect de PADS Logic Exit Sub
GestionErreur: MsgBox Err.Number & " : " & Err.Description Err = 0 'reprend à la ligne suivante la procédure si besoin 'Resume '-----------------------
Salutations!
"Emcy" a écrit dans le message de news: Bonjours,
j'ai fait une gestion d'erreur pour faire une liaison OLE. ce que je voudrais c'est afficher une description de l'erreur (pas le numéro) : est-ce possible ?
On Error Resume Next 'Routine de contrôle d'erreur Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS Logic MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
If Err <> 0 Then 'gestion d'erreur MsgBox ("Erreur connection PADS Logic !" + vbCr + "Arrêt du programme.") Exit Sub End If
Set SelectPOWER = Nothing 'se deconnect de PADS Logic
Emcy
merci
"michdenis" a écrit dans le message de news: %
Bonjour Emcy,
essaie ceci :
'----------------------- Dim GestionErreur As String
On Error GoTo GestionErreur
Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS Logic MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
Set SelectPOWER = Nothing 'se deconnect de PADS Logic Exit Sub
GestionErreur: MsgBox Err.Number & " : " & Err.Description Err = 0 'reprend à la ligne suivante la procédure si besoin 'Resume '-----------------------
Salutations!
"Emcy" a écrit dans le message de news:
Bonjours,
j'ai fait une gestion d'erreur pour faire une liaison OLE. ce que je voudrais c'est afficher une description de l'erreur (pas le numéro) : est-ce possible ?
On Error Resume Next 'Routine de contrôle d'erreur Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS Logic MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
If Err <> 0 Then 'gestion d'erreur MsgBox ("Erreur connection PADS Logic !" + vbCr + "Arrêt du programme.") Exit Sub End If
Set SelectPOWER = Nothing 'se deconnect de PADS Logic
merci
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
%23ArNpMM0FHA.2552@TK2MSFTNGP10.phx.gbl...
Bonjour Emcy,
essaie ceci :
'-----------------------
Dim GestionErreur As String
On Error GoTo GestionErreur
Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS
Logic
MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
Set SelectPOWER = Nothing 'se deconnect de PADS Logic
Exit Sub
GestionErreur:
MsgBox Err.Number & " : " & Err.Description
Err = 0
'reprend à la ligne suivante la procédure si besoin
'Resume
'-----------------------
Salutations!
"Emcy" <toto@bla.com> a écrit dans le message de news:
e5n4CPK0FHA.2752@TK2MSFTNGP12.phx.gbl...
Bonjours,
j'ai fait une gestion d'erreur pour faire une liaison OLE.
ce que je voudrais c'est afficher une description de l'erreur (pas le
numéro) : est-ce possible ?
On Error Resume Next 'Routine de contrôle d'erreur
Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS
Logic
MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
If Err <> 0 Then 'gestion d'erreur
MsgBox ("Erreur connection PADS Logic !" + vbCr + "Arrêt du
programme.")
Exit Sub
End If
Set SelectPOWER = Nothing 'se deconnect de PADS Logic
'----------------------- Dim GestionErreur As String
On Error GoTo GestionErreur
Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS Logic MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
Set SelectPOWER = Nothing 'se deconnect de PADS Logic Exit Sub
GestionErreur: MsgBox Err.Number & " : " & Err.Description Err = 0 'reprend à la ligne suivante la procédure si besoin 'Resume '-----------------------
Salutations!
"Emcy" a écrit dans le message de news:
Bonjours,
j'ai fait une gestion d'erreur pour faire une liaison OLE. ce que je voudrais c'est afficher une description de l'erreur (pas le numéro) : est-ce possible ?
On Error Resume Next 'Routine de contrôle d'erreur Set SelectPOWER = GetObject(, "PowerLogic.Application").ActiveDocument
MonObjet.Dossier = SelectPOWER.Path 'recupère le chemin du fichier PADS Logic MonObjet.Dossier = SelectPOWER.Name 'recupère le nom du fichier PADS Logic
If Err <> 0 Then 'gestion d'erreur MsgBox ("Erreur connection PADS Logic !" + vbCr + "Arrêt du programme.") Exit Sub End If
Set SelectPOWER = Nothing 'se deconnect de PADS Logic
