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.

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
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.

Quelqu'un a t-il une solution ???