Bonjour,
Voici le problème auquel je suis confronté.
J'ai une série d'applicatif Access qui doivent à un certain moment se connecter à un serveur pour y lire des info's dans un fichier texte.
Pour accéder au server en question il faut entrer un login & mot de passe.
pour cela j'ai créer un racourci qui pointe vers l'adresse IP du server, il faut alors entrer le login et pw.
Je cherche à pouvoir intégrer dans mon code l'adresse, le login et le PW nécessaire pour établir ma connexion.
Existe-t-il une procédure pour établir une connexion ?
 
Merci pour votre aide

Bonjour Vinker,
 
Je suis nouveau sur le forum c'est pourquoi je ne te répond que maintenant.  
 
J'utilise cette fonction pour maper un disque réseau depuis pas mal de temps et j'en suis satisfait.
 
Il y a quatre parametres à passer lors de l'appel:
DriveMap: la lettre du lecteur (exemple X:\)
Path: Chemin du répertoire qui t'interesse sur le lecteur que tu map
user: le login de connection
password: le mot de passe
 
Function MapDisk(ByVal DriveMap As Object, ByVal Path As Object, ByVal user As String, ByVal password As String)
 
        'Déclaration des objets
        Dim objNet As Object
        Try
            'Instanciation des objets
            objNet = CreateObject("Wscript.Network" )
            'Vérifie si le lecteur ("H:" par exemple) existe
            Dim cdrive = My.Computer.FileSystem.GetDriveInfo(DriveMap)
            If Not cdrive.isready Then
                'il n'existe pas on le mappe
                objNet.MapNetworkDrive(DriveMap, Path, "false", user, password)
                'objNet.MapNetworkDrive(lettre,chemin de type "\\10.0.2.44\Partage",reconnection au démarrage du pc,utilisateur,mot de passe)
                'Il n'est pas obligatoire d'indiquer l'utilisateur et le mot de passe selon les droits du disque à monter
            Else
                'il existe alors on le démappe et on le remappe (si c'est le même lecteur permet de réactiver le disque)
                objNet.RemoveNetworkDrive(DriveMap, True)
                objNet.MapNetworkDrive(DriveMap, Path, "false", user, password)
            End If
        Catch err As System.Exception
            'Capture de l'erreur éventuelle
            MsgBox("Map->" + DriveMap + Path + " || " + err.ToString)
        End Try
        Return (DriveMap)
    End Function
 
ci-dessous, une fonction qui demap le disque réseau.
 
Function DeMapDisk(ByVal DriveMap As Object)
        Dim objNet As Object = CreateObject("Wscript.Network" )
        objNet.RemoveNetworkDrive(DriveMap, True)
        Return DriveMap
    End Function
 
Si cela peut t'aider.
 

Merci Westdl,
 
J'avais trouvé qqch d'approchant, mais ce que tu proposes est plus complet.
 
Merci