HELP ! macro enregistrer sous....

[joums]

Bonjour à tous,

Je souhaite effectuer un "enregistrer sous" par macro, le chemin et le fichier sont 2 variables situées dans une cellule
Variable 1 : chemin = cellule B4
Variable 2 : nom à donner au fichier = cellule B5

Je bloque complétèment.
Voici le code que j'ai commencé

Dim S1 As String 'Nom de la variable
S1 = Sheets("Feuil1").Range("B4").Value 'valeur de la variable
Dim nomdefichier 'Nom de la variable
nomdefichier = Sheets("Feuil1").Range("B5").Value 'valeur de la variable

Sheets("Feuil1").Activate 'Se rendre sur la page a enregistrer
ActiveSheet.Copy 'copy..

ActiveSheet.SaveAs Filename:= _
       "D:\TEST\" & S1 & "\" & nomdefichier & ".xls", _
        FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

Merci de votre aide,

 

[kjin]

Re : HELP ! macro enregistrer sous....

Bonjour,

Sub sauve()
Dim S1 As String, fichier As String
With Sheets("Feuil1")
    S1 = .Range("B4").Value
    fichier = .Range("B5").Value
    .Copy
    ActiveWorkbook.SaveAs ("D:\TEST\" & S1 & "\" & fichier & ".xls")
    'Activeworkbbok.Close
End With

End Sub

A+
kjin

 

[joums]

Re : HELP ! macro enregistrer sous....

Bonsoir,

Merci pour votre réponse,
Je vais essayer le code, sur mon fichier.
Quel était mon erreur ?
est-ce les 2 dernieres lignes de codes que j'ai mis en trop ?
et/ou ma synthaxe de code qui n'était pas bon?

Bonne soirée