Discussion :

[Jonathan Raucy]

Bonjour,
J'utilise une macro pour "sauvegarder sous" automatiquement un fichier. J'aimerais que le nom du fichier soit "xxx" plus la date plus ce qu'il y à inscrit dans une cellule. J'ai essayé plusieurs chose mais en vain. Pouvez vous m'aider. Pour plus d'information voici ma macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Save()
'
' Save Macro
'
NomFichier = ActiveWorkbook.Name
    ChDir "R:\xxx\x"
    ActiveWorkbook.SaveAs Filename:= _
        "R:\xx\xxx\" & "xxx" & Date$ _
        , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

[Djohn]

Bonsoir,

Voici ce que je te propose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Save()
'
' Save Macro
'
NomFichier = ActiveWorkbook.Name 'je ne voie pas a quoi ca te sert ça ?
 
nomdufichier = "xxx" & Date$ & Range("a1") 'tu mets la cellule que tu veux
 
ChDir "R:\xxx\x"
ActiveWorkbook.SaveAs Filename:= _
"R:\xx\xxx\" & nomdufichier _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
 
End Sub

[Jonathan Raucy]

Bonjour,
Merci beaucoup c'est pile poile ce qu'il me fallais.
Cordialement,
Jonathan