VBA sauvegarder fichier à date prédefinie

Question

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



Configuration: Windows 7 / Internet Explorer 8.0

lermite222 · Answer

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)

VBA sauvegarder fichier à date prédefinie

1 réponse

Discussions similaires

Newsletters