Ouvrir un fichier sur un disque réseau protégé par un mot de passe

[Guichon57]

Bonjour,

Je voudrais savoir s'il est possible de rechercher un fichier sur un disque réseau protégé par un mot de passe.

J'aimerais récupérer un fichier txt sur un disque réseau (sur notre intranet au boulot)

//178.26.158.23/acquisoft protégé par un mot de passe Admin, Admin

Merci pour votre aide

Guichon57

 

[Staple1600]

Re : Ouvrir un fichier sur un disque réseau protégé par un mot de passe

Bonsoir


Original comme mot de passe
(avec un niveau de sécurité très élevé)

Tu veux récupérer ce fichier par macro ?

 

[Guichon57]

Re : Ouvrir un fichier sur un disque réseau protégé par un mot de passe

Bonsoir,

Je confirme que le niveau de sécurité est très très élevée. lol lol

Oui je veux le récupérer par macro, en faite tous les mois un fichier txt est généré (janvier2011, février2011 etc...) ensuite je récupére le fichier, je le converti en xls.

J'ai réussi à le convertir par macro mais je n'arrive pas à le rappratrier.

Merci pour votre aide si vous le pouvez

Guichon57

 

[Guest]

Re : Ouvrir un fichier sur un disque réseau protégé par un mot de passe

Bonjour Guichon57,
Hello Staple

@Guichon, t'avais pas un fil sur le sujet ICI

L'usage voudrait qu'on fasse remonter ses discussions, en se répondant à soi-même, plutôt que de re-créer une nouvelle discussion, si on a pas de réponse.

A+

 

[Guichon57]

Re : Ouvrir un fichier sur un disque réseau protégé par un mot de passe

Bonjour Hasco,

Oui tu as raison, je suis tout nouveau sur ce site et comme je n'avais pas de réponse j'ai recréé un post

Je le serai pour l'avenir

Merci

Guichon57

 

[Guest]

Re : Ouvrir un fichier sur un disque réseau protégé par un mot de passe

Bonjour,

Y a pas de mal.

Pour répondre à ta question, tu peux essayer de mapper le lecteur réseau, qui si ça réussit pourra être utilisé comme n'importe quel autre lecteur:

Public Function MappageLecteurReseau()
    Dim oNetWork As Object
    Set oNetWork = CreateObject("WScript.Network")
    On Error Resume Next
    oNetWork.MapNetworkDrive "Z:", "[URL="file://\\178.26.158.23\acquisoft"]\\178.26.158.23\acquisoft[/URL]", False, "Admin", "Admin"
    DoEvents
    MappageLecteurReseau = Err.Number = 0
End Function
Public Sub SupprimeLecteurReseau()
     Dim oNetWork As Object
    Set oNetWork = CreateObject("WScript.Network")
    oNetWork.RemoveNetworkDrive "Z:"
    DoEvents
End Sub

Utilisation:

If MappageLecteurReseau() then
If Dir("Z:\monfichier.txt")<>"" then
'J'ouvre mon fichier comme je veux
end if
end if

Note pour pouvoir supprimer (effacer le mappage) le lecteur reseau il faut qu'aucun de ses fichiers ne soit ouvert, ni même qu'une fenêtre de l'explorateur widnows soit ouverte sur lui.
bonne journée
A+

 

[Guichon57]

Re : Ouvrir un fichier sur un disque réseau protégé par un mot de passe

Bonjour,

Merci à toi Hasco, cela fonctionne très bien

Bonne journée

A+