Enregistrer sous : comment récupérer dans une variable le nom du fichier sélectionné

Bonjour,

Je copie un onglet dans un nouveau fichier. J'ouvre une boite de dialogue pour que l'utilisateur "enregistre sous" le nouveau fichier avec un nom que je propose. s'il clique sur OK, aucun problème car ayant proposé le nom du fichier, je l'ai dans une variable.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub EditionplanningCPFT() Dim NomFeuilOrigine, NomFeuilDest, NomClasseurCPFT As String Dim objWorkbookSource, objWorkbookCible As Workbook   '...   Application.DisplayAlerts = False On Error Resume Next ' copie l'onglet dans un nouveau classeur Worksheets(NomFeuilDest).Copy Application.Dialogs(xlDialogSaveAs).Show (NomClasseurCPFT + ".xlsx") With ActiveWorkbook   'ferme le nouveau classeur pour revenir dans le classeur intial .Close SaveChanges:=False End With 'Efface l'onglet copié dans le classeur intial Worksheets(NomFeuilDest).Delete Err.Clear Application.DisplayAlerts = True 'réouvre le nouveau classeur et maintient le classeur initial derriére Set objWorkbookSource = Application.Workbooks.Open(NomClasseurCPFT + ".xlsx") Worksheets(NomFeuilDest).Activate End sub

---

Par contre, si l'utilisateur sélectionne via la boite de dialogue un classeur pré-existant (i-e change le nom) puis accepte de remplacer le fichier préexistant, je ne peux pas ré-ouvrir le classeur... car je n'ai pas récupéré le nom sur lequel l'utilisateur a cliqué

question : est-il possible de récupérer le nom du classeur (et le chemin d'accès) et si oui comment modifier le code?

Merci

Bonjour,
Je sais pas comment récupérer le nom du classeur sélectionné à l'aide de l'instruction Application.Dialogs(xlDialogSaveAs)
En revanche, tu pourrais utiliser la fonction GetSaveAsFilename pour récupérer ce nom

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub t() Dim FileName As String Dim FullName As Variant FileName = Format(Date, "yyyy-mmdd") & " - myWorkbook" shtSales.Copy ' Copie de la feuille dont le CodeName est shtSales vers un nouveau classeur FullName = Application.GetSaveAsFilename(InitialFileName:=FileName, fileFilter:="Excel Files (*.xlsx), *.xlsx") If FullName <> False Then ActiveWorkbook.SaveAs FullName ' Sauve le classeur End If End Sub

---

Petite remarque
Dans les deux lignes d'instructions ci-dessous, seule la dernière variable de chaque ligne est réellement typée. Les autres sont de type Variant

Code:

---

1 2	Dim NomFeuilOrigine, NomFeuilDest, NomClasseurCPFT As String Dim objWorkbookSource, objWorkbookCible As Workbook

---

A lire Utiliser les variables en VBA Excel et tout particulièrement le chapitre II. Les types de données

Merci beaucoup,
Résultat parfait,
xorbane

Au lieu d'utiliser Dialogs(xlDialogSaveAs), utilise GetSaveAsFilename et SaveAs. Ce sera bien plus simple pour toi.

Pour l'utilisateur, ce serait transparent mais pour toi le contrôle serait meilleur.
Entre autre, tu pourrais vérifier si l'utilisateur souhaite vraiment enregistrer et sous quel nom avant de procéder véritablement à l'enregistrement.

Citation:

---

question : est-il possible de récupérer le nom du classeur (et le chemin d'accès) et si oui comment modifier le code?

---

Etant donné que Dialogs(xlDialogSaveAs) ne peut agir que sur le classeur actif, il suffit, après sa ligne de code, de récupérer son chemin et son nom par :

Code:

---

1 2	Chemin = ActiveWorkbook.Path Nom = ActiveWorkbook.Name

---

Salut,
Merci pour le conseil.
Cela fonctionne.
Xorbane