sauvegarde d un repertoire complet vers un autre pour backup en cas de probleme

[ngexcel]

bonsoir

j ai pu grâce au forum et à beaucoup de patience de certaines personnes finir mon projet.

j ai maintenant besoin de sécuriser par une macro la copie complète de mon répertoire c:\test fitt
qui contient des fichiers excel et pdf vers le reseau t:\sauvegarde fitt


encore merci

 

[mapomme]

Re : sauvegarde d un repertoire complet vers un autre pour backup en cas de probleme

Bonsoir ngexcel,

Essayez le code suivant:

Sub BackUp()
Dim s As String
 s = "xcopy ""c:\test fitt"" ""t:\sauvegarde fitt"" /E /Y"
 Shell s, vbNormalFocus
End Sub

La première fois, il vous sera demandé, uniquement si t:\sauvegarde fitt n'existe pas, s'il s'agit d'un Fichier ou d'un Répertoire ?
Choisir la réponse correspondant à Répertoire; le répertoire sera créé à moins que vous n'ayez pas les droits de création de répertoire sur le réseau. Si t:\sauvegarde fitt existe déjà, rien ne vous sera demandé.

Dans la chaine s, les répertoires sont entourés de double guillemets. Ces doubles guillemets sont nécessaires car les chemins et noms de ces répertoires contiennent un ou des espaces.

nota : uniquement pour windows, pas pour Mac

 

[job75]

Re : sauvegarde d un repertoire complet vers un autre pour backup en cas de probleme

Bonjour ngexcel, mapomme, le forum,

Sub Sauvegarde()
On Error Resume Next
MkDir "t:\sauvegarde fitt" 'crée le répertoire s'il n'existe pas
CreateObject("Scripting.FileSystemObject").CopyFile _
"c:\test fitt" & "\*", "t:\sauvegarde fitt"
End Sub

Bonne journée.

 

[ngexcel]

Re : sauvegarde d un repertoire complet vers un autre pour backup en cas de probleme

Bonjour à tous
Merci pour les infos