Discussion :

[n0vocaine]

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

[jackborogar]

Salut,

Cette discution devrait grandement t'aider:
http://www.developpez.net/forums/d65...pnetworkdrive/

Ainsi que ce bout de code:

Code :

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

WSHNetwork.MapNetworkDrive "Z:", "\\IPSERVEUR\DISQUE", True, "USER", "PASSWORD"

Bon courage,

Cdt

[fring]

Bonjour,

Jette un oeil sur cette discussion

[Edit] Too late [/Edit]

[n0vocaine]

#2 merci effectivement je ne l'ai pas vu sur le fofo
#3 idem merci beaucoup

Problème réglé avec le poste (#2 et #3) je vais poster le code final