Vlookup dans un autre fichier excel

Résolu
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Voici ma macro :

Sub CONTACT()
 
    Dim i As Long
    Dim DL As Long
 
    DL = ThisWorkbook.ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
 
     For i = 1 To DL
        ThisWorkbook.ActiveSheet.Cells(i, 14) = Application.VLookup(ThisWorkbook.ActiveSheet.Cells(i, 1).Value, Workbooks("K:\AFFRETEMENT EN COURS\2015\SEPTEMBRE 2015\affretement SEPTEMBRE 2015.xls").Sheets(1).Range("T:W"), 1, False)
     Next i


End Sub

Excel me dit : "L'indice n'appartient pas à la sélection et me surligne :

ThisWorkbook.ActiveSheet.Cells(i, 14) = Application.VLookup(ThisWorkbook.ActiveSheet.Cells(i, 1).Value, Workbooks("K:\AFFRETEMENT EN COURS\2015\SEPTEMBRE 2015\affretement SEPTEMBRE 2015.xls").Sheets(1).Range("T:W"), 1, False)


Une petite idée?

Merci d'avance.

Cordialement.
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Si fichier ouvert:

ThisWorkbook.ActiveSheet.Cells(i, 14) = Application.VLookup(ThisWorkbook.ActiveSheet.Cells(i, 1).Value, Workbooks("affretement SEPTEMBRE 2015.xls").Sheets(1).Range("T:W"), 1, False)


Si pas ouvert, l'ouvrir et regle n°1, c'est le plus simple
4
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Merci, déjà je n'ai plus le message d'erreur.

Par contre, je n'ai que du #NA, à chaque fois que je fais une recherchev c'est pareil...
0
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61 > Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention  
 
Si je fais un copier/coller d'une données dans l'autre tableau, j'ai toujours NA, comment fait-il pour ne pas trouver la donnée?...
0