VBA sauvegarder fichier à date prédefinie

jkm0032 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   -
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:

1 réponse

Réponse 1 / 1
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
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