Connecter un lecteur réseau en vba

**totine** · 28/10/2009, 14h24

Bonjour,

J'aimerai connecter a partir de n'importe quel pc de l'entreprise un lecteur reseau bien précis. Je précise que dans mon code j'ai attribué une lettre qui est disponible (genre Z et je veux affecter a cette lettre ci un lecteur reseau bien précis qui est : "\\172.31.143.9\Surface_DCA"

Comment faire ? merci de votre aide !

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
Sub hocine_the_best()
Dim fso As FileSystemObject
Dim d As Drive
 
Dim test As String
 
 
Set fso = New FileSystemObject
 
For Each d In fso.Drives
test = d.DriveLetter & ":"
rst = LetterToUNC(test)
 
If test <> "H:" Then
MsgBox "le lecteur H est disponible"
interReponse = MsgBox("Voulez vous etablir la connection avec le lecteur H ?", vbQuestion + vbYesNo, "Connection Surface_DCA")
Exit Sub
End If
Exit For
Next d
 
Set fso = Nothing
 
 
End Sub

**tenebriox** · 28/10/2009, 14h46

* Bonjour *
--->

Je n'ai jamais testé cela.
Tu peux aussi le faire dans un .bat avec net use et dans ton appli, tu fais un shellexecute du .bat

**totine** · 28/10/2009, 15h08

Désolé, je commence a peine avec le code donc si je pouvais avoir un peu plus de précisions de ta part stp ce serait sympa. Merci !

**tenebriox** · 28/10/2009, 15h19

Et bien, tu peux utiliser le code que j'ai mis dans le premier lien normalement, en l'adaptant à ton utilisation

Code :

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

1
2
3
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "R:","\\NOM_ORDINATEUR\REPERTOIRE",false,"NOM_UTILISATEUR","MOT_DE_PASSE"

Sinon, je te proposais une autre solution, en créant un fichier .bat accessible via un point de partage, et ton application utiliserait la fonction shell.execute (je te laisse chercher comment l'utiliser !) pour lancer le .bat...

**totine** · 28/10/2009, 15h38

Set WshNetwork = WScript.CreateObject("WScript.Network")

je le remplace par quoi Wscript.Network ? ca me met un message d'erreur

**Tofalu** · 28/10/2009, 16h06

Merci de faire une recherche avant de poster :

http://access.developpez.com/sources...rLecteurReseau

**totine** · 28/10/2009, 16h56

Justement le code dans F.A.Q ACCESS est mauvais, il y a une erreur. j'ai trouvé la solution grâce a mes collègues.

Voici le bon module pour que le code fonctionne :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Compare Database
'Déclaration de la constante définissant un lecteur reseau
Private Const RESOURCETYPE_DISK As Long = &H1&
'Déclaration des fonctions de l'api windows
Private Declare Function WNetAddConnection2 Lib "mpr.dll" Alias _
  "WNetAddConnection2A" (lpNetResource As NETRESOURCE, _
  ByVal lpPassword As String, ByVal lpUserName As String, _
  ByVal dwFlags As Long) As Long
  
Private Declare Function WNetCancelConnection Lib "mpr.dll" Alias _
  "WNetCancelConnectionA" (ByVal lpszName As String, _
  ByVal bForce As Long) As Long
'Déclaration du type NetResource (nécessaire pour la fonction WnetAddConnection)
Private Type NETRESOURCE
    dwScope As Long
    dwType As Long
    dwDisplayType As Long
    dwUsage As Long
    lpLocalName As String
    lpRemoteName As String
    lpComment As String
    lpProvider As String
End Type

Public Function ConnecterLecteur(strChemin As String, strLettre As String, _
  Optional strUtilisateur As String, Optional strMotDePasse As String) As Long
Dim RessourceReseau As NETRESOURCE
'Déclare et paramètre la ressource réseau
With RessourceReseau
  .lpRemoteName = strChemin
  .lpLocalName = strLettre
  .dwType = RESOURCETYPE_DISK
End With
'Tente la connexion et retourne vrai en cas de succès
ConnecterLecteur = WNetAddConnection2(RessourceReseau, strMotDePasse, strUtilisateur, 0) = 0
End Function

Public Function DeconnecterLecteur(strLettre As String, _
  Optional bolForce As Boolean = False) As Long
'Deconnecte et retourne la réponse
DeconnecterLecteurReseau = WNetCancelConnection(strLettre, IIf(bolForce, 1, 0)) = 0

Donc je resume dans le code que vous proposez est :

Code :

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

1
2
Public Function connecterLecteur(strLettre As String, _
  Optional bolForce As Boolean = False) As Boolean

Il faut pas mettre boolean mais Long pour que le code passe.

Merci bien en tout cas.

**Tofalu** · 28/10/2009, 17h02

Le As Boolean est bien correct, un long est inutile puisque la comparaison

WNetCancelConnection(strLettre, IIf(bolForce, 1, 0)) = 0

retourne un booleen et non un numérique. C'est une comparaison, et non une opération

EDIT : et je viens de re-tester le code de la page source, il fonctionne très bien

**totine** · 29/10/2009, 09h51

Pour le code ci dessous qui permet de connecter un lecteur, j'ai du enlever As Boolean et le remplacer par As Long pour que ça fonctionne chez moi.

Chez vous le code fonctionne sans faire aucun changement ? Bizarre bizarre.

Public Function ConnecterLecteur(strChemin As String, strLettre As String, _
Optional strUtilisateur As String, Optional strMotDePasse As String) As Long
Dim RessourceReseau As NETRESOURCE
'Déclare et paramètre la ressource réseau
With RessourceReseau
.lpRemoteName = strChemin
.lpLocalName = strLettre
.dwType = RESOURCETYPE_DISK

**Tofalu** · 29/10/2009, 10h05

Il s'agit d'une affectation à une variable d'un résultat d'une comparaison qui retourne soit True ou soit False et non un numérique. Je ne vois pas ce que viendrait faire un As Long ... Principe de base d'algorithmie

Connecter un lecteur réseau en vba

VBA Access

Discussions similaires

Partager

Partager