Copie de fichier sur reseau

salut les amis

je cherche comment je puisse copie mes fichiers qui se trouve dans un PC \\nabil-aft\solde

a un autre PC dans un répertoire nommé C:\data\

le macro ci dessous me permet de copier le contenu d'un répertoire à un autre qui se trouve

dans la mème machine

Sub CopyFolder(folderpath As String, destfolderpath As String)

Dim fso As Object

Dim fld As Object

Set fso = CreateObject("Scripting.FileSystemObject")

Set fld = fso.GetFolder(folderpath)

fld.Copy destfolderpath

End Sub

Sub nabil()

Call CopyFolder("c:\solde", "d:\1")

End Sub

j’attend votre aide

MERCI