Problème avec la fonction "VLookup"
Bonjour à tous
Mon problème du jour !
Je n'arrive pas à utiliser la bonne syntaxe pour l'utilisation de la fonction VLookup dans un Useform qui est externe au fichier excel.
C'est à dire que Mon UF fait appel à un fichier excel (ici: ClasseurTest.xls) qui n'est pas ouvert.
Pour info voici les lignes de code qui ne fonctionnent pas
Si qqun pouvait m'aider
Merci à vous.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
| Private Sub ListBoxCommune_Click()
Dim Cheminxl As String
Cheminxl = "c:\ClasseurTest.xls"
Me.TextBoxLundi = Cheminxl.WorksheetFunction.VLookup(Me.ListBoxLundi, Range("C9:G332"), 2)
Me.TextBoxMardi = Cheminxl.WorksheetFunction.VLookup(Me.ListBoxMardi, Range("C9:G332"), 3)
Me.TextBoxMercredi = Cheminxl.WorksheetFunction.VLookup(Me.ListBoxMercredi, Range("C9:G332"), 4)
Me.TextBoxJeudi = Cheminxl.WorksheetFunction.VLookup(Me.ListBoxJeudi, Range("C9:G332"), 5)
End Sub |
