Discussion :

[Lufia]

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

[jfontaine]

Bonjour,


Je ferais quelque chose comme ca

Code :

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

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

[Lufia]

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 :

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
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

[pnoss-xl]

Bonjour
wrk.Close false

Philippe

[Lufia]

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

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