Discussion :

[mulanzia2003]

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

[ouskel'n'or]

Tu peux reformuler ?

Je souhaiterai que dès que l'on modifie le Fichier1, il soit enregistré vers un répertoire bien particulier

Quelle que soit la modif ? Tu frappes sur une touche et "vlan !" le fichier est enregistré ?
Sous son nom ?

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.

Comment ça "il modifie mon fichier1" ?

Bref,
- mets ton code dans un module standard de ton fichier1,
- place-le dans Workbooks_Open de telle manière qu'il enregistre à l'ouverture ton fichier1 sous le nouveau nom ("J:\Funf_tec\Préventif FUNF\Archives\" & NomFichier & datejour & ".xls")
- ferme ton fichier1
Tu travailleras ainsi sous NomFichier
Inconvénient : si fichier1 n'a pas été modifié, il a malgré tout été enregistré sous son nouveau nom
Inconvénient : Si tu ouvres deux fois fichier1 le même jour, tu auras le message "NomFichier" existe déjà, voulez-vous l'écraser O/N ?"
Etc.
Essaie de nous éclairer sur ce que tu veux faire plus précisément

[mulanzia2003]

je pense que tu as trouvé la solution a mon problème.
Je n'avais pas pensé à l'enregistré à l'endroit dès l'ouverture du fichier.
C'est une bonne idée.
Tu as éclairé ma journée si triste à cause de ce temps si pourri.

Bonne journée