Erreur et message box

nico62370

XLDnaute Nouveau
Bonjour,

Je souhaiterais affecter un type d'erreur (1004) à une boite de dialogue. Lorsque je valide la ligne on error(1004)... Excel m'indique "erreur de compilation/ attentu : goto ou resume". Merci de m'aider, je vous donne une copie du code VBA.

Private Sub CommandButton1_Click()
On Error(1004) GoTo gester
choix = ComboBox1.Value
Workbooks.Open Filename:="D:\facture\archivage\" & choix & ""
Application.Visible = True
menu.Hide

gester:
MsgBox "CE FICHIER N'EST PAS DISPONIBLE", vbCritical, "ANNULATION"

End Sub
 

mutzik

XLDnaute Barbatruc
Re : Erreur et message box

Bonjour,

on error(1004) = pas bon

on error goto Gesterr = ok
gesterr:
if err.number = 1004 then ...
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas