Copier & coller fichier

[Temjeh]

Bonjour à tous

J'aimerais savoir si je peut par macro copier/coller tous les fichiers d'un directory vers un autre

ex: mes fichiers sont dans mon C:\\Program Files\\.... je cherche à faire un genre de backup automatique. Il les copies en D:\\Program Files\\...

Merci

Temjeh

 

[MichelXld]

bonjour Temjeh

j'espere que ces 2 exemples pourront t'aider

Lien supprimé

Lien supprimé


bonne journée
MichelXld

 

[Temjeh]

WoW

Merci beaucoup encore une fois Michel bravo

C'est impeccable!!!

Temjeh

 

[jojo2006]

Re : Copier & coller fichier

bonjour pourquoi les liens ne marchent pas?

pourtant je suis bien inscrit.

merci à vous

 

[Temjeh]

Re : Copier & coller fichier

Bonjour

Je ne sais pas pourquoi ces liens ne fonctionnent plus mais voici leur essence:

Sub copierRepertoires_Et_SousRepertoires()
'activer la reference Microsoft scripting Runtime
Dim Fso As Scripting.FileSystemObject
Dim Source As String, Destination As String

Set Fso = CreateObject("Scripting.FileSystemObject")

Source = "C:\Documents and Settings\michel\Mes documents"
Destination = "D:\monRepertoire"

'False/True option pour écraser les fichiers
Fso.CopyFolder Source & "\*", Destination, False
Fso.CopyFile Source & "\*", Destination, False

End Sub

A+

Temjeh