Discussion :

[shadok6]

Bonjour,

je cherche dans une macro VBA Excel 2003a ouvrir un repertoire en reseau pour acceder a un fichier de donnees.
seulement le repertoire est protege par un mot de passe et un nom d'utilisateur.
J'utilise la ChDir qui fonctionne bien quand je suis deja connectee manuellement au repertoire en parallele, mais je souhaiterais entrer dans la macro le mot de passe et le nom d'utilisateur pour un acces automatique systematique.
Comment faire ?
merci de votre aide

Celine

[Godzestla]

Tu peux contourner le problème en faisant un mapping du folder protégé.

Pour cela tu peux utiliser la commande "net use".

la syntaxe est pour un mapping avec la lettre G

Code :

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

net use g: \\server\folder /USER:user password /PERSISTENT:NO

En VBA, cela donne :

Code :

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

1
2
3
4
5
6
7
8
Sub map_drive()
Dim Operation   As String
Dim shell_res   As Variant
 
Operation = "net use G: \\server\folder /USER:user password  /PERSISTENT:NO "
shell_res = Shell(Operation, vbNormalFocus)
DoEvents
End Sub

Et si ton user à les droits, alors tu peux l'utiliser.
Tu fais

Code :

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

CHDRIVE "G"

Attention que le mapping reste actif après ton code.

[shadok6]

Ok, ca marche super.

Par contre y'a un moyen pour que la fenetre noire n'apparaisse pas? Ca ferait plus propre!
merci beaucoup.

[Godzestla]

Bonjour,
pour éviter la fenêtre noire tu peux essayer :

Code :

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

shell_res = Shell(Operation, vbHide)

Bonne journée.

[shadok6]

Impec ! c'etait juste ca, merci beaucoup

[shadok6]

Heu, en fait apres plusieurs tests, notammemt apres avoir ferme puis reouvert ma session, ca ne fonctionne pas correctement :
- a chaque 1er lancement de la macro la connection au folder protege ne se fait pas, je suis obligee d'entrer a la main le nom d'utilisateur et le mot de passe, par defaut j'atterri sur "mes documents",
- en faisant tourner la macro en mode pas a pas, cela fonctionne mais pas en mode automatique !

Que faire, ou est le probleme ?