Discussion :

[Markal]

Bonjour à toutes et à tous,
J'ai un fichier "BCF" qui, via un bouton de commande, déverse certains éléments dans un fichier fermé (Dep_test.xlsx").

Tout se passait très bien sur mon poste, et dès que je les ai mis sur le réseau, la macro ne fonctionne plus car il n'a pas reconnu l'adresse du fichier.

Concrètement, "C:\mes_documents\Dep_test.xlsx" pas de soucis et "S:\2018\Dep_test.xlsx" ne fonctionne pas. "S" étant un lecteur réseau partagé par plusieurs collègues.
Je vous mets un extrait du code ci-dessous :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Envoi_DEP2()
   Dim WSDest As Worksheet
   Dim WBDest As Workbook
   Dim WSSource As Worksheet
   Dim iR&
   Set WSSource = ThisWorkbook.Sheets("BCF")
        Workbooks.Open ("S:\2018\DEP_test.xls")
   Set WBDest = ActiveWorkbook
   Set WSDest = WBDest.Sheets("bdd")...

J'ai essayé avec le nom complet du lecteur "S:\SB102003\2018\Dep_test.xlsx mais ça ne marche pas non plus.


J'ai vu qu'il existait une commande Chdrive qui pourrait m'aider mais je n'ai pas réussi à la mettre en place.

Merci par avance pour votre aide,et bonne journée

[MarcelG]

Bonjour,

Si j'ai bien compris, tu souhaites retourner l'adresse complète (FullName) de ton classeur en interprétant la connexion réseau au serveur.

Fonction donnée par GAYOT sur forum, discussion ouverte par MarcelG

'http://www.developpez.net/forums/d1025923/logiciels/microsoft-office/excel/macros-vba-excel/recherche-repertoire-libelle-integral/

Dans un module utilitaire

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
20
21
22
23
24
25
26
27
28
Private Declare Function WNetGetConnection Lib "mpr.dll" Alias "WNetGetConnectionA" _
 (ByVal lpszLocalName As String, ByVal lpszRemoteName As String, cbRemoteName As Long) As Long
 
Option Compare Text
 
Public Function fnctGetUNCPath(ByVal PathName As String) As String
 
'comment récupérer le chemin intégral du fichier si connection lecteur réseau
'tuto :
'http://access.developpez.com/sources/?page=reseau#GetUNC
 
Const MAX_UNC_LENGTH  As Integer = 512
 
Dim strUNCPath As String
Dim strTempUNCName As String
Dim lngReturnErrorCode  As Long
 
  strTempUNCName = String(MAX_UNC_LENGTH, 0)
  lngReturnErrorCode = WNetGetConnection(Left(PathName, 2), strTempUNCName, _
    MAX_UNC_LENGTH)
 
  If lngReturnErrorCode = 0 Then
     strTempUNCName = Trim(Left(strTempUNCName, InStr(strTempUNCName, vbNullChar) - 1))
     strUNCPath = strTempUNCName & Mid(PathName, 3)
  End If
 
fnctGetUNCPath = strUNCPath
End Function

Ainsi utilisée,

Code :

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

1
2
3
4
5
6
7
8
9
Sub mochemin()
 
Dim maréf_true as string
 
maréf_true = IIf(Len(fnctGetUNCPath(ThisWorkbook.FullName)) = 0, ThisWorkbook.FullName, fnctGetUNCPath(ThisWorkbook.FullName))
 
Debug.Print maréf_true
 
End Sub

cette fonction te retournera le chemin complet de ton classeur

J'utilise beaucoup cette fonction dans mes applicatifs pour tester la version utilisée sur le poste des collègues

[Markal]

Nikel MarcelG, merci beaucoup pour ta réponse.
Bonne soirée