Zlopeck
XLDnaute Junior
Bonjour à toutes et tous
Pour enregistrer un fichier j'utilise le code suivant collé dans Workbook:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\SAUVEGARDE\COMPTES\comptes 2010.xlsb"
ActiveWorkbook.SaveAs Filename:="Z:\COMPTES\comptes 2010.xlsb"
Application.DisplayAlerts = True
End Sub
Il fonctionne parfaitement mais j'aurais aimé pouvoir remplacer automatiquement "comptes 2010.xlsb" par le nouveau nom du fichier, à savoir "comptes 2011.xlsb" sans avoir à intervenir au niveau du code à chaque changement de nom.
J'ai hélas eu la désagréable expérience d'un tel fichier écrasé parce que j'avais totalement oublié d'intervenir au niveau du code de sauvegarde.
Ma question est donc : Par quoi remplacer la partie du code "comptes 2010.xlsb" pour obtenir " "D:\SAUVEGARDE\COMPTES\"nom du fichier".xlsb"
Merci d'avance pour votre aide
Pour enregistrer un fichier j'utilise le code suivant collé dans Workbook:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\SAUVEGARDE\COMPTES\comptes 2010.xlsb"
ActiveWorkbook.SaveAs Filename:="Z:\COMPTES\comptes 2010.xlsb"
Application.DisplayAlerts = True
End Sub
Il fonctionne parfaitement mais j'aurais aimé pouvoir remplacer automatiquement "comptes 2010.xlsb" par le nouveau nom du fichier, à savoir "comptes 2011.xlsb" sans avoir à intervenir au niveau du code à chaque changement de nom.
J'ai hélas eu la désagréable expérience d'un tel fichier écrasé parce que j'avais totalement oublié d'intervenir au niveau du code de sauvegarde.
Ma question est donc : Par quoi remplacer la partie du code "comptes 2010.xlsb" pour obtenir " "D:\SAUVEGARDE\COMPTES\"nom du fichier".xlsb"
Merci d'avance pour votre aide