amelioration macro de sauvegarde avec chemin d'acces

Bonjour pakalom
peut être quelque chose comme ceci

[code]
Dim Chemin$, Fichier$
chemin = " c:\ pakalom\escapade\"
fichier = range("date")
ActiveWorkbook.SaveAs Chemin & "\" & Fichier

[code]

A+


edit: oui fausse manip

 . ???

@+

Sub Bouton4_QuandClic()
Réponse = MsgBox("Voulez-vous enregistrer ce classeur ?", vbYesNo)
If Réponse = vbYes Then
'possibilité de définir un nom de fichier grace à l'Inputbox
'Nom = InputBox("Donnez un nom de fichier !")

'Sinon code pour récupérer le nom d'origine
Nom = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
If Nom = "" Then
Exit Sub
Else
GoTo continu
End If
continu:
'défini le disque du répertoire
ChDrive "c"
'défini le répertoire
ChDir "c:\ pakalom\escapade\" 
'affiche la boite de dialogue enregistrer sous avec le répertoire défini et le nom du fichier
ActiveWorkbook.SaveAs Filename:=(Nom)
End If
End Sub