Bonjour,
j'explique mon problème :
J'ai créé un fichier 1 Excel qui s'ouvre à partir d'un fichier général.
Je souhaiterai que dès que l'on modifie le Fichier1, il soit enregistré vers un répertoire bien particulier.
C'est le code que j'ai mis dans Thisworkbook. Le problème est que si j'enregistre manuellement, il me modifie mon fichier1. En effet mon code ne s'effectue seulement à la fermeture du fichier.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Workbook_BeforeClose(Cancel As Boolean) Dim datejour As String NomFichier = ActiveWorkbook.Name datejour = Format(Sheets(1).Range("B6"), "d_mmmm_yyyy") ActiveWorkbook.SaveAs Filename:= _ "J:\Funf_tec\Préventif FUNF\Archives\" & NomFichier & datejour & ".xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub
Quelqu'un a t-il une solution ???
Partager