Discussion :

[LP-mpascolo]

Salut a tous,

Me voici en possession plusieurs fichier *.oqy (MS Excel OLAP Query File) qui sont utilisés sous forme de PivotTable dans un fichier Excel (sous plusieurs onglets).

Voila maintenant ce que contient mon fichier *.oqy (ouvert sous Notepad)

QueryType=OLEDB
Version=1
CommandType=Cube
Connection=Provider=MSOLAP; Initial Catalog=[OCWCube]; Data Source=C:\data\crm\expectedClosing.cub;

Existe t-il une solution pour changer la valeur de Data Source rapidement dans VBA de tous ces fichier *.oqy (qui sont dans un seul repertoire) ?

Merci d'avance

Mario

[LP-mpascolo]

Ou au moins de 1 fichier ?

[LeForestier]

bonjour,
Si je comprend bien tu veux remplacer data\crm par autre chose, A-tu essayé avec la fonction d'édition Replace dans l'IDE de VBA
A+

[LP-mpascolo]

Oui ce serait la fin de mon code.
Ce que je demande plutot est comment acceder a cette valeur "C:\data\crm\expectedClosing.cub" dans VBA ?

En sachant que c'est le DataSource du fichier *.oqy ...

[cafeine]

Hello,

ouvre ton fichier .qry par le code comme un fichier texte (fso ou bon vieux Open) et recherche une chaine comprise entre "Data source=" et ";"