Sub test()
MyDir = "C:\"
W = "classeurB " 'peut correspondre au contenu d'une cellule
X = Sheets("cumul").Range("e4")
[COLOR="Red"]x= format(x,"dd mm yyyy")'[/COLOR]peut correspondre au contenu d'une cellule
Application.Dialogs(xlDialogSaveAs).Show MyDir & W & X
End Sub