Syntaxe VLOOKUP en VBA - ouverture de Workbook dynamique

Version imprimable

Bonjour à tous,

Je souhaite faire un comparatif entre deux fichiers de versions différentes où figurent des lignes de commandes (le fichier ouvert V1.2, sur lequel est présent le bout de macro ci-dessous, et l'autre à aller chercher, V1.1 dans mon exemple) .
Grâce à l'enregistreur de macro, j'ai pu trouver la "traduction" VBA de la fonction RECHERCHEV, en mode "R1C1" mais j'aimerais la rendre un peu plus dynamique, et donner le choix à l'utilisateur d'aller chercher lui-même le fichier qu'il veut comparer (qui contient par défaut la feuille k€, cela peut rester fixe).

Pour cela je compte calculer la première valeur puis utiliser la méthode Autofill afin de remplir les n lignes de commandes non vides.
Code:

1 2 3 4 5 6 'RECHERCHEV des commandes présentes dans la version précédente Range("A9").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(k€!R[-5]C[4],'Chemin\...\[Fichier_V1.1]k€'!C5,1,FALSE)" Selection.AutoFill Destination:=Range(Cells(9, 1), Cells(der_lig, 1))
Cette méthode marche parfaitement quand le chemin et donc le nom du classeur (Fichier_V1.1) est fixe, mais ce que je souhaiterais c'est rendre dynamique le chemin d'accès et la prise en compte dans VLOOKUP.

J'avais pensé à dimensionner un fichier "previous", que l'utilisateur sélectionnerait, puis intégrer le nouvel objet "previous" dans la VLOOKUP (l'onglet k€ ne bouge pas, k€ existe dans toutes les versions du fichier)

Mais c'est là que le bât blesse, j'ai essayé ça :
Code:

1 2 3 4 5 6 7 8 9 Dim previous previous = Application.GetOpenFilename(, , "Sélectionnez votre source de données") 'RECHERCHEV des commandes présentes dans la version précédente Range("A9").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(k€!R[-5]C[4],'Chemin\...\[previous]k€'!C5,1,FALSE)" Selection.AutoFill Destination:=Range(Cells(9, 1), Cells(der_lig, 1))
Cela ne marche pas ... :roll:

Alors ma question est assez simple : comment faire prendre en compte à VLOOKUP le fichier générique "previous" ? :)

D'avance, merci !

13/02/2015, 15h34
Marc-L
Bonjour, bonjour !

Ne pas confondre du texte (encadré par des guillemets) et une variable ! …

P'tite démonstration :
Code:

1 2 3 4 Sub Demo() FICHIER$ = "Source .xlsx" MsgBox "C:\Documents\" & FICHIER End Sub
__________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

__________________________________________________________________________________________________
Tous unis, tous Charlie

Hello et merci tout d'abord de ton intérêt... :)

Okay, je me doutais déjà que cela n'allait pas de noter mon fichier variable previous entre guillemets...

Ce avec quoi j'ai un peu plus de mal c'est pour la suite.. Mon bout de code resemble à ça :
Code:

1 2 3 4 5 6 7 8 9 Dim previous previous = Application.GetOpenFilename(, , "Sélectionnez votre source de données") ' Range("A9").Select ActiveCell.FormulaR1C1 = _ "=VLOOKUP(k€!R[-5]C[4],previous & k€!C5,1,FALSE)" Selection.AutoFill Destination:=Range(Cells(9, 1), Cells(der_lig, 1))
Mais après application, la formule dans les cellules cibles est celle-ci :

Code:

=RECHERCHEV(k€!E4;previous & k€!$E:$E;1;FAUX)

Ce qui retourne donc forcément une erreur #NOM?
Comment notifier à la fonction d'aller bien chercher dans l'onglet k€ du fichier previous ?

Merci

Nouvelle p'tite démonstration :
Code:

1 2 3 4 5 6 Sub Demo() Const LF = vbLf & vbLf FICHIER$ = "Source" MsgBox "Faux :" & LF & "C:\Documents\ & FICHIER & .xlsx" MsgBox "Correct :" & LF & "C:\Documents\" & FICHIER & " .xlsx" End Sub
Donc tout ce qui est entre guillemets (ici en rouge) est du texte et pas une variable !
Et ici c'est bien visible : vérifier la couleur de FICHIER dans chaque ligne ci-dessus …

__________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

13/02/2015, 16h30
julking92

Ok merci pour la démo, ça m'éclaire sur certains points !

Mais ce que je ne comprends dans mon code précisemment (obtenu en utilisant l'enregistreur de macro), c'est comment faire comprendre à VBA que k€ est une worksheet générique qu'il trouvera dans tous les fichiers sélectionnés, une constante ?

Est-ce qu'il est nécessaire de dimensionner k€ en tant que worksheet de previous ?...
13/02/2015, 19h34
Marc-L

Dimensionner non mais c'est juste une constante de la formule sous forme de texte …
16/02/2015, 10h09
julking92

Désolé mais je ne comprends pas.

J'ai beau entrer previous & 'k€', previous & "k€",... dans le second argument du VLOOKUP, cela ne fonctionne pas...

Une aide un tout petit peu plus explicite serait la bienvenue... ;) merci d'avance

La bonne syntaxe semble être celle-là.

Code:

"=VLOOKUP(k€!R[-5]C[4],'previous & k€'!C5,1,FALSE)"

Ce code "marchouille" mais pas tout à fait : en effet il ne reconnaît pas pas l'objte k€comme une worksheet, et la première valeur renvoie un #N/A alors qu'elle existe..

Merci de votre intérêt
16/02/2015, 12h59
Marc-L

Mauvaise syntaxe car une variable ne doit pas être entre guillemets,
comparer les lignes n° 4 & 5 de la seconde démonstration …
16/02/2015, 13h13
julking92

Code:

"=VLOOKUP(k€!R[-5]C[4],previous & 'k€'!C5,1,FALSE)"

ne marche pas non plus..
16/02/2015, 13h17
Marc-L

Certainement car tout est du texte, aucune variable …

__________________________________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …
16/02/2015, 13h52
julking92

Avec ou sans guillemets, cela ne fonctionne pas..
previous est bien une variable et k€ une constante n'est-ce pas ?

On devrait noter previous et 'k€' ?
16/02/2015, 14h43
Marc-L

Post #4 :

Ligne n°4 : "C:\Documents\ & FICHIER & .xlsx" là FICHIER est du texte, pas une variable car entre guillemets !

Ligne n°5 : "C:\Documents\" & FICHIER & " .xlsx" là FICHIER est bien une variable car n'est pas dans du texte …

Un texte étant encadré par des guillemets …
16/02/2015, 14h58
julking92

Ok pour cet exemple !
Mais ce que je te demande depuis le début, c'est comment l'appliquer à mon petit problème de débutant en VBA ?
Ma question de départ concerne la syntaxe de la fonction VLOOKUP en VBA, pas celle de MsgBox... Ensuite je te demande une information simple, concernant la typologie de mes objets k€ et previous, tu ne réponds pas et tu réprends un exemple cité 5 messages plus haut..
Merci beaucoup de ton aide, mais c'est extrêmement lassant d'attendre une réponse pendant 1h et que celle-ci ne te soit d'aucune aide.
Et attention, je n'attends pas que la réponse me tombe toute cuite devant le nez, je sais que c'est extrêmement profitable d'apprendre par soi-même grâce à quelques conseils bien distillés, mais là c'est trop implicite et synthétique pour un débutant comme moi.

Si quelqu'un d'autre a une solution plus spécifique et accordée à mon problème... Merci beaucoup !
16/02/2015, 15h04
Marc-L

MsgBox comme une propriété Formula fonctionnent de la même manière avec du texte ‼
D'où mon exemple formateur …
Donc au lieu de te donner du poisson mieux vaut t'apprendre à pêcher car là c'est le B-A-BA de la programmation !
Mais jusqu'à présent, tu n'as rien appliqué : as-tu au moins exécuté la démonstration du post #4 pourtant concrète ?

Avant de partir dans du VBA, quelle est donc la formule de calculs manuelle fonctionnant dans une cellule d'une feuille ?
16/02/2015, 15h31
julking92
Reprenons.
Oui j'ai appliqué ton exemple. J'ai bien vu la structure qu'il faut donner au chemin dans lequel il faut aller chercher le fichier. J'ai aussi inséré la ligne suivante pour vérifier que le programme allait bien chercher dans le bon chemin le bon fichier :
Code:

1 2 3 4 Dim previous previous = Application.GetOpenFilename(, , "Sélectionnez votre source de données") MsgBox previous
qui affiche bien Chemin\Mon fichier.

Ce que je ne comprends pas, c'est comment, dans le deuxième arguement de VLOOKUP, faire la différence entre le fichier previous (qui est une variable, non ?) et la feuille k€, que l'on trouve dans tous les fichiers à comparer (et qui donc est une constante, non ?)

Je ne comprends pas ta dernière question..

Sinon j'aime beaucoup l'expression du poisson :lol:
16/02/2015, 16h32
Marc-L

Je demande juste une formule de feuille de calculs RECHERCHEV fonctionnelle saisie manuellement …
16/02/2015, 17h26
julking92

Ok ! La formule qui m'irait bien ici serait :

Code:

=RECHERCHEV(k€!E4;'chemin\[fichier previous]k€'!$E:$E;1;FAUX)
16/02/2015, 19h44
Marc-L

Non, une vraie formule fonctionnelle (donnant le résultat attendu) après saisie manuelle dans une cellule,
une réelle, correcte car vérifiée …
23/02/2015, 16h23
julking92
Bonjour,
Je me permets de revenir vers vous sur ce sujet, j'ai du temps pour m'y consacrer.

J'ai bidouillé pour effectuer le calcul des écarts en rentrant pour les deux fichiers pour lesquels je voulais calculer les écarts le chemin du fichier en dur, directmeent dans les lignes VBA.
Code:

1 2 ActiveCell.FormulaR1C1 = _ "=VLOOKUP(k€!R[-5]C[4],'Chemin\[Fichier1]k€'!C5,1,FALSE)"
et
Code:

1 2 ActiveCell.FormulaR1C1 = _ "=VLOOKUP(k€!R[-5]C[4],'Chemin\[Fichier2]k€'!C5,1,FALSE)"
Cela marche sans problème, mais je voudrais maitenant vraiment pouvoir utiliser ma variable "previous", et lui associer la feuille générique k€.

En rentrant
Code:

1 2 ActiveCell.FormulaR1C1 = _ "=VLOOKUP(k€!R[-5]C[4],[previous]k€!C5,1,FALSE)"
Cela fonctionne mais il faut sélectionner deux fois le fichier cible...

Marc-L, je ne comprends décidemment pas ta demande...