Lien dans VBA

Salut Jacques,

Je crains que la solution proposée ne soit pas si simple que tu le souhaiterais :

Sub FichierExiste()
Dim Lecteur As String
Set FS = CreateObject("Scripting.FileSystemObject")
Lecteur = "D"
Do
If FS.FileExists(Lecteur & ":\Documents\dossier1\essai.xls") Then
Workbooks.Open Filename:=Lecteur & ":\Documents\dossier1\essai.xls"
Exit Do
Else
Lecteur = InputBox("Ce fichier n'existe pas en " & Lecteur & ", entrez une autre lettre ou annulez")
If Lecteur = "" Then
Exit Do
End If
End If
Loop
End Sub

En cas d'absence du fichier sur le lecteur D, la macro propose de tester une autre lettre jusqu'au succès ou jusqu'à l'annulation de l'opération.

Qu'en penses-tu ?

A+
Horatio

Salut Horatio,

Merci de ton aide, je garde ça précieusement, malheureusement, ça n'ira pas pour l'application que je veux en faire.
Merci encore d'avoir pris du temps pour me répondre.

@plus

Jacques