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("A120000").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
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("A120000").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