Discussion :

[zveanturz]

Bonour,

Je souhaite au travers d'une macro récupérer le chemin complet d'un lecteur reseau; je m'explique.
Une fenetre de dialogue s'ouvre permettant à l'utilisateur de choisir un repertoire reseau; bien souvent l'utilisateur va choisir le lecteur identifié sur son poste:
W:\Mon_dossier_reseau\

je voudrais a partir de ce nom de dossier récupérer le chemin reseau complet

\\cerbere\repertoire_utilisateur\Mon_dossier reseau\

Comment puis je faire cela etant donné que je n'ouvre pas de fichier excel diretement dans ce répertoire

Merci d'avance.

ps: j'utilise excel 2003.

[SilkyRoad]

bonsoir

Je n'ai pas de serveur pour tester, mais tu peux essayer cette macro pour récupérer le nom du serveur en fonction de la lettre attribuée:

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
Option Explicit
 
Declare Function WNetGetConnection Lib "mpr.dll" Alias _
    "WNetGetConnectionA" (ByVal lpszLocalName As String, _
    ByVal lpszRemoteName As String, ByRef cbRemoteName As Long) As Long
 
 
Sub Test()
    Dim Lettre As String
    Dim remName As String * 255
 
    remName = String$(255, Chr$(32))
    Lettre = "W:"
    WNetGetConnection Lettre, remName, 255
 
    MsgBox Trim(remName)
End Sub

michel

[zveanturz]

Merci beaucoup, je n'ai pas de reseau sous la main non plusdonc je vais tester ça demain je vous tient au courant.