Sauvegarde dossier "mes documents"

[ADELINE]

bonsoir à tout le forum

je voudrais faire une sauvegarde de 'mes documents' vers un autre dossier.
est ce possible de le faire par une macro ?
merci de vos réponses..
Adeline

 

[MichelXld]

bonjour Adeline

ce lien pourra peut etre t'aider , en adaptant juste le chemin du bureau


Lien supprimé

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

bon dimanche
MichelXld

 

[adeline]

bonsoir le forum
bonsoir MichelXLD

Merci pour cette réponse rapide, je vais de ce pas le tester...

Bonsoie et encore merci pour tout.

Adeline

 

[adeline]

bonsoir à tout le forum

suite à la précedente macro, je l'ai modifié en :

( ''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\\Adeline\\mes documents'
Destination = 'C:\\mon Repertoire'

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

End Sub'')

-1) pourriez-vous faire en sorte que les fichiers soient ecrasés
ou mises à jour ; ou même créer une nouvelle copie .!!
car il detecte des fichiers existant et stoppe la manipulation.

merci d'avance
adeline

 

[MichelXld]

bonjour Adeline

as tu essayé en remplaçant False par True ?


bon apres midi
MichelXld

 

[adeline]

bonjour à tout le forum
et merci à MichelXLD
Effectivement, avec cette modification cela va beaucoup mieux.
Bien qu'1 fois sur deux, la mise à jour se fait partiellement dans les sous dossiers....
Mais maintenant ma question est :
est-il possible d'inserer un code pour une sauvegarde automatique.
- 1 fois par mois et 1 fois par semaine
pour cela je ferais 2 macros bien sùr...
Bien à vous
Adeline

 

[MichelXld]

bonjour Adeline

je ne suis pas sur que ce soit vraiment adapté , mais tu pourrais essayer d'utiliser le planificateur de taches de Windows pour ouvrir ton classeur à la fréquence souhaitée , en ayant inséré la macro de copie dans l'evenement d'ouverture du classeur

Private Sub Workbook_Open()


bonne soiree
MichelXld

 

[adeline]

Bonsoir MichelXLD
Bonsoir le forum

Je ne suis pas sûre d'avoir bien compris : l'insération de la macro dans l'évènement.......
Pourriez-vous me détailler un peu plus la méthode.
Encore merci

 

[MichelXld]

bonsoir Adeline

j'espere que cet exemple détaillé répondra à ta demande


bonne soiree
MichelXld [file name=EvenementOpenThisWorkbook.zip size=18503]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EvenementOpenThisWorkbook.zip[/file]

 

[adeline]

Bonsoir MichelXLD

Merci de ta réponse éclair, c'est vraiment sympa de ta part.
Il ne me reste plus quà adapter tout ça...
Encore merci pour tout et bonne soirée
Adeline