Copier coller d'un classeur à l'autre vba
Bonjour à tous,
je suis débutant en VBA et je voudrais copie un ligne dans un classur 1 et la coller dans ComBox qui dans le classuer2, mais, j'ai un problème lorsque je copie le programme il colle sur le classeur.
Je vous laisse voir le programme .
Merci d'avance.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Private Sub Recherche_Click()
' Code VBA pour chercher a traverse le ComboBox Nom les les données et les afficher sur la feuil modifer
Dim Lig As Integer
Dim Wks As Worksheet
Dim Chemin As String
Dim Wbk1 As Workbook, Wbk2 As Workbook
Dim no_ligne As Integer
Dim page As String
no_ligne = ComboBox_NOM_modif.ListIndex + 2
Set Wks = Sheets(1)
Set Wbk1 = Workbooks.Open(Filename:="C:\Users\ielharras\Desktop\doccument Pierre Clave\MCSI_Liste_consultantsV3.xlsm")
Set Wbk2 = ThisWorkbook
Set Wbk1 = ActiveWorkbook
Worksheets("Liste_cslts").Cells(no_ligne, 1).Select
Selection.Copy
Workbook("Premier_Test_official_V7.xlsm").Worksheets("Feuil1").ComboBox1_prjt.Select
Selection.Paste
End sub |
