Discussion :

[ninouchfis]

Bonjour à tous,

Je souhaiterais connecter un lecteur réseau son mon pc en utilisant un code simple en vba.
J'ai beau chercher un peu partout mais c'est sans succés...

Quelqu'un aurait un solution pour moi?

Merci par avance.

[Jean-Philippe André]

Hello,

en adaptant le code vbs donné dans la discussion suivante
http://www.developpez.net/forums/d95...ecteur-reseau/
tu devrais pouvoir y arriver

tu ajoutes juste les déclarations en Object

Code :

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

Dim WshNetwork As Object

et le reste marchera du tonnerre

[ninouchfis]

Merci jpcheck,

tu vas me prendre pour un assisté mais je n'arrive pas à faire fonctionner ce code.

J'ai un message d'erreur me disant "objet requis" et il me surligne la deuxième ligne du code...

Voici mon code:

Code :

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

1
2
3
4
5
Dim WshNetwork As Object
 
Set WshNetwork = WScript.CreateObject("WScript.Network")
 
WshNetwork.MapNetworkDrive "P:", "\\Tlstore07\meth_ipfh\" & WshNetwork.UserName

[Jean-Philippe André]

le Wscript n'est pas obligatoire ici

Code :

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

1
2
3
4
5
Sub piou()
Dim WshNetwork As Object
Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "P:", "\\MaMachineSurLereseau\UnDossierpartage"
End Sub

fonctionne très bien

[ninouchfis]

Ok le code fonctionne je pense mais j'ai quand même un message d'erreur:

"les informations de configuration n'ont pas pues être lues sur le contrôleur de domaine car l'ordinateur n'est pas disponible ou l'accé a été refusé"

Normalement je rentre un user et un mot de passe pour connecter un lecteur réseau... C'est surement la cause de l'erreur.

[Jean-Philippe André]

Les paramètres de login et password se mettent dans la foulée de la fonction :
http://www.developpez.net/forums/d65...pnetworkdrive/

Code :

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

WSHNetwork.MapNetworkDrive "Z:", "\\IPSERVEUR\DISQUE", True, "USER", "PASSWORD"

[ninouchfis]

Merci jpcheck,

ça fonctionne très bien maintenant.

Merci beaucoup pour ton aide, grace à toi je vais passer une bonne après midi!

[ninouchfis]

Me revoila...

Alors maintenant que j'arrive à connecter/déconnecter un lecteur, j'aimerai vérifier si c'est bien le lecteur que je veux qui est mappé avec le bon disque.

Par exemple :

si Q:\\mondisque1
alors
désinstalle Q
intalle Q:\\mondisque2
sinon
sort du code
(en rouge: je ne sais pas faire
en noir: je sais faire)

[Jean-Philippe André]

tu peux utiliser EnumNetworkDrives

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub piou()
Dim WshNetwork
Dim Wscript
Dim oDrives
Dim i As Integer
'si necessaire pour le test Mapper Un Lecteur Reseau "Z:", "\\Machine\Dossier"
Set WshNetwork = CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
 
For i = 0 To oDrives.Count - 1 Step 2
   Debug.Print "Drive " & oDrives.Item(i) & " = " & oDrives.Item(i + 1)
Next
 
End Sub

[ninouchfis]

Super ça fonctionne.
Merci beaucoup pour ton aide.