Coller données dans un autre classeur excel via spreadsheet

[lolo34140]

Bonjour,

Je souhaite renvoyer des données copier dans un spreadsheet d'un userform dans un autre classeur qui est créé automatiquement via une macro.
En fait j'ai un userform ou je chois une référence et autres données. Ces données me permettent de donner un nom a un nouveau classeur excel que je créé. J'aimerai dans ce nouveau classeur copier des valeurs saisie via un spreadsheet du même userform.

J'arrive a créer le nouveaux classeur et à le nommer en fonction de textbox. Par contre je sais pas comment spécifier le répertoire ou va ce nouveau classeur (par exemple répertoire :/test).

Sinon mon vrai problème et que je n'arrive pas a référencer ce nouveau classeur pour renvoyer des valeurs saisies dans un spreadsheet d'un userform.

Si quelqu'un sais faire ça serait super!

Merci

 

[lolo34140]

Re : Coller données dans un autre classeur excel via spreadsheet

Personne pour m'aider

 

[lolo34140]

Re : Coller données dans un autre classeur excel via spreadsheet

Toujours personne pour me donner un coup de main

 

[lolo34140]

Re : Coller données dans un autre classeur excel via spreadsheet

Je bloque vraiment.
En fait je sais pas comment référencer un classeur excel créé via userform et dont le nom correspond a un texte entré dans un textbox. J'arrive très bien a renvoyer des valeur saisies dans un spreadsheet vers une autre feuille d'un même classeur mais pas vers un autre classeur différent.

voici le code:

Private Sub CommandButton1_Click()

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

Set xlApp = CreateObject("Excel.Application")
xlApp.SheetsInNewWorkbook = 1
Set xlBook = xlApp.Workbooks.Add
nom = ComboBox1.Value
test = ComboBox2.Value
xlBook.SaveAs (nom + test)
xlApp.Visible = True
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Name = "données"
Set xlSheet = Nothing
xlApp.SheetsInNewWorkbook = 3
xlApp.Quit


UserForm1.Spreadsheet2.Range("A220000").Copy

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

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

End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub