VBA sauvegarder fichier à date prédefinie

Fermé
jkm0032
Messages postés
5
Date d'inscription
jeudi 15 juillet 2010
Statut
Membre
Dernière intervention
1 octobre 2014
- 15 juil. 2010 à 12:22
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
- 15 juil. 2010 à 16:10
Bonjour,

j'aimerais créer une VBA sur excel me permettant à partir d'un fichier qui s'actualise quotidiennement avec des cours de bourse d'en faire une sauvegarde chaque fin de mois en modifiant la date par exemple (280610), (280710) ainsi de suite...pour hsitoriser mes fichers et pouvoir créer des reporting...est ce possible????

Merci pour votre aidre,

Je ne connais pas la VB à faire même en enregistrement automatique, je vois pas comment faire



1 réponse

lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 193
Modifié par lermite222 le 15/07/2010 à 16:11
Bonjour,
Un exemple à mettre dans un module public,
Public Sub Backup() 
    Dim E As Integer, NomFich As String, FichPath As String 
    If Day(Date) = 28 Then 'Vérifie si ont est le 28 du mois 
        'Crée le nom 
        'Le jour 
        NomFich = Right("0" & Day(Date), 2) 
        'Le mois 
        NomFich = NomFich & Right("0" & Month(Date), 2) 
        'L'année 
        NomFich = NomFich & Right(Year(Date), 2) 
        FichPath = "C:\Répertoir\" & NomFich & ".xls" 
        'Vérifie si le fichier à déjà été sauver. 
        If Dir(FichPath) = "" Then 
        'Le fichier n'existe pas 
        'Sauve une copie dans l"état actuel 
            ActiveWorkbook.SaveCopyAs FichPath 
        End If 
    End If 
End Sub

Ensuite, ça dépend si tu veux le sauver quand tu ouvre le classeur ou quand tu le ferme.
Si Quand tu l'ouvre...
A mettre dans le module de ThisWotkBook
Private Sub Workbook_Open() 
    Backup 
End Sub

Si quand tu le ferme
Private Sub Workbook_BeforeClose(Cancel As Boolean) 
    Backup 
End Sub

Attention, ça ne sauve pas le classeur ouvert, tu dois le sauver comme d'habitude
A+

L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
0