Vba excel ouvrir un dossier reseau sécurisé

Question

Bonjour,

Je souhaite inclure dans vba excel l'ouverture d'une boîte de dialogue pour connecter un dossier reseau si pas encore connecté, avant de pouvoir  lancer des requêtes pour mise à jour tcd.

Dossier reseau \160.1.2.3\fichiers données mise à jour quotidienne\

Les requêtes de mise à jour fonctionnent, mais je suis obligé de reconnecter tous les jour le dossier reseau qui comporte un nom utilisteur et un mot de passe différent pour chaque utilisateur. D'où l'intérêt d'avoir la fenêtre apparaître pour rentrer son jeux de connexion personnel

Bdxgrs · Answer

Idée de Script trouvé à reprendre pour mettre une connexion dossier reseau et non lecteur réseau ?

Declaration 
Dim wshNetwork, strLocalDrive, strRemoteShare, strUser, strPassword, oDrives
 
'Initialisation
SET wshNetwork	= CreateObject("Wscript.Network" )
strLocalDrive	= "Z:"
strRemoteShare	= "\serveur"
strUser		= "user"
strPassword	= "passwd"
 
' Si liaison deja creees alors on la ferme
Set oDrives 	= WshNetwork.EnumNetworkDrives
if oDrives.Count	> 0 then 
	WSHNetwork.RemoveNetworkDrive strLocalDrive, True, True
end if 
 
'Creation de la liaison
wshNetwork.MapNetworkDrive strLocalDrive, strRemoteShare ,true, strUser, strPassword

Vba excel ouvrir un dossier reseau sécurisé

1 réponse

Votre réponse

Discussions similaires