Discussion :

[sasafca]

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 :

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

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 :

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

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

[NVCfrm]

bonjour,

essayes ça:

Code :

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

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

[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 :

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

"=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

[sasafca]

L'erreur vient visiblement de

Code :

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

"]" & 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

[SfJ5Rpw8]

Bonjour,


essai d'utiliser une variable workbook pour ton classeur :

Code :

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

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)"
(..)

[sasafca]

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

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

Code :

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

'=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 :

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

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

Personne n'a une idée ? svp