Discussion :

[pitipilot]

Bonjour,

J'ai besoin d'accéder à un répertoire distant via le protocole samba depuis du VBA.
Comment puis-je accéder à ce répertoire en VBA avec les identifiants qui vont bien ?

Bonne journée.

[pitipilot]

J'ai trouvé,

voici mon exemple :

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
20
21
22
 
Sub test()
 'No Passthru Authentication
Dim serverpath As String
Dim filename As String
 
 serverpath = "\\IP\exemple"
 
 filename = serverpath & "\test.csv"
 
 
 Set oNet = CreateObject("WScript.Network")
 
 
oNet.MapNetworkDrive "", serverpath, False, "login", "password"
 
Set fs = New FileSystemObject
Set outputFile = fs.CreateTextFile(filename, True) 'note file will be overwritten
 
 
 oNet.RemoveNetworkDrive serverpath, True, False
End Sub

A bientôt