Sélectionner des données sur un autre fichier

Bonjour,

Voilà, j'utilise un fichier avec un système d’authentification. Actuellement, le fichier va chercher les données dans la feuille "membres" du fichier ouvert.

Je voudrai que maintenant, le système va chercher les informations vers ici par exemple: "G:\Commun\GESTION DES STOCKS\GDS\BASE DE DONNEES\MEMBRES.xlsm'!membres".

Voici le code en question:

Option Explicit
Private Sub CommandButton1_Click()

'déclaration de variable
Dim mop_de_passe As String
Dim role As String

On Error Resume Next

'rechercher le mot de passe et le role
mop_de_passe = WorksheetFunction.VLookup(Me.Txt_utilisateur, Sheets("membres").Range("B:D"), 2, 0)
role = WorksheetFunction.VLookup(Txt_utilisateur, Sheets("membres").Range("b:d"), 3, 0)

If mop_de_passe = Txt_motdepasse And role = "Admin" Then 'controler si c'est l'administrateur

    Sheets("membres").Visible = True
    Sheets("journal des sorties").Visible = True
    Sheets("journal des entrées").Visible = True
    Sheets("etat des stocks").Visible = True
    Sheets("journal des sorties").Visible = True
    Sheets("inventaire").Visible = True
    Sheets("tutoriel").Visible = True
    Sheets("tutoriel++").Visible = True
    Sheets("login").Visible = 2

ElseIf mop_de_passe = Txt_motdepasse And role = "User" Then 'controler si c'est un utilisateur

    Sheets("journal des sorties").Visible = True
    Sheets("tutoriel").Visible = True
    Sheets("login").Visible = 2

ElseIf mop_de_passe = Txt_motdepasse And role = "User+" Then 'controler si c'est un utilisateur

    Sheets("journal des sorties").Visible = True
    Sheets("journal des entrées").Visible = True
    Sheets("etat des stocks").Visible = True
    Sheets("tutoriel").Visible = True
    Sheets("login").Visible = 2

Else

    MsgBox "L'utilistateur ou le mot de passe est incorrect!"

End If

'ajouter un message d'accueil dans contenue.
Sheets("contenue").Range("s2") = "Bonjour " & role & " " & Txt_utilisateur

'vider les zones de texte du formulaire.
Txt_utilisateur = ""
Txt_motdepasse = ""

End Sub

Private Sub Txt_motdepasse_Change()

End Sub

Merci d'avance les amis!

Personne pour m'informer?

Slt johnnya,

essaie d'ajouter un truc du genre:

 Dim sPath As String, sFile As String
    Dim wb As Workbook

    sPath = "G:\Commun\GESTION DES STOCKS\GDS\BASE DE DONNEES\"
    sFile = sPath & "MEMBRES.xlsm"
    Set wb = Workbooks.Open(sFile)

aprés tu travailles avec wb par exemple:

mop_de_passe = WorksheetFunction.VLookup(Me.Txt_utilisateur, wb.Sheets("membres").Range("B:D"), 2, 0)
role = WorksheetFunction.VLookup(Txt_utilisateur, wb.Sheets("membres").Range("b:d"), 3, 0)

je pense que tu vas pas avoir de difficultés.

Avec les deux fichiers en exemple se serait plus simple pour te proposer une solution qui fonctionne...