RechercheV avec variables !

Version imprimable

Bonjour à tous,

j'ai un petit problème concernant le paramètrage de ma RechercheV, je vous explique:

j'ai un premier fichier, contenant les informations à rapporter.
Et un deuxième fichier excel où je veux rapporter mes informations.

Au début de ma macro, j'ai une variable
Code:

1 2 stFichier_EP = Application.GetOpenFilename Workbooks.Open Filename:=stFichier_EP
me permettant de localiser le premier fichier.
Dans mon deuxième fichier, j'ai ce code:
Code:

1 2 3 4 5 While Not IsEmpty(Range("D" & j)) Range("J" & j).FormulaR1C1 = _ "=VLOOKUP(RC[-6],'[Etat_Parc.xls]Export Demandes en Masse'!R2C1:R1140C4,2,FALSE)" j = j + 1 Wend
La fonction marche, cependant j'ai essayé de plusieurs façons mais je ne parviens à trouver la bonne pour:
-à la place de [Etat_Parc.xls] je veux mettre ma variable stFichier_EP afin que n'importe où se trouvent les deux fichiers la macro marchent.

- à la place de Export Demandes en Masse avoir simplement la feuil1 (la première feuille sachant que sont nom peut varier)

- à la place de R2C1:R1140C4 avoir R2C1:R& i &C4, car le nombre de ligne peut varier.

Merci de votre aide

02/05/2013, 18h01
NVCfrm

bonjour,

essayes ça:

Code:

... = "=VLOOKUP(RC[-6],'[" & stFichier_EP & "]" & Workbooks(stFichier_EP).Sheets(1).Name & "!R2C1:R" & i & "C4",2,False)"
03/05/2013, 07h53
sasafca

Bonjour,

merci de votre réponse, mais il y a une erreur de code, vba surligne la virgule avant le 2, et met comme message d'erreur "Atttendu : fin d'instruction".

Je ne trouve pas l'erreur, une erreur de côte ?

Merci !

PS: j'ai essayé

Code:

"=VLOOKUP(RC[-6],'[" & stFichier_EP & "]" & Workbooks(stFichier_EP).Sheets(1).Name & "'!R2C1:R" & i & "C4,2,False)"

mais message d'erreur: erreur d'execution 9
l'indice n'appartient pas à la sélection

Et au passage, est-il possible d'utiliser un SI pour dire que si la RECHERCHEV n'a rien rapporté, alors... je pense créer un onglet avec les cas non trouvés.

Merci
03/05/2013, 10h28
sasafca

L'erreur vient visiblement de

Code:

"]" & Workbooks(stFichier_EP).Sheets(1).Name & "

ainsi que de ma variable contenant le chemin d'accès au fichier...
Une fois ma macro éxécutée, j'obtient cette formule dans le fichier Excel:

=RECHERCHEV(D2;'[C:\Users\mon_nom\Desktop\test\[exportEtatDeParc-20130502-104848 - Copie.xls]]exportEtatDeParc-20130502-10484'!$A$2:$D$1141;2;FAUX)

alors que la bonne formule devrait être:

=RECHERCHEV(D2;'[exportEtatDeParc-20130502-104848 - Copie.xls]Export Demandes en Masse'!$A$2:$D$1140;2;FAUX)

lorsque je met :

=RECHERCHEV(D2;'[C:\Users\mon_nom\Desktop\test\[exportEtatDeParc-20130502-104848 - Copie.xls]]Export Demandes en Masse'!$A$2:$D$1140;2;FAUX)

j'ai un problème sur le 'C:'.

Sinon j'ai peu être une autre solution, mais est-il possible de jouer avec cette chaine de caractère:
C:\Users\mon_nom\Desktop\test\exportEtatDeParc-20130502-104848 - Copie.xls

est de supprimer la partie de droite jusqu'au premier '\' pour avoir:
C:\Users\mon_nom\Desktop\test

Bonjour,

essai d'utiliser une variable workbook pour ton classeur :

Code:

1
2
3
4
5
6
7
 
Dim wk as workbook 
(...)
set wk = Workbooks.Open (Filename:=stFichier_EP)
(...)
"=VLOOKUP(RC[-6],'[" & wk.name & "]" & wk.Sheets(1).Name & "'!R2C1:R" & i & "C4,2,False)"
(..)

03/05/2013, 11h51
sasafca

Merci pour la réponse mais ça me met "erreur automation"...

J'ai presque réussi, il faut que j'obtienne :

Code:

'=RECHERCHEV(LC(-6);'G:\Commun\Stagiaire\mon_nom\[Stage[Etat_Parc.xls]Export Demandes en Masse]Export Demandes en Masse'!L2C1:L1140C4;2;FAUX)

à partir de ça:

Code:

"=VLOOKUP(RC[-6],'[Etat_Parc.xls]Export Demandes en Masse'!R2C1:R1140C4,2,FALSE)"

Personne n'a une idée ? svp :(
05/05/2013, 11h31
SfJ5Rpw8

Citation:

Envoyé par sasafca

Merci pour la réponse mais ça me met "erreur automation"......

montre ton code ..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
stFichier_EP = Application.GetOpenFilename
 
 Workbooks.Open Filename:=stFichier_EP
 
 NomFeuil1 = ActiveWorkbook.Worksheets(1).Name
 classeur = ActiveWorkbook.Name
 chemin = Mid(stFichier_EP, 1, Len(stFichier_EP) - Len(classeur))
 
 r = "R2C1:R" & i & "C4"
 
 While Not IsEmpty(Range("D" & J))
 
  formule = "=VLOOKUP(RC[-6],'" & chemin & "[" & classeur & "]" & NomFeuil1 & "'!" & r & ",2,FALSE)"
 
  Range("j" & J).FormulaR1C1 = formule
 
  J = J + 1
 Wend

05/05/2013, 17h59
sasafca

Merci beaucoup pour cette réponse !!

Cependant, je viens de tester, et ça ne marche pas pourtant le chemin d'accès semble être le bon...

Encore merci !

Bonjour,
Une idée parmi d'autres.
Lorsque je dois insérer des paramètres dans une chaîne de caractères (par exeple une requête SQL ou une Date dans un IF, je travaille toujours de cette façon.
Dans ce cas précis, tu places ta formule dans une variable (Formula pour cet exemple) et le chemin dans une autre (ici Folder)
Dans la variable Formula, tu insères un texte (moi par convention je le place entre deux dièses (exemple #Folder#)
Ensuite tu utilises un Replace
Code:

1 2 3 4 5 6 7 8 Sub InsertFormula() Dim Formula As String, Folder As String Folder = "Z:\Formations\En préparation\Excel - Les Liaisons\" Formula = "=VLOOKUP(RC[-1],'#Folder#[Liaison Test Fonction - Fichier Source.xls]Recherche'!R2C1:R6C10,2,FALSE)" With ThisWorkbook.Worksheets("Feuil2") .Range("B3") = Replace(Formula, "#Folder#", Folder) End With End Sub
L'idéal est de créer une fonction avec comme argument le nom et la valeur à remplacer.
Tu pourrais aussi ajouter comme paramètres le nom du classeur, la plage etc...
Cela facilite la maintenance et le changement.

C’est bon j'ai réussi grâce à Docmarti!

Merci à tous pour vos réponses !

Voici ce que j'ai fait si jamais sa sert a quelqu'un:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 NomFeuil1 = ActiveWorkbook.Worksheets(1).Name classeur = ActiveWorkbook.Name chemin = Mid(stFichier_EP, 1, Len(stFichier_EP) - Len(classeur)) r = "R2C1:R" & i & "C4" ActiveWorkbook.Save formule = "=VLOOKUP(RC[-6],'" & chemin & "[" & classeur & "]" & NomFeuil1 & "'!R2C1:R" & i & "C4,2,FALSE)" Range("J" & j).FormulaR1C1 = formule
J'ai rajouté la sauvegarde du fichier et ça à marché.
Cependant j'ai quelque recherche qui me ramène #N/A,
comment gérer ce cas ?

merci !!

05/05/2013, 20h46
Philippe Tulliez

Bonsoir;

Citation:

Envoyé par sasafca

Cependant j'ai quelque recherche qui me ramène #N/A,
comment gérer ce cas ?
merci !!

Voir la réponse dans cette discussion Comment ne pas renvoyer le message d'erreur #N/A
05/05/2013, 22h19
sasafca

Je dois faire comment du coup avec ça :

formule = "=VLOOKUP(RC[-6],'" & chemin & "[" & classeur & "]" & NomFeuil1 & "'!R2C1:R" & i & "C4,2,FALSE)"
Range("J" & j).FormulaR1C1 = formule

et ça ? :

=SI(A1<>0;SI(ESTNA(RECHERCHEV(A1;Communaute;2;0));"Pas trouvé";RECHERCHEV(A1;Communaute;2;0));0)

Merci !!
06/05/2013, 00h08
Philippe Tulliez

Bonsoir,

La formule ESTNA(Formule) renvoie VRAI si la formule retourne l'erreur #N/A
Donc dans l'exemple donné, en imbriquant cette formule dans un SI on affiche "Pas trouvé" si ESTNA(Formule) renvoie VRAI et dans le cas contraire on refait un RECHERCHEV
Dans la version anglaise d'Excel : RECHERCHEV = VLOOKUP, ESTNA = ISNA, SI = IF
Le SI(A1<>0, n'a pas de raison d'être dans ton cas.
Avant de le traduire en VBA, insère la formule directement dans Excel et à l'aide de l'enregistreur de macros, tu auras la traduction de la formule en VBA.
06/05/2013, 08h10
sasafca

C'est bon c'est fait !!

Code:

formule = "=IF(ISNA(VLOOKUP(RC[-6],'" & chemin & "[" & classeur & "]" & NomFeuil1 & "'!R2C1:R" & i & "C4,2,0)),""Pas trouvé"", VLOOKUP(RC[-6],'" & chemin & "[" & classeur & "]" & NomFeuil1 & "'!R2C1:R" & i & "C4,2,0))"

Si ça peut aider quelqu'un !

Encore merci à tous pour votre aide !!