Importation données XL via Userform

Bonjour à tous,

J'ai mis au point un code permettant via un user de chercher mon fichier à importer dans mon classeur XL.
Je fais cette opération chaque mois, donc le nom de destination de mon classeur XL change ("Resultat_102012.xls" "Resultat_112012.xls")

ligne du code:

Code:

---

Workbooks(nomfichier).Sheets(1).Range("A1:K65000").Copy Workbooks("Resultat_102012.xls").Sheets("SOURCE").Range("C1")

---

Y aurait-il un moyen d'éviter de rentrer dans mon code pour changer le nom de destination de ma feuille qui change chaque mois?

Ci dessous le code complet qui fonctionne parfaitement.


Merci pour vos réponses.

CODE DU MODULE:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub IMPORTATION()   'ouverture de la boite de dialogue pour parcourir le fichier à copier UserForm1.Show fichier1 = UserForm1.TextBox1 If Not UserForm1.TextBox1 = vide Then Workbooks.Open (fichier1) nomfichier = ActiveWorkbook.Name 'copie du fichier du mois et collage dans l'onglet SOURCE Workbooks(nomfichier).Sheets(1).Range("A1:K65000").Copy Workbooks("Resultat_102012.xls").Sheets("SOURCE").Range("C1") 'fermeture du fichier provision Workbooks(nomfichier).Close End If   End Sub

---

CODE DE L'USER FORM:

Code:

---

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

Private Sub CommandButton1_Click() With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False If .Show = True Then UserForm1.TextBox1.Text = .SelectedItems(1) End If End With End Sub   Private Sub CommandButton3_Click() UserForm1.Hide End Sub Private Sub Label1_Click()   End Sub Private Sub TextBox1_Change()   End Sub Private Sub UserForm_Click()   End Sub

---

Je pense avoir trouver.
Je dois coller mon code dans la feuille de destination et non dans un module.