Message si fichier inexistant

Version imprimable

21/07/2008, 09h26
marinef

Message si fichier inexistant
Bonjour,
je demande d'ouvrir un certain fichier et voici mon code:
Code:

1 2 3 4 Annexe = Cells(2, 14).Value & ".xls" Ref3 = "CC PWC-PROJET 2008.xls" Chem2 = "X:\Argonay\Qualite\Commun CQC\PROJET P&WC\Fichiers Annexes\Controle Final\" & Annexe Workbooks.Open Filename:=Chem2
Cependant si le fichier est inexistant je voudrais afficher un message d'erreur pour éviter de faire un bug...
Sauriez vous quelle est la fonction??

Si c'est un simple message d'erreur que tu souhaites, alors tu peux faire ça

Code:

1
2
3
4
5
6
7
8
9
10
Annexe = Cells(2, 14).Value & ".xls"
Ref3 = "CC PWC-PROJET 2008.xls"
Chem2 = "X:\Argonay\Qualite\Commun CQC\PROJET P&WC\Fichiers Annexes\Controle Final\" & Annexe
On Error Resume Next
    Workbooks.Open Chem2
    If Err = 1004 Then 
         MsgBox "Chemin ou Fichier inexistant"
         Exit sub
    endif
    On Error GoTo 0

Tu peux aussi vérifier l'existence du fichier avec Dir

Code:

1
2
Chem2 = "X:\Argonay\Qualite\Commun CQC\PROJET P&WC\Fichiers Annexes\Controle Final\" & Annexe
If Dir(Chem2) = "" then msgbox "Fichier inexistant

Mais cela ne te renseignera pas sur l'existence du chemin.

21/07/2008, 09h50
J.Michel

Citation:

Envoyé par ouskel'n'or

Mais cela ne te renseignera pas sur l'existence du chemin.

Pour ca tu peux faire un Dir sur le chemin pour savoir s'il existe en passant le paramètre VbDirectory
21/07/2008, 09h56
marinef

Resolu

Merci bcp c'est exactement ce que je cherchais :)