au secours... copier un fichier sur le reseau

Question

Bonjour à tous, je suis au bord du sucide : je cherche à créer un code vb qui copie un de mes fichiers dans un répertoire d'une machine de mon reseau local.

par pitié aidez moi !!!

Ameth

so it shall be written ...

tahbre · Answer

bon je sais pas si c'est ce que tu attends, sinon n'en prend pas note, j'ai trouvé ça ds un bouquin:
Là le code supprime des données d'un répertoire existant C:\ini
copie des fichiers C:\windows\*.ini ds le repertoire C:\ini

private sub form_activate()

'tu mets en place un gestionnaire d'erreur
On Error GoTo TestErr
Dim Fic
'tu supprimes d'abord tous les fichiers du répertoire  
Kill"C:\ini\*.*"
'tu cherches le premier fichier ds le répertoire source
Fic=Dir("C:\windows\*.ini)
tu copies le premier élément
FileCopy"C:\windows"&Fic,"C:\INI"&Fic
'Tu répètes tant qu'il y a des éléments
While Fic<>""
'tu recherches l'élément suivant
Fic=Dir
'tu le copies ds le répertoire de destination
FileCopy"C:\windows"&Fic,"C:\INI"&Fic
'tu retourne au début de la boucle
Wend
Exit Sub
'en cas d'erreur
TestErr:
'tu continue à l'instruction suivante qui a provoqué l'erreur
Resume Next
End Sub

cs_amethys · Answer

Non ce n'etait pas exactement ça... mais merci qd même !!

so it shall be written ...

petitstagiaire · Answer

ce que je donne marche pour excel :
ActiveWorkbook.SaveCopyAs "\Serveur caca\Toto\Mes Documents\fic.xls"

kwisatz_haderach · Answer

Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
fs.MoveFile szSourcePath & selectedFile, szDestPath & selectedFile

avec szSourcePath = "c:\ton_repertoire_source"
et szDestPath = "\\nom_mahine\nom_partage\repertoire_cible"
et selectedFile = "mon_fichier.txt"

j'espère que tout cela t'aidera

kwisatz_haderach · Answer

bien sur à cause de l'encoding de ce site
il faut lire sur mon dernier message
double back-slash = simple back-slash
et quadruple back-slash = double back-slash

slikamyahmed · Answer

merci bpc

Au secours... copier un fichier sur le reseau

6 réponses

Discussions similaires