problème de référence

[Xavier]

Bonjour,

Dans le petit bout de programme qui suit, j'ai un petit problème: je n'arrive pas à attribuer dans la fonction VLOOKUP le nom du fichier que j'ai obtenu lors de ma selection soit textBox2.Value.
J'ai essayé d'y plaver File13 ou F13 avec des & mais ca ne marche pas donc si vous connaissez l'écriture adéquoite je suis interessé ...

Merci bcp et bon fin de matinée
Xa

Dim File13, F13 As String
Workbooks.Open Filename:=TextBox2.Value
File13 = TextBox2.Value
F13 = Mid(File13, InStrRev(File13, "\") + 1, Len(Mid(File13, InStrRev(File13, "\") + 1)) - 4)

Windows(F13).Activate
Dim DataL1 As String

Worksheets(6).Select

Windows(F0).Activate
Range("E2").Select

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[21],'[TextBox2.Value]Data L1'!R1C1:R&W&C2,2,FALSE)"

Range("E2").Select
ActiveSheet.Copy
Range("E3:E" & W).Select
ActiveSheet.Paste
UserForm3.Show

End Sub

 

[Pascal76]

Bonjour

essaies

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[21],'[" & TextBox2.Value & "]Data L1'!R1C1:R&W&C2,2,FALSE)"

Bon courage

Pascal

 

[Xavier]

merci bcp pour la solution ... mais il ne veut pas la copier nondiju

 

[Pascal76]

Re

As-tu essayé de passer par une variable

du genre :

variable=TextBox2.Value

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[21],'[" & Variable & "]Data L1'!R1C1:R&W&C2,2,FALSE)"

tu es sur que tu n'as pas déchargé ton UF avant de lancer la macro car sinon il a perdu la valeur de ton textbox ??

Pascal

 

[Xavier]

Heu non mais pour une fois j'avais penser au coup de la variable sauf que j'avais pas mis les " "



Mais ca va ou du moins je pense je suis à une étape de la construction de ce truc .... qui va me prendre tout mon mois d'aout ... je vous dis déjà à demain

Bonne soirée

Xa