enregistrement d'une seule feuille

[Gilro]

Bonjour le Forum,

Est-il possible à partir d'un classeur comportant plusieurs feuilles de n'en enregistrer qu'une (comme avec 'enregistrer sous') dans un nouveau classeur ?
Merci d'avance.

Bonne journée.

 

[dg62]

Bonjour Gilro


a partir du menu Edition, il est possible de copier une feuille dans un autre classeur.

Edition / Déplacer ou copier une feuille /

 

[Bruce33]

Bonjour,
voici un code de macro qui peut t'être utile :

Sub SauveFeuilleActive()
'''---------------------------------------------------------------
'''   Sauvegarde de la feuille active dans un nouveau classeur
'''---------------------------------------------------------------
    Dim szNomFichier As Variant

    '''Demande nom du fichier (par défaut, le nom de la feuille)
    szNomFichier = Application.GetSaveAsFilename( _
        InitialFilename:=ActiveSheet.Name, _
        FileFilter:='Classeur Excel (*.xls), *.xls')
    If szNomFichier <> False Then '''szNomFichier reçoit False si on a cliqué sur Annuler
        '''Création du nouveau classeur avec copie de la feuille active
        ActiveSheet.Copy
        With ActiveWorkbook
            '''Sauvegarde
            .SaveAs Filename:=szNomFichier, FileFormat:=xlNormal
            '''Fermeture
            .Close
        End With
    End If
End Sub

Bon test !