[XL-2010] Création fichier via Userform

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:

---

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 ! :)

met des balises , ensuite utilise une msgbox ca sera plus simple et plus rapide pour ton objectif

Salut, bis repetita placent ..... Balise ton code STP

Excusez moi, pour les balises, je ne savais pas..

Ok pour le MsgBox cependant, je ne sais pas tellement comment l'utiliser .. Je remets mon code avec les balises.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Option Explicit   Private Sub Creer_Fichier_Click()   End Sub   Private Sub valider_click()   Dim valider As Control Dim Saisie_vers_TBord As Sheets Dim ActiveWorkbook As Workbook   'Test d'ajout de la feuille avec un nom dans un classeur neuf 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

---

En vous remerciant,

Je peux peut-être éventuellement réaliser simplement une macro pour parvenir au résultat que j'attends. J'avouerai que je sèche un peu..

J'ai réussi à créer une macro qui créé un fichier dans un dossier de destination, le nom du fichier est donné dans la macro donc ce n'est pas tout à fait ce que je souhaite et je n'arrive pas à copier/coller la feuille dans ce fichier créé (via la macro).

Bonjour,

il ne faut pas créer de variable avec un mot de VBA et ActiveWorkbook est un mot clé

essaie d'intégrer ceci dans ton code:

Code:

---

1 2 3 4 5 6

Set NewWorkbook = Workbooks.Add With ThisWorkbook For cpt = 1 To .Sheets.Count .Sheets(cpt).Copy before:=NewWorkbook.Sheets(cpt) Next

---