Pivottable avec source changeante

[blopinette]

Bonjour,

J'ai un textebox dans lequel il y a une chaine de caractères représentant le chemin complet du fichier que je veux examiner.
Quand dans la création de la table pivot, je rentre le source data manuellement, ca marche.
Par contre, quand je veux aller chercher l'information à partir du textbox en coupant la chaine en un dossier et un fichier, ca ne marche plus.




Dim DerLigne As Integer
Dim DerColonne As Integer

Dim xlApp As New Excel.Application
Dim xlBook As New Excel.Workbook


Set xlBook = xlApp.Workbooks.Open(TextBox1.Text)


n = InStrRev(TextBox1.Text, "\")
myFile = Mid(TextBox1.Text, n + 1)
myFolder = Left(TextBox1.Text, n)





DerLigne = xlBook.Worksheets("sheet1").Range("A65536").End(xlUp).Row
DerColonne = xlBook.Worksheets("sheet1").Range("IV1").End(xlToLeft).Column


ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=_

'Ca marche
"'D:\[FichierAChercher.xls]sheet1'!R1C1:R" & DerLigne & "C" & DerColonne & "").CreatePivotTable TableDestination:= _

'Ca marche pas (ce n'est pas du au fait que c'est mal concaténé)
' "'myFile & [myFolder]sheet1'!R1C1:R" & DerLigne & "C" & DerColonne & "").CreatePivotTable TableDestination:= _

"'[aaaa.xls]Feuil1'!R8C2", TableName:= _
"MonTablo", DefaultVersion:=xlPivotTableVersion10



Meme si je prends une variable dans laquelle je rentre D:\[FichierAChercher.xls]sheet1, ca ne marche pas

Merci de vos réponses