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 : 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
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