Discussion :

[RobinN]

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 !

[tamtam64]

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

[kiki29]

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

[RobinN]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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).

[Aposto]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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