Discussion :

[cott333]

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 !

[pc75]

Bonjour,

As-tu essayé en utilisant le chemin UNC ?

Code :

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

1
2
\\NomDuServeur\Entreprise\Vidéo

[Golonne]

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 :

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

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 :

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

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

Bon weekend !

[cott333]

Merci ca march !