Bonjour ,

j'ai besoin aujourd'hui d'ouvrir plusieurs fichiers de nom connus,

d'aller chercher certaine plage de valeurs, et de les coller dans une trame toute prête à les recevoir.

Pour coemmncer petit et essayer d'acquérir les bases, et avec ce que je'ai pu voir je code ceci :


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
Sub Bouton1_Cliquer()
 
 
Dim Wbk1 As Workbook, Wbk2 As Workbook
 
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks.Open(Filename:="C:\Users\simu\Desktop\old\" & "BD12345" & ".xlsx")
 
 
 
    Wbk1.Worksheets(Feuil3).Cells(1, 1).Value = Wbk2.Worksheets(BDa).Cells(1, 3).Value
 
 
 
End Sub
la question est : pourquoi ça ne marche point !