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 : Sélectionner tout - Visualiser dans une fenêtre à part
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