Discussion :

[Xorbane]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Philippe Tulliez]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Xorbane]

Merci beaucoup,
Résultat parfait,
xorbane

[Menhir]

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.

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Xorbane]

Salut,
Merci pour le conseil.
Cela fonctionne.
Xorbane