Discussion :

[Haikel22]

Salut tout le monde,

je n arrive pas a copier une cellule depuis un autre workbook.

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
Sub copier()
Dim tmp As Integer
Dim wb, wb1 As Workbook
 
Set wb1 = ActiveWorkbook
 
Set wb = Workbooks.Open("a") ' le workbook d ou je vais copier la cellule 
With wb.Worksheets("160")' la feuille d ou je vais copier la cellule 
 
            tmp = Range("N2").Value
 
End With
 
With wb1.Worksheets("b") ' ou je vais coller la Cellule
 
    Range("I21").Value = tmp
 
End With
 
wb.Close
End Sub

Avez vous une idee ou l erreur dans mon code ?
Merci