Bonjour toutle monde,

Je narrive pas a comprendre ce qui ne va pas avec cette ligne de code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Sub exp()
 
Dim db As Workbook
Set db = Workbooks("wk48production") 'Worksheets("Packing Production Schedule")
 
For x = 1 To 1000
 
db.Worksheets("Packing Production Schedule").Cells(x, 5) = _
Application.WorksheetFunction.IfError(Application.WorksheetFunction.VLookup(db.Worksheets("Packing Production Schedule").Cells(x, 7), Workbooks("vba stock Final version").Worksheets("feuil1").Range("A9:K102"), 7, False), "")
On Error Resume Next
message d erreur :
Run time error 1004
Unable to get the vlookup property of the worksheetfunction class
Merci a vous.