Copier des données d'un fichier vers un autre situé dans un serveur dossier

[zombe]

Salut le forum

J'ai un code avec lequel je copiais les données de mon textbox vers une feuille du même classeur.
Aujourdh'ui la donne a changé.
En lieu et place du même classeur, les données doivent être coller sur un fichier qui se trouve dans un serveur de dossier. le chemin d'accès du fichier

"W:\GESTION_VISA_CHEQUE\BASE_VISA.xlsx"

Ce fichier est toujours fermé.
Avec mon ancien code (après essais infractueux de ma part)ci-dessous comment réadapter cela:

Private Sub bt_add_Click()
Dim P As Object 'déclare la variable P (onglet Parametre)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim I As Integer 'déclare la variable I (Incrément)
Dim ws As Workbook
If Environ("UserName") <> Me.TextBox1.Value Then
MsgBox "Vous ne pouvez modifier que les informations de votre code user"
Exit Sub
End If
Set ws = Workbooks("W:\GESTION_VISA_CHEQUE\BASE_VISA.xlsx")
Set P = ws.Sheets("BASE_DE_DONNEES") 'définit l'onglet P
DL = P.Cells(Application.Rows.Count, 2).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 2 (=B) de l'onglet P
Set PL = P.Range("B6:B" & DL) 'définit la plage PL
'verification des identifiants
If Application.WorksheetFunction.CountIf(PL, TextBox1.Value) > 0 Then
    MsgBox ("Ce user est déjà enregistré")
    Exit Sub
End If
Application.DisplayAlerts = False
    Workbooks.Open "W:\GESTION_VISA_CHEQUE\BASE_VISA.xlsx"
    With Sheets("BASE_DE_DONNEES")
    Application.DisplayAlerts = True
For I = 1 To 6 'boucle sur les 6 textboxes
    'envoie la valeur de la textbox dans la cellule ligne DL+1, colonne I+1 de l'onglet P
    P.Cells(DL + 1, I + 1).Value = Me.Controls("TextBox" & I).Value
    Me.Controls("TextBox" & I).Value = ""
Next I
End With
End Sub

N.B:le code rémanié devra permettre d'ouvrir le fichier de destination et coller les données et le refermer.
- aussi j'avais essayé de bidouller en ma manière mais ca ne marche pas.
Vu que le fichier de destination se trouve dans notre serveur, j'ai pas voulu joindre de fichier