XL 2016 Path not found sur serveur entreprise

Jauster

XLDnaute Occasionnel
Bonjour,

Je souhaite ouvrir plusieurs fichiers présents sur le serveur de l'entreprise. Sauf que si la personne utilisant la macro n'a pas ouvert le serveur manuellement (double cliquer sur M:\\ pour l'ouvrir au moins une fois) alors le chemin d’accès au fichier n'est pas reconnu, et j'ai une erreur Path not Found.

Avez-vous une solution à proposer ?

Merci
 

Jauster

XLDnaute Occasionnel
Hello,

Merci pour la réponse, mais justement si je pose la question c'est pour savoir si il y a d'autres moyens de faire. Sinon oui je vais être obligé de placer le fichier sur le dossier du serveur pour les forcer à passer par le serveur pour ouvrir le fichier, mais ca m’empêche de créer un raccourci sur le bureau
 

Staple1600

XLDnaute Barbatruc
Bonjour le fil, le forum, Lone-Wolf

@Jauster
Issu de mes archives poussiéreuses
A tester et adapter selon besoin
VB:
Sub Test()
Dim vDoss$
MsgBox GetUNC("M:")
vDoss = GetUNC("M:\toto")
MsgBox vDoss
'toto = nom dossier partagé sur le réseau
End Sub
Private Function GetUNC(strMappedDrive As String) As String
'[X] -> cocher les références idoines dans VBE
Dim strDrive$, strShare$, objFso As FileSystemObject
Set objFso = New FileSystemObject
strDrive = objFso.GetDriveName(strMappedDrive)
strShare = objFso.Drives(strDrive).ShareName
GetUNC = Replace(strMappedDrive, strDrive, strShare)
Set objFso = Nothing 'source:c|page 15714|a
End Function
 

Jauster

XLDnaute Occasionnel
Hello Staple1600, re Lone-Wolf

Merci pour la proposition. J'ai de mon côté aussi découvert l'utilité des UNC. J'ai donc directement demandé à notre IT l'UNC du dossier, UNC que j'ai désormais à disposition.
Je vais faire quelques tests avec, et je reviens vers vous.

Merci
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG