Purge et sauvegarde auto

jeanpierre

Nous a quitté

Repose en paix

• 31 Octobre 2008

• #2

Re : Purge et sauvegarde auto

Bonsoir flaneur,

Pas bien compris, ton fichier est aussi vide que ton USF.

Peux-tu préciser ?

Jean-Pierre

 

Vote positif 0 Vote négatif

flaneur

XLDnaute Junior

• 1 Novembre 2008

• #3

Re : Purge et sauvegarde auto

Merci pour ta réponse,
Oui l'usf est vide car je ne sais pas le remplir, tant qu'au fichier ,
j'ai supprimé des données d' entreprises.
la feuille "suivi" se rempli trés vite, et le fichier est
déja volumineux, donc je souhaiterai une sauvergarde soit par
selection 'date à date) soit automatiquement (ex; tous les mois)
et ceci sur la feuille de suivi uniquement, une fois la sauvegarde faite,
la selection serait supprimée du fichier d'origine.

 

Vote positif 0 Vote négatif

flaneur

XLDnaute Junior

• 1 Novembre 2008

• #4

Re : Purge et sauvegarde auto

je joins le fichier avec un exemple de ce qui pourrait etre le
fil de l'eau.

 

Pièces jointes

• fichier à sauvegarder.xls

  44 KB · Affichages: 75
• fichier à sauvegarder.xls

  44 KB · Affichages: 83
• fichier à sauvegarder.xls

  44 KB · Affichages: 87

Vote positif 0 Vote négatif

flaneur

XLDnaute Junior

• 1 Novembre 2008

• #5

Re : Purge et sauvegarde auto

Aprés recherche, j'ai trouvé un bon début;
Une sauvegarde en fichier texte de la feuille voulue.

Est il possible de faire cette sauvegarde tout les ans (sauv 2007/ sauv 2008...)
et de purger le fil de l'eau (de l'année sauvegardée) de cette meme feuille (suivi)

la je bloque completement,
toute aide me sera précieuse.

 

Pièces jointes

• fichier à sauvegarder.xls

  53.5 KB · Affichages: 55
• fichier à sauvegarder.xls

  53.5 KB · Affichages: 56
• fichier à sauvegarder.xls

  53.5 KB · Affichages: 60

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 1 Novembre 2008

• #6

Re : Purge et sauvegarde auto

Bonjour Flaneur, Jean-Pierre 🙂,
Si tu remplace FileFormat: = xlText par FileFormat:= xlExcel8, tu obtiendras un fichier Excel au lieu d'un txt.
Si tu veux mettre la date dans le nom du fichier, voici une solution:

Code:

Dim Chemin As String
Chemin = "C:\Sauvegarde du " & CStr(Day(Date)) & "_" & CStr(Month(Date)) & "_" & CStr(Year(Date)) & ".xls"
ActiveWorkbook.SaveAs Filename:=Chemin, FileFormat:=xlExcel8, CreateBackup:=False

Maintenant, faire une sauvegarde tous les ans en automatique, je pense que c'est plus simple de le faire manuellement... Si tu fait un test sur la date, il faut être sûr que le fichier sera ouvert le jour là...
Pour purger le fichier:

Code:

Do While Cells(3, 2) <> ""
Range("A3:J3").Delete
Loop

Bonne journée 😎

 

Vote positif 0 Vote négatif

flaneur

XLDnaute Junior

• 1 Novembre 2008

• #7

Re : Purge et sauvegarde auto

merçi JNP,

je vais essayer de l'adapter
en mettant un USF avec les fonctions,

Peux t'on determiner la plage à supprimer en fonction de l'année ?
A partir de la colonne B de la feuille suivi se trouve les dates ?

grace à vous j' avance.

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 1 Novembre 2008

• #8

Re : Purge et sauvegarde auto

Re le forum 🙂,
Si tu veux faire par rapport à la date:

Code:

Do While Cells(3, 2) < "01/01/08" 'Là tu mets la date où tu veux arrêter la purge
Range("A3:J3").Delete
Loop

Mais ça veux dire que tu auras des doublons dans tes sauvegardes, puisque tu n'auras pas tout purgé...
Tu peux aussi utiliser un InputBox pour choisir la date:

Code:

Dim DatePurge as Date
DatePurge = InputBox("Date pour la purge?")
Do While Cells(3, 2) < DatePurge
Range("A3:J3").Delete
Loop

Bonne journée 😎

 

Vote positif 0 Vote négatif

flaneur

XLDnaute Junior

• 1 Novembre 2008

• #9

Re : Purge et sauvegarde auto

Ok, je vais essayer d'adapter tout cela.

je te remercie pour ton aide.

 

Vote positif 0 Vote négatif