Tester deux dossiers

Bonjour,

J'ai un code qui fonctionne parfaitement pour tester si un fichier se trouve dans un dossier.

Ce que je n'arrive pas à faire, c'est tester un second dossier, si dans le premier il n'a rien trouvé et ouvrir le fichier correspondant.

J'ai ce code :

Dim Pat As String, Fichier As String
    Pat = "S:\Partages\Doc\Interne\_jeremy\DI en attente\"
   Fichier = Selection.Value & ".xls"
    If Fichier = "" Then Exit Sub
   If Dir(Pat & Fichier) <> "" Then
           Workbooks.Open (Pat & Fichier)
    End If
    End Sub

L'emplacement du second dossier est le suivant :

"S:\Partages\Doc\Interne\_jeremy\DI en cours\"

Merci beaucoup pour l'aide.

J'ai une façon beaucoup plus brouillon avec des gestions d'erreurs, mais qui fonctionne.

On Error Resume Next
Workbooks.Open Filename:= _
        "S:\Partages\Doc\Interne\_jeremy\DI en attente\" & Selection.Value & ".xls"
On Error Resume Next
Workbooks.Open Filename:= _
        "S:\Partages\Doc\Interne\_jeremy\DI en cours\" & Selection.Value & ".xls"

End Sub