Copier des fichiers sur reseau

ninos06 · 22 Décembre 2017

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 · 22 Décembre 2017

Bonsoir, le forum,
à essayer

VB:

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

Copier des fichiers sur reseau

ninos06

XLDnaute Nouveau

kingfadhel

XLDnaute Impliqué

Discussions similaires