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