levée d'exception sur ouverture fichier excel

Version imprimable

Bonjour

je reprends le code d'un programme qui n'est pas de mon cru

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
nomfich = App.Path & "\à traiter\" & dateref & "" & agence & ".xls"
 
If nomfich <> "" Then
  Set exapp = Nothing
  Set exapp = CreateObject("excel.application")
  'ouverture des fichiers sous excel
  exapp.Workbooks.Open (nomfich)
  'exapp.Workbooks.OpenText FileName:=App.Path & "\" & agence & "\" & 
  Set exwrk = exapp.ActiveWorkbook
  Set exsht = exwrk.ActiveSheet
 
  'reinitialisation erreur
  erreur = False
'requete si erreur
ExceptionErreur:
exapp.quit
msgbox "Aucun fichier correspondant dans le dossier",vbInformation,"Erreur"

Je voudrais lever une erreur lorsque le fichier n'est pas dans le dossier

11/10/2006, 12h30
Vld44

on error goto ExceptionErreur au début de la sub
11/10/2006, 12h56
LeXo

ah oui
Code:

Set exapp = CreateObject("excel.application")

Je croyais que si il ne trouvait pas le fichier

on devait le traiter comme ça :
Code:

1 2 3 4 5 6 7 Set exapp = CreateObject("excel.application") if err.number <>0 then msgbox "Pas de fchier trouvé",vbCritical,"Erreur" exapp.quit exit sub endif

Non.
Ca c'est l'exception.

La règle c'est :

Code:

1
2
3
4
5
6
7
8
Public sub truc()
<dim vars>
on error goto err_Handler
  <vb>
  exit sub
err_Handler:
<vb>
end sub