Copie classeur excel choix du nom

[Francois73]

bonjour le forum

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

 

[Francois73]

Re : Copie classeur excel choix du nom

zut j'ai envoyé avant la fin de mon message

qui est : merci de votre aide toujours precieuse

 

[Pierrot93]

Re : Copie classeur excel choix du nom

Bonjour,

regarde peut être ceci :

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

bon après midi
@+

 

[Francois73]

Re : Copie classeur excel choix du nom

bonjour Pierrot

c'est exactement ce que je voulais
un trés grand merci
bon après midi