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 : Sélectionner tout - Visualiser dans une fenêtre à part
 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 : 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
 
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 : 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
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