je cherche à enregistrer une copie d'un classeur dans le meme dossier que le premier mais j'aimerais choisir son nom d'enregistrement
le code vba ci dessous ne fonctionne pas car il me demande si je veux écraser le fichier source
Sub SaveAChoisir()
ActiveWorkbook.SaveAs
Application.Dialogs(xlDialogSaveAs).Show
End Sub
l'idéal serait l'ouverture d'une box me demandant quel nom je désire pour enregistrer la copie
Sub testt()
Dim nom As String
nom = InputBox("quel nom ?")
If nom <> "" Then
With ThisWorkbook
.SaveCopyAs .Path & "\" & nom & ".xlsm"
End With
End If
End Sub