coller données nouveau classeur excel

lolo34140

XLDnaute Nouveau
Bonjour,

Je souhaite copier des données d'une feuille d'un classeur dans un nouveaux classeur excel que je créé via une macro.

En fait j'ai un userform ou je renseigne le nom du nouveau classeur que je souhaite créer puis je voudrais coller des donner dans ce nouveau classeur.
Je sais pas comment référencer un nouveau classeur dont le nom n'est pas de suite connu pour pouvoir y coller des donner.


voici ma macro :


Private Sub CommandButton1_Click()

UserForm1.Spreadsheet2.Range("A1:D20000").Copy

If IsEmpty(Range("C3")) Then
Worksheets("données tampon").Range("C3").Value.Paste

Else
Worksheets("données tampon").Range("IV2").End(xlToLeft).Offset(0, 1).PasteSpecial

End If

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim nom, test, typetest As String

'On créer l'objet Excel
Set xlApp = CreateObject("Excel.Application")
'On défini le nombre d'onglets (ici 5)
xlApp.SheetsInNewWorkbook = 1
'On ajoute un classeur
Set xlBook = xlApp.Workbooks.Add
'On donne un nom au classeur
nom = ComboBox1.Value
test = ComboBox2.Value
typetest = TextBox1.Value
xlBook.Saveas (ActiveWorkbook.Path & "\Données tests\" & nom + test + "-" + typetest)
'On rend le classeur visible
xlApp.Visible = True
'On créer l'objet onglet dans le nouveau classeur créé
Set xlSheet = xlBook.Worksheets(1)
'On affecte un nom aux l'onglets
xlSheet.Name = "données"
'on libère l'objet onglet pour pouvoir en créer un nouveau ... etc
Set xlSheet = Nothing
'On remet la propriété de l'application à 3 (par défaut)
xlApp.SheetsInNewWorkbook = 3
'On ferme l'application
xlApp.Quit



Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub
 

lolo34140

XLDnaute Nouveau
Re : coller données nouveau classeur excel

En gros, je voudrais copier une feuille et la coller dans un nouveau classeur excel qui est nommé via un textbox. Ce que je ne sais pas faire et qui me bloque, c'est le fait que je n'arrive pas a coller dans le nouveau classeur à cause du nom donné via textbox.
 

lolo34140

XLDnaute Nouveau
Re : coller données nouveau classeur excel

Voici un fichier exemple. je souhaite copier la feuille données tampon dans un nouveau classeur nommé via la textbox1
 

Pièces jointes

  • Essai.zip
    107.4 KB · Affichages: 21
  • Essai.zip
    107.4 KB · Affichages: 25
  • Essai.zip
    107.4 KB · Affichages: 17

Discussions similaires

Réponses
2
Affichages
592

Statistiques des forums

Discussions
314 647
Messages
2 111 533
Membres
111 195
dernier inscrit
Cheminotbelgiantrain