Sauvegarde dossier "mes documents"

M

MichelXld

XLDnaute Barbatruc

• 15 Mai 2005

• #2

bonjour Adeline

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


Lien supprimé

Code:

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

 

Vote positif 0 Vote négatif

A

adeline

Guest

• 17 Mai 2005

• #3

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

 

Vote positif 0 Vote négatif

A

adeline

Guest

• 21 Mai 2005

• #4

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 21 Mai 2005

• #5

bonjour Adeline

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


bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

A

adeline

Guest

• 22 Mai 2005

• #6

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 22 Mai 2005

• #7

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

 

Vote positif 0 Vote négatif

A

adeline

Guest

• 23 Mai 2005

• #8

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 23 Mai 2005

• #9

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]

 

Pièces jointes

• EvenementOpenThisWorkbook.zip

  18.1 KB · Affichages: 182

Vote positif 0 Vote négatif

A

adeline

Guest

• 23 Mai 2005

• #10

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

 

Vote positif 0 Vote négatif