Exporter une feuille dans un nouveau classeur Excel

Bonsoir à tous,

je souhaite incrémenter le nom de la feuille exportée dans un nouveau classeur.

Code :

sub dupliquerFeuilDansNouveauClasseur ()

Dim nomFiche As string
nomFiche = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name " " - " & ActiveSheet.Name & " .xlsx"

ActiveSheet.Copy
ActiveWorkbook.SaveAs nomFiche

'pour incrémenter le nom du classeur????

End Sub

Quelqu'un peut-il m'aider?

A+

Juju

Bonjour

Incrémenter en fonction de quoi?

bonjour,

en fait pour incrémenter le nom classeur. Par exemple fiche001, fiche002, etc.

Juju

Voir ce fil qui semble répondre à la demande, à adapter bien sûr.

https://forum.excel-pratique.com/excel/incrementation-d-un-pdf-a-l-enregistrement-166096

Bonsoir Yal_Excel,

je n'arrive pas à faire marcher le code.

J'ai fait ceci : (joint le fichier dont la feuille est à exporter dans un nouveau classeur)

Dim num%, Fiche$, nomFiche$, chemin$
Dim ws As Workbook
nomFiche = Fiche & num & ".xlsx"
chemin = ActiveSheet.Name & ".xlsx"
Worksheets("Feuil2").Select
ActiveSheet.Copy
If Dir(nomFiche) <> "" Then num = num + 1
ActiveWorkbook.SaveAs

cela marche mais le nom de fichier est "classeur1, classeur2, classeur3, etc. (l'incrémentation est faite)

Je souhaite que le nouveau classeur soit nommé avec un nom prédéfini (exemple : fichier1, fichier2, etc.)

Merci à l'avance et bon réveillon

Juju

Envoie plutôt le classeur xlsm où tu as enregistré la macro.

Bonsoir yal_excel et à tous,

"Meilleurs vœux pour cette nouvelle année, surtout la santé! "

Pour revenir à notre sujet, j'ai trouvé la solution en cherchant dans le forum et en combinant certains codes. (Cf. code ci-après)

Merci beaucoup yal-excel.

Et j'espère ce que j'ai fait pourra aider d'autres.

Juju

Private Sub CommandButton7_Click()

    Dim chemin$, racine$, fichier$, maxi%
    With Worksheets("Feuil2")
    chemin = "C:\Users\Julia\Documents\Bjn Bionet\"     'dossier à adapter
    racine = "Fiche"   'à adapter
    fichier = Dir(chemin & "*.xlsx")  '1er fichier du dossier
    While fichier <> ""
        If fichier Like racine & "###.xlsx" Then
            If val(Mid(fichier, Len(racine) + 1)) > maxi Then maxi = val(Mid(fichier, Len(racine) + 1))
        End If
        fichier = Dir    'fichier suivant
    Wend
    .SaveAs chemin & racine & Format(maxi + 1, "000")   'enregistrement avec incrémentation du nom fichier
    End With

   ActiveWorkbook.Close

End Sub