Bonjour à tous,

J'ai fais mes débit avec les userforms, je ne maitrise donc pas vraiment.
Ma question est tout simple, comment adapté mon code pour que le fichier choisi à partir du text box soit collé dans la feuille "apogée" de mon classeur "test".
Ci-joint mon code.
Merci pour vos réponses.


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
 
Sub Macro1()
 
    UserForm1.Show
 
        fichier1 = UserForm1.TextBox1
 
        If Not UserForm1.TextBox1 = vide Then
        Workbooks.Open (fichier1)
        nomfichier = ActiveWorkbook.Name
 
        Workbooks(nomfichier).Sheets(2).Copy Workbooks("test.xls").Sheets("apogée")
 
 
        Workbooks(nomfichier).Close
 
        End If
 
End Sub