pb avec QueryTables sous VBA

Bounjour(soir) a tous,

Dans un classeur access je récupere des données sur un site Intranet.
Ces fichiers sont générés par une application et contiennent des données qui
me permettent de faire des stats.
Ces fichiers sont sous le format csv

je les récupere brutes dans une feuille avec un code similaire a celui-ci
pour "fichier .csv" :
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables.Add( _
Connection := "TEXT;htpp://192.168.xxx.xxx/action/fichier.csv", _
Destination := shFirstQtr.Cells(1,1))

mon probleme est que certain fichier ont des espaces
j'ai trouvé la solution avec "fichier a importer"
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables.Add( _
Connection :=
"TEXT;htpp://192.168.xxx.xxx/action/fichier%20a%20importer.csv", _
Destination := shFirstQtr.Cells(1,1))
cela fonctionne

mais voila des fichiers en plus des espaces, ont des accents dans le nom
exemple "Loire-Atlantique Vendée.csv"
Set shFirstQtr = Workbooks(1).Worksheets(1)
Set qtQtrResults = shFirstQtr.QueryTables.Add( _
Connection :=
"TEXT;htpp://192.168.xxx.xxx/action/Loire-Atlantique%20Vend%85e.csv", _
Destination := shFirstQtr.Cells(1,1))
je pensais avoir trouvé la solution en codant également l'accent comme le
fait internet explorer mais cela ne me retourne aucune info
ps: je ne suis pas sur du %85 car c'est au bureau que j'ai le pb et je n'ai
pas le fichier avec moi mais c'est un code en 8x

Pouvez-vous m'aider ?
Philippe85