oui c'est encore moi
je voulais juste dire que j'ai trouvé le code qui est le suivant:
Sub saveas()
Dim vNomfichier As String
vNomfichier = ActiveSheet.Range("v2").Value
Range("v2").Select
Selection.NumberFormat = "@"
Range("v2").Value = ActiveSheet.Name
Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("v2").Value)
ActiveWorkbook.saveas Filename:="P:\DF\mdiop\vnomfichier", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub
merci et bonne journée à tout le monde