Discussion :

[free_dom]

Bonjour,

j'essaie d'utiliser la fonction vlookup dans une macro pour écrire dane une cellule le nom correspondant à un numero (le nom et le numero se trouvent dans une feuille d'un autre classeur) qui est ouvert à l'aide de Application.GetOpenFilename.

pour résumer je veux mettre dans une celulle la fonction vlookup avec un parametre (chemin relatif) suivant la selection du fichier par l'utilisateur.

voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Filtre = "Excel (*.xls),*.xls,All Files (*.*),*.*"
nf = Application.GetOpenFilename(FileFilter:=Filtre, FilterIndex:=5, Title:="Select a WAGE SHEET FILE to Print")
If nf = False Then Exit Sub
    Sheets("feuille1").Cells(1, 11).Formula = "=VLOOKUP(H1,'" & nf & "feuille2'!$B$1:$C$65536,2,FALSE)"

Après l'exécution de la macro, il insère dans la cellule (1,11) la fonction vlookup mais avec un chemin concatené avec le nom de la feuille ce qui rend l'éxecution de la fonction invalide.

Merci.

[AlainTech]

Bonjour,

As-tu essayé de voir ce que donnait ta concaténation?
A mon avis, ça donne quelque chose du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=VLOOKUP(H1,'C:\xxx\yyy\UnFichier.xlsfeuille2'!$B$1:$C$65536,2,FALSE)"

Il me semble que cette formulation conviendrait mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=VLOOKUP(H1,[" & nf & "]feuille2!$B$1:$C$65536,2,FALSE)"