Copier des fichiers sur reseau

[ninos06]

salut les amis
je cherche comment je puisse copier 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

 

[kingfadhel]

Bonsoir, le forum,
à essayer

Sub Copier_Fichier()
Dim NomFichier As String
Dim Fichier
'Sélection du fichier à copier
Fichier = Application.GetOpenFilename()
If Fichier <> False Then
   NomFichier = Mid(Fichier, InStrRev(Fichier, "\") + 1)
   'Copie du fichier dans le repèrtoir spécifié \\nabil-aft\solde\
   FileCopy Fichier, "\\nabil-aft\solde\" & NomFichier
   MsgBox "Copie Terminée"
End If
End Sub