Rendre variable un chemin d'accès sur réseau

Bonjour à tous!

J'ai un petit problème simple à vous soumettre.

En gros j'ai stocké des video dans un repertoire du réseau.

J'ai crée une macro qui me permet d'ouvrir la vidéo suivant le chemin de cette vidéo d'après mon accès.
Exemple: La macro va ouvrir ma vidéo sur Z:/Entreprise/Vidéo

Cependant, mes collègues ont mappé leur accès au fichier diférement et ils ont accès à la vidéo avec un chemin peu différent.
W:/Entreprise/Vidéo ou encore Y:/Entreprise/Video
Il n'y a que la premiere lettre qui change.

Question: Comment puis je changer le lien de ma macro pour que tous mes collégues puissent ouvrir la vidéo même si le lien d'accès sera différent?

Merci d'avance à tous ! :P

Bonjour,

As-tu essayé en utilisant le chemin UNC ?

Code:

---

1 2	\\NomDuServeur\Entreprise\Vidéo

---

Bonjour,

Je suppose qu'on parle bien de VBA Excel ici ? Quoiqu'il en soit, dans le VBE active la bibliothèque Microsoft Scripting Runtime. Dans ton module ajoute la fonction suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Function LettreDisque() Dim oFSO As Scripting.FileSystemObject Dim oDrv As Scripting.Drive   Set oFSO = New Scripting.FileSystemObject   On Error Resume Next   For Each oDrv In oFSO.Drives If oDrv.IsReady Then If oDrv.VolumeName = "Exploitation" Then 'Exemple de nom du disque LettreDisque = oDrv.DriveLetter End If End If Next Set oFSO = Nothing Set oDrv = Nothing   End Function

---

Et dans ta macro modifie ton code pour que ta commande d'ouverture du fichier ressemble à

Code:

---

MaVideo.Open LettreDisque & ":\Entreprise\Video"

---

Bon weekend !

Merci ca march ! :ccool: