Lier des fichiers

Bonsoir à tous

Je cherche à "externaliser" un onglet de mon fichier nommé WISS.

Actuellement dans le code ci après je récupère les données de l'onglet "RENSEIGNEMENTS" qui se trouve à l'intérieur du fichier WISS. J'aimerai que cette onglet ne soit plus dans le fichier WISS, mais qu'il soit dans le fichier RENS dont le chemin serai:

C:\Users\ggetsandrine\Documents\POOL\RENS

Ci dessous le code que j'ai besoin de modifier:

Private Sub CommandButton1_Click()
    Dim Rep As Byte, I As Byte
    If Me.TextBox1.Value = "" Then Exit Sub

    With Sheets("RENSEIGNEMENTS").Range("a2:a65536")
        Set C = .Find(Me.TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
        If Not C Is Nothing Then
            UserForm3.TextBox1.Value = UserForm2.TextBox1.Value
            Unload UserForm2
            UserForm3.TextBox1.Locked = True
            For I = 1 To 5
               UserForm3.Controls("TextBox" & I).Value = C.Offset(0, I - 1)
            Next I
            For I = 1 To 22
                If C.Offset(0, I + 4) = "X" Then
                    UserForm3.Controls("CheckBox" & I) = True
                End If
            Next I
            Range("H12").Value = UserForm3.TextBox1
            Range("E15").Value = UserForm3.TextBox2
            Range("E18").Value = UserForm3.TextBox3
            Range("E21").Value = UserForm3.TextBox4
            Range("D48").Value = UserForm3.TextBox5
            Range("M27").Value = UserForm3.CheckBox1
            Range("N27").Value = UserForm3.CheckBox2
            Range("O27").Value = UserForm3.CheckBox3
            Range("M28").Value = UserForm3.CheckBox4
            Range("N28").Value = UserForm3.CheckBox5
            Range("O28").Value = UserForm3.CheckBox6
            Range("M29").Value = UserForm3.CheckBox7
            Range("N29").Value = UserForm3.CheckBox8
            Range("O29").Value = UserForm3.CheckBox9
            Range("M30").Value = UserForm3.CheckBox10
            Range("M31").Value = UserForm3.CheckBox11
            Range("N31").Value = UserForm3.CheckBox12
            Range("M32").Value = UserForm3.CheckBox13
            Range("N32").Value = UserForm3.CheckBox14
            Range("O32").Value = UserForm3.CheckBox15
            Range("M33").Value = UserForm3.CheckBox18
            Range("N33").Value = UserForm3.CheckBox19
            Range("M34").Value = UserForm3.CheckBox16
            Range("N34").Value = UserForm3.CheckBox17
            Range("M35").Value = UserForm3.CheckBox20
            Range("N35").Value = UserForm3.CheckBox21
            Range("P28").Value = UserForm3.CheckBox22

            UserForm3.Show
            ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
        False

        Else
            Rep = MsgBox("Vérifier le matricule ?", vbYes + vbQuestion, "Personnel Inconnu")
            If Rep = vbYes Then UserForm3.TextBox1.Value = UserForm2.TextBox1.Value: Unload UserForm2: UserForm3.Show Else Exit Sub
        End If
    End With
End Sub

Merci pour votre aide et vos idées

une méthode brute :

créer une feuille 2 dans le fichier Wiss.xks qui sera la réplique de RENS.xls

chaque cellule de feuille 2 est liée à la cellule correspondante de RENS.xls (par un copier/collagespécialavecliaison)

toute saisie dans RENS est répercutée dans Wiss

ceci fonctionne si ton objectif est séparer les rens de wiss, mais n'allège pas le fichier Wiss

bgrvfe