Connecter un lecteur réseau

Bonjour à tous,
Je souhaiterais au chargement du formulaire d'ouverture connecter un lecteur réseau
W:(\\MonRéseau\Partage)
Mais comment faire ?
Merci par avance pour votre aide
Pierre

Quelque chose comme ceci:

Code:

---

1 2 3 4 5 6

Dim WN As Object Set WN = CreateObject("WScript.Network") WN.MapNetworkDrive "W:", "\\Server\Public", , "User name", "Password" 'omettre "User name", "Password" si ce n'est pas utile ' ajouter ce que vous coulez faire ici WN.RemoveNetworkDrive "W:", True Set WN = Nothing

---

ça marche très bien !
Merci