Discussion :

[Jonathan Raucy]

Bonjour,
J'utilise une macro pour sauvegarder mon fichier Excel (qui est en lecture seul) sur le réseau. J'aimerais que dans le titre de l'enregistrement s'impute automatiquement la date de l'enregistrement de ce dernier.
Pour info voici ma Macro.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub Save()
'
' Save Macro
'
' Touche de raccourci du clavier: Ctrl+s
'   
ChDir "D:\Nouveau dossier"
    ActiveWorkbook.SaveAs Filename:="D:\Nouveau dossier\toto.xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    Range("G21").Select
End Sub

[Jonathan Raucy]

Voici la solution si des fois quelqu'un serais dans le même petrin que moi.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub Save()
'
' Save Macro
' Macro enregistrée le 30/01/2008 par raucyj
'
' Touche de raccourci du clavier: Ctrl+s
'
NomFichier = ActiveWorkbook.Name
    ChDir "R:\xxxxxxxx\xxxxxxx\xxxxxxx\xxxx xxxx"
    ActiveWorkbook.SaveAs Filename:= _
        "R:\xxxxxx\xxxxxx\xxxxxx\xxxxxx\Bxxxxx xxx\Ixxxxxxxn\" & "xx" & Date$ _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub