Bonjour,

Je cherche à copier/coller une feuille (Saisie_vers_TBord) vers un nouveau fichier Excel dont le nom est donné par l'utilisateur dans un userform. Les noms des fichiers seront de type 01_N où encore 03_N etc etc ... jusque 12.

J'espère avoir été assez clair, je transmets mon code actuel:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
For Each Saisie_vers_TBord In ActiveWorkbook.Sheets
    Saisie_vers_TBord.Copy
    Set ActiveWorkbook = Workbooks.Add
    With ActiveWorkbook
        .Title = Me.NomFichier.Name
        .Subject = Saisie_vers_TBord.Name
        .SaveAs Filename:=Me.NomFichier.Name + ".xlsm"
 
    End With
Next
 
End Sub
Je vous remercie par avance !