Lien dans VBA

[Jacques]

Bonjour à tous,

Pouvez vous me dire s'il existe un moyen de ne pas figerles adresses dans VBA. Plus concrètement, j'ai le code suivant :

Workbooks.Open Filename:= _
"D:\Documents\dossier1\essai.xls"

qui ouvre le fichier essai du dosssier 1 sous le lecteur D (lecteur de CDR)

Le problème étant, en changeant de PC, le lecteur n'ayant pas forcément le même nom (D), la macro ne marche pas.
Existe t'il une solution à mon problème, si oui pouvez vous m'en faire part?

Merci de votre aide.

Jacques

 

[Lord Nelson]

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

 

[Jacques]

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