Discussion :

[fips1962]

Salut,

Voilà, ça fait bien une semaine que je cherche... et je me résout à demander de l'aide :
Ce que je veux faire est simple et je suis sur que la solution l'est tout autant, mais je ne trouve pas.
J'ai un classeur où se trouve mon programme, il faut que je recopie la seule page d'un classeur fermé dans une des pages de mon classeur ouvert et qui contient mon programme.
Donc pour le moment j'ai ouvert le classeur fermé, il faut maintenant que je copie sa seule feuille et que je la colle dans une des pages de mon classeur ouvert...
Voici le code que j'ai jusqu'à présent...
C'est un évenement sur une list box :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ListBox2_Click()
Dim fichier As String, chemin As String, Nom As String
Dim nombre As Long
chemin = "C:\Documents and Settings\fips\Mes documents\"
fichier = chemin & ListBox2.Value
Workbooks.Open Filename:=fichier         'j'ouvre le fichier
Cells.Select 'je selectionne la page
Selection.Copy                            'je la copie
Workbooks("thermo.xls").Activate       'j'active mon classeur d'origine
Worksheets("liste").Activate      'j'active la page où j'aimerais coller celle de l'aute classeur
ActiveSheet.Paste       'et je la colle
End Sub

Peut être que je n'y suis pas du tout, en tous les cas ca ne marche pas

Merci d'avance pour votre aide.

[ouskel'n'or]

Tu n'as pas à activer successivement tes classeurs

Code :

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

1
2
3
4
5
6
7
8
Private Sub ListBox2_Click()
Dim fichier As String, chemin As String, Nom As String
Dim nombre As Long
    chemin = "C:\Documents and Settings\fips\Mes documents\"
    fichier = chemin & ListBox2.Value
    Workbooks.Open Filename:=fichier         'j'ouvre le fichier
    Cells.Copy  Workbooks("thermo.xls").Worksheets("liste").Range("A1")
End Sub

Regarde à copy, dans l'aide, sauf que "destination:=..." est facultatif
Bonne nuit

[fips1962]

Je le crois pas, ça fonctionne!

merci beaucoup. Je savais que cela ne pouvait être que simple, mais ça l'était encore plus que je ne le pensais.

Encore merci!