XL 2013 VBA Utilisation de VLookUp

Matt_vd

XLDnaute Nouveau
Bonjour à tous et meilleurs voeux,

Est il possible de se servir de la fonction VLookUp, en VBA, ainsi :

ThisWorkbook.Sheets("ListeS").Range("F3").Value = Application.WorksheetFunction.VLookup(Sheets("ListeS").Range("C3"), 'C:\AAAA\BBBB\CCCC\[DDDD.xlsm]EEEE!$H:$T, 13, False)

Je tente d'utiliser la fonction sur un fichier fermé.

Ecrit ainsi, l'éditeur VBA me le met en rouge. Si je met le chemin comme ceci : " 'C:\AAAA\BBBB\CCCC\[DDDD.xlsm]EEEE!$H:$T"
J'ai une erreur 1004.

Est ce que ce que je tente de faire est impossible ou s'agit-il d'un problème "d'orthographe" en VBA ?

Merci d'avance.

Matthieu.
 

BOISGONTIER

XLDnaute Barbatruc
Repose en paix
Bonjour,

A ma connaissance, pour une recherche dans un classeur fermé, il faut écrire la formule =Vlookup() dans une cellule.

Exemple:

Code:
    répertoire = [A2]
    fichier = [B2]
    temp = "=vlookup(A5,'" & répertoire & "\[" & fichier & ".xls]BD'!$A$2:$B$8,2,false)"
    [B5].Formula = temp

Boisgontier
 
Dernière édition:

Jacky67

XLDnaute Barbatruc
Bonjour,

Je suis désolé, en anonymisant le chemin, j'ai supprimé l'apostrophe après le nom de la feuille par erreur. Elle est bien présente dans mon code original.

Matthieu.
Re..
Essaye ceci
VB:
Sub test()
With ThisWorkbook.Sheets("ListeS").Range("F3")
  .Formula = "=VLOOKUP(listeS!c3,'C:\AAAA\BBBB\CCCC\[test macro.xlsm]nouveau 0959'!$h:$t,13,0)"
  .Value = .Value
End With
End Sub
 

Discussions similaires