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 ...
 

Discussions similaires


Haut Bas