Discussion :

[sims92.66]

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

[jfontaine]

Bonjour,

Si la feuille de destination existe, ce sont les cellules qu'il faut copier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(nomfichier).Sheets(2).Cells.Copy Workbooks("test.xls").Sheets("apogée").Range("A1")

[sims92.66]

Merci Jérôme, cependant en modifiant que cette ligne le code ne marche pas...

Le code précédant permettait de copier le fichier sélectionner et de lui attribué son nom d'origine.

Or dans mon cas, la feuille existe déjà, il s'agit de la feuille "apogée" de mon classeur "test"

Le fichier sélectionner à partir de l'userform peut varier d'emplacement mais sa destination est toujours la même, classeur "test" feuille "apogée".

[jfontaine]

que veux tu dire par " le code ne marche pas."
pour moi le code proposer fait ce que tu souhaites, si ce n'est de toujours coller a partir de la cellule A1

[sims92.66]

Merci Jérome,

J'ai juste eu besoin d'aptater la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks(nomfichier).Sheets(2).Range("A1:D500").Copy Workbooks("test.xls").Sheets(2).Range("A1:D500")

Bonne soirée