Enregistrer classeur avec nom variable et chemin variable

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:

---

Application.Thisworkbook.SaveAs Filename:= "c:\ton dossier\" & VariableNom

---

Voici ce que j'ai de fait jusqu'à maintenant :

Code:

---

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! :mrgreen:
Geneviève

Bonjour,


Je ferais quelque chose comme ca

Code:

---

1 2 3 4 5 6 7 8 9

Dim FileD As FileDialog   Set FileD = Application.FileDialog(msoFileDialogFolderPicker)   If FileD.Show = True Then   Application.ThisWorkbook.SaveAs Filename:=FileD.SelectedItems(1) & "\" & VariableNom   End If

---

En choisissant d'afficher un choix de répertoire plutôt qu'un enregistrer sous

Bonjour!

Ça fonctionne très bien! Je copie la feuille dans un nouveau classeur puisque je ne veux pas avoir toutes les feuilles.

Parcontre, à la fermeture du nouveau classeur, il me demande si je veux l'enregistrer. Comment dire par défaut de fermer sans enregistrer?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub CommandButton1_Click() Dim NoPost As String, VariableNom As String Dim FileD As FileDialog 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 = ThisWorkbook.Sheets("Rapport PostMortem").Range("C3").Value VariableNom = "Rapport PostMortem no " & NoPost   Set FileD = Application.FileDialog(msoFileDialogFolderPicker) If FileD.Show = True Then Application.ThisWorkbook.SaveAs Filename:=FileD.SelectedItems(1) & "\" & VariableNom End If wrk.Close End Sub

---

Merci beaucoup!!
Geneviève

Bonjour
wrk.Close false

Philippe

Oh je ne pensais pas que c'était si simple ;)

Merci beaucoup! Tout fonctionne maintenant très bien!!!
Geneviève