[Excel 2007] - Login/pass réseau local
Bonjour à tous
Ma question porte sur l'ouverture d'un fichier qui se trouve sur un réseau local.
Explications:
En effet, je souhaiterai ouvrir un classeur Excel qui ce trouve sur le disque "z:" (disque réseau) mais le problème c'est que tant que je ne me suis pas logé manuellement le disque z: reste invisible.
Question:
Comme faire pour que je puisse automatiser la connexion ou avoir au moins une fenêtre qui s'ouvre automatiquement pour que je renseigne login/password?
Données:
PATH du fichier que je souhaite ouvrir: Z:\Mondossier\Monfichier.xls
IP réseau pour al connexion: 192.168.1.12
password: password
login: login
Code déjà opérationnel:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| sub test
Dim j As Integer
Dim MyName As String, MyPath As String
MyPath = "Z:\Mondossier\"
MyName = Dir(MyPath & "\*.xls")
j = 1
Application.DisplayAlerts = False
Do Until MyName = ""
If UCase(MyName) Like "*Monfichier*" Then
Workbooks.Open (MyPath & "\" & MyName)
Workbooks(MyName).Activate
MsgBox ("Monfichier est ouvert")
End If
MyName = Dir
j = j + 1
Loop
end sub |
Voilà en espérant que ces renseignements suffiront.
Cordialement
novocaine
