Bonjour le Forum!

Et oui encore une fois je me tourne vers vous! Voici ce que je voudrais faire:
J'ai un classeur qui contient une feuille avec des données. Lorsque l'utilisateur appuie sur un bouton situé dans cette feuille, je veux qu'un nouveau classeur s'ouvre et que la feuille soit copiée dans le nouveau classeur (jusque là, ça va bien!). Ensuite, je souhaite attribuer un nom précis accompagné d'une variable au classeur avant de faire afficher la boite enregistrer sous pour que l'utilisateur détermine où il veut enregistrer le fichier. Bref, une fois que la feuille est copiée dans le nouveau classeur il faut que:
1- Je change le nom du classeur pour "Rapport Post-mortem no " & NoPost
2- Je donne le choix du chemin où enregistrer le fichier à l'utilisateur

Les seuls codes que j'ai trouvé sont applicable à des cas où le chemin est prédéterminé du genre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Application.Thisworkbook.SaveAs Filename:= "c:\ton dossier\" & VariableNom
Voici ce que j'ai de fait jusqu'à maintenant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click()
Dim wrk As New Workbook
Dim NoPost As String
Set wrk = Application.Workbooks.Add(1)
ThisWorkbook.Sheets("Rapport PostMortem").Copy Before:=wrk.Sheets(1)
Application.DisplayAlerts = False
wrk.Sheets("Feuil1").Delete
Application.DisplayAlerts = True
NoPost = Range("C3").Value
'Application.ThisWorkbook.Name = "Rapport Post-mortem no " & NoPost
Application.Dialogs(xlDialogSaveAs).Show
Application.ThisWorkbook.Close
End Sub
Est-ce réalisable?
Merci encore une fois de votre aide!
Geneviève