Discussion :

[marinef]

Bonjour,
je demande d'ouvrir un certain fichier et voici mon code:

Code :

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

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

[ouskel'n'or]

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

Code :

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

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 :

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

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.

[J.Michel]

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

[marinef]

Merci bcp c'est exactement ce que je cherchais