Discussion :

[ddanie]

Bonsoir,

Je souhaiterais copier une feuille dans un nouveau classeur
et sauvegarder ce nouveau classeur sous un Nom donné par une variable
est-ce possible ?

Pour faire simple, Je veux remplacer "Classeur1.xls" par une variable
qui contiendra le Nom de Fichier à sauvegarder mais comment écrire le code ?
Merci

Code :

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

1
2
3
4
5
6
7
   Sheets("Feuil1").Select
    Sheets("Feuil1").Copy
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Mes documents\Classeur1.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
    Windows("FichierOrigine").Activate

[zazaraignée]

Ça devrait pouvoir ressembler à ça :

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
Sub CopierEtEnregistrerSous()
    Dim dlg As FileDialog
    Dim nomFichier As String
 
    ' Copier la feuille active
    ActiveSheet.Copy
 
    ' Afficher une boîte de dialogue Enregistrer sous
    Set dlg = Application.FileDialog(msoFileDialogSaveAs)
    With dlg
        .AllowMultiSelect = False
        If .Show = -1 Then
            ' enregistrer le fichier
            ActiveWorkbook.SaveAs Filename:=.SelectedItems(1)
        End If
    End With
    Set dlg = Nothing
End Sub

[ddanie]

C'est un premier pas, mais l' idéal serait que le Nom du nouveau Fichier
se mette automatiquement dans cette boite à partir d'une variable.
car j'ai plusieurs feuilles à copier ainsi et à sauvegarder
Exigeant n'est-ce pas ?

[zazaraignée]

Comprends-je que tu ne veux pas que l'utilisateur choisisse le nom du fichier et son emplacement ?

[ddanie]

J'ai la solution!!!
ton aide m'a mis sur la voie... après x essais CA MARCHE !!!

Code :

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

1
2
3
4
5
6
7
8
9
Sheets("Feuil1").Select
Sheets("Feuil1").Copy
Dim nomFichier As String
nomFichier = Worksheets("Feuil1").Cells(10, 8)
With Worksheets("Feuil1")
     ActiveWorkbook.SaveAs Filename:=nomFichier   'enrégistre le nouveau fichier
End With
 
Windows("FichierOrigine").Activate         'retourne au fichier précédent