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

A voir également:

VBA sauvegarder fichier à date prédefinie
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Ouvrir fichier .bin - Guide

1 réponse

Réponse 1 / 1

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
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)

Discussions similaires

comment donner les droits sur fichier partage

Pix

Chemin Logo du site de la Cité de l'espace

Discussions similaires

Newsletters