Bonjour,  
 
je suis novice en programmation, je dois programmer certaines macro. Je m'en suis sorti tant bien que mal pour certaines fonctions mais là,je butte sur le recherchev que j'ai besoin d'utiliser pour rechercher une désignation à un code. J'effectue une recherche sur un autre classeur qui est ouvert seulement ça me met un pb d'erreur 1004 : impossible de lire la propriété Vlookup.  
 
voici des bouts de mon code qui pourront vous permettre de voir où sont les erreurs :  
 
Dim Chemin As String
Chemin = "C:\test macro\Inventaire.002"
Dim Chemin2 As String
Chemin2 = "C:\test macro\code_article.xls"
Dim Destination As String
Destination = "C:\test macro\Inventaire.xls"
Dim CodeArticle As String
Dim c As Integer
Dim Designation As String
Dim Inventaire As Workbook
Set Inventaire = Workbooks.Open(Chemin)
Dim code_article As Workbook
Set code_article = Workbooks.Open(Chemin2)
Inventaire.Activate
 
 
c = 2
While Not IsEmpty(Cells(c, 1))
CodeArticle = Cells(c, 1).Value
MsgBox CodeArticle
Designation = WorksheetFunction.VLookup(CodeArticle, code_article.Sheets("Feuil1" ).Range("A:B" ), 2, False)
If CodeArticle <> "" Then Cells(c, 2).Value = Designation
c = c + 1
Wend
 
 
 
Dans mes tableaux, j'ai tous mes codes dans une colonne et ensuite toutes mes désignations dans une autre,etc...
 
Mais j'ai pu me rendre compte suite à plusieurs essai que lorsque je fais des itérations avec sous la forme (1,c) au lieu de descendre à la ligne du dessous ça passe la colonne d'à côté.
 
Merci d'avance pour votre aide, je galère depuis hier

Hello
 
A mon avis c'est ici que ca coince :
 
Designation = WorksheetFunction.VLookup(CodeArticle, code_article.Sheets("Feuil1" ).Range("A:B" ), 2, False)  
 
 
Essaie plutot un truc comme ca (j'ai pas testé)
Designation = WorksheetFunction.VLookup(CodeArticle, WorkBooks(code_article.name).Sheets("Feuil1" ).Range("A:B" ), 2, False)