Besoin de votre science!!!!!!!!!!
Je dois supprimer des fichiers qui sont verrouill=E9s par=20
une autre application. Lors de la tentative de suppression=20
Excel renvoi un message d'erreur (num=E9ro d'erreur 70). Ce=20
message d'erreur ne veut rien dire pour le commun des=20
mortels. Aussi je souhaite me servir de cette erreur pour=20
faire appara=EEtre mon propre message box.
Attention plusieurs type d'erreur. Donc l'instruction=20
"ON ERREUR GOTO xxxxx" ne convient pas. L'id=E9al serait de=20
pouvoir travailler avec le num=E9ro de l'erreur g=E9n=E9r=E9e.
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
Frédéric Sigonneau
Bonsoir,
Une approche possible, à adapter à tes besoins (le code est à recopier dans un module standard du classeur où tu veux l'utiliser) :
'================ Sub test() On Error Resume Next Err.Raise -1445 'par exemple MsgPerso Err.Number End Sub
Sub MsgPerso(Numero&) Select Case Numero Case 13: MsgBox "type incompatible" Case 70: MsgBox "fichier déjà utilisé" Case Else: MsgBox "erreur non gérée" End Select End Sub '================ FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Salut à tous
Besoin de votre science!!!!!!!!!! Je dois supprimer des fichiers qui sont verrouillés par une autre application. Lors de la tentative de suppression Excel renvoi un message d'erreur (numéro d'erreur 70). Ce message d'erreur ne veut rien dire pour le commun des mortels. Aussi je souhaite me servir de cette erreur pour faire apparaître mon propre message box. Attention plusieurs type d'erreur. Donc l'instruction "ON ERREUR GOTO xxxxx" ne convient pas. L'idéal serait de pouvoir travailler avec le numéro de l'erreur générée.
Merci
Bonsoir,
Une approche possible, à adapter à tes besoins (le code est à recopier dans un
module standard du classeur où tu veux l'utiliser) :
'================ Sub test()
On Error Resume Next
Err.Raise -1445 'par exemple
MsgPerso Err.Number
End Sub
Sub MsgPerso(Numero&)
Select Case Numero
Case 13: MsgBox "type incompatible"
Case 70: MsgBox "fichier déjà utilisé"
Case Else: MsgBox "erreur non gérée"
End Select
End Sub
'================
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
Salut à tous
Besoin de votre science!!!!!!!!!!
Je dois supprimer des fichiers qui sont verrouillés par
une autre application. Lors de la tentative de suppression
Excel renvoi un message d'erreur (numéro d'erreur 70). Ce
message d'erreur ne veut rien dire pour le commun des
mortels. Aussi je souhaite me servir de cette erreur pour
faire apparaître mon propre message box.
Attention plusieurs type d'erreur. Donc l'instruction
"ON ERREUR GOTO xxxxx" ne convient pas. L'idéal serait de
pouvoir travailler avec le numéro de l'erreur générée.
Une approche possible, à adapter à tes besoins (le code est à recopier dans un module standard du classeur où tu veux l'utiliser) :
'================ Sub test() On Error Resume Next Err.Raise -1445 'par exemple MsgPerso Err.Number End Sub
Sub MsgPerso(Numero&) Select Case Numero Case 13: MsgBox "type incompatible" Case 70: MsgBox "fichier déjà utilisé" Case Else: MsgBox "erreur non gérée" End Select End Sub '================ FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
Salut à tous
Besoin de votre science!!!!!!!!!! Je dois supprimer des fichiers qui sont verrouillés par une autre application. Lors de la tentative de suppression Excel renvoi un message d'erreur (numéro d'erreur 70). Ce message d'erreur ne veut rien dire pour le commun des mortels. Aussi je souhaite me servir de cette erreur pour faire apparaître mon propre message box. Attention plusieurs type d'erreur. Donc l'instruction "ON ERREUR GOTO xxxxx" ne convient pas. L'idéal serait de pouvoir travailler avec le numéro de l'erreur générée.
