Discussion :

[LeXo]

Bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vld44]

on error goto ExceptionErreur au début de la sub

[LeXo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set exapp = CreateObject("excel.application")

Je croyais que si il ne trouvait pas le fichier

on devait le traiter comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vld44]

Non.
Ca c'est l'exception.

La règle c'est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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