Extraire une feuille de mon classeur dans un nouveau classeur

Bonjour,

Je souhaiterai extraire l'onglet "Rapport Ouvert", dans un nouveau Classeur en respectant les Mise en forme

car logiquement il y a des logo en haut que je ne peux pas laisser

dans le nouveau classeur je ne veux pas des bouton "consolider" et "RAZ"

je vous mets le programme en joint

11anomalie.xlsm (33.36 Ko)

Re,

Un début de réponse.

Pas de logo dans le fichier !?

Cdlt.

Public Sub Create_workbook()
Dim wb As Workbook
Dim sPath As String, sFile As String

    Set wb = ThisWorkbook
    sPath = ActiveWorkbook.Path & Application.PathSeparator
    sFile = "Rapport_Ouvert_" & Format(Now, "yyyy-mm-dd_hh-mm") & ".xlsx"

    wb.Worksheets("Rapport Ouvert").Copy

    With ActiveWorkbook
        .SaveAs sPath & sFile, 51
        .Close
    End With

End Sub

je le mets où ce code ?

car je voulais utilisé un bouton sur l'onglet "Rapport Ouvert"

Re,

Tu copie la procédure dans un module standard et tu crées un bouton (comme tu l'as fait dans ton précédent fichier).

Cdlt.

Re Bonjour,

Désoler pour la réponse tardive

je rencontre 2 soucis

le premier est que dans la copie je voudrait que les 3 boutons n’apparaissent pas .

et l'autre se sont des message je te montre ci-dessous avec des capture d'écran et je te mets.

Je te transmet également le projet Anomalie pour que tu constate part toi même.

merci encore de ta patience.

anomalie 01 anomalie02 anomalie03
1anomalie.xlsm (38.25 Ko)

Re bonjour,

finalement j'ai finalement trouvé la solution voila je mets mon fichier en pièce jointe si cela peu aider quelqu'un d'autre.

merci pour l'aide apporté.

36anomalie.xlsm (38.68 Ko)
Rechercher des sujets similaires à "extraire feuille mon classeur nouveau"