excel chemin absolu

[bianchini]

bonjour,

pourriez-vous me dire comment je transforme cette liaison de fichier dans excel en chemain ABSOLU?

'G:\societe\Gestion\resultats\resultats_2011\societe.site\[chiffres_2011.xlsx]Journées'!$AC$3:$AD$8

merci beaucoup!!

[jpcheck]

salut,

la fonction de chemin absolu que j'utilise est la suivante :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
 
Public Function GetUNCPath(ByVal PathName As String) As String
 
    Dim sUNCPath As String
    sUNCPath = String(260, 0)
 
    If WNetGetConnection(Left$(PathName, 2), sUNCPath, 260) = 0 Then
 
        sUNCPath = Trim(Left(sUNCPath, InStr(sUNCPath, vbNullChar) - 1))
        sUNCPath = sUNCPath & Mid$(PathName, 3)
 
    End If
 
    GetUNCPath = sUNCPath
 
End Function

exemple

Code :

1
2
Dim sCheminUNC as String
sCheminUNC = GetUNCPath("X:\pioupiou.xls")

[bianchini]

Merci... mais je ne sais pas du tout comment utiliser ce ... code...
est-ce à mettre en vba??
pouvez vous l'adapter à mon cas?
désolée...