[OLE] Ouvrir un fichier Excel

Bonjour à tous,

j'ai besoin d'un petit coup de main pour ouvrir un fichier excel.
Suis à la mise à jour d'Office vers la dernière version (Office 2016) ou la mise à jour de la version de Rad Studio, mon code ne fonctionne plus.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 // Creation de l'instance d'excel //--------------------------------------------------------------------------- Variant vMSExcel, vXLWorkbooks vXLWorkbook; try {vMSExcel = Variant::GetActiveObject("Excel.Application");} catch(...) {vMSExcel = Variant::CreateObject("Excel.Application");} vMSExcel.OlePropertySet("Visible", false); //--------------------------------------------------------------------------- // Ouverture du fichier //--------------------------------------------------------------------------- vXLWorkbooks = FormPrincipale->vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = FormPrincipale->vXLWorkbooks.OleFunction("Open","c:\\NomFichierExcel.xls"); //---------------------------------------------------------------------------
J'avais récupéré ce code dans la FAQ et fonctionnait très bien, mais la dernière ligne ne fonctionne plus et fait planter le programme avec un message d'erreur aléatoire :
Soit j'ai un message du type "Désolé... Nous ne trouvons pas (Nom du fichier excel tronqué).xls. Peut-être l'avez vous déplacé, renommé ou supprimé
ou "La méthode Open de la classe Workbooks à echoué"

Quelqu'un aurait une idée ?

Merci d'avance

OleVariant vNomFichier; Variant vMSExcel; Variant vXLWorkbooks, vXLWorkbook, vWorksheet, vXLTitreOnglet; Variant vUsedRange; // Creation de l'instance d'excel //--------------------------------------------------------------------------- try {vMSExcel = Variant::GetActiveObject("Excel.Application");} catch(...) {vMSExcel = Variant::CreateObject("Excel.Application");} //Application excel masquée vMSExcel.OlePropertySet("Visible", false); //--------------------------------------------------------------------------- // Ouverture du fichier //--------------------------------------------------------------------------- vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Open",vNomFichier); //--------------------------------------------------------------------------- //Pour lire une cellule d'un classeur particulier Variant vWorksheet = vMSExcel.OlePropertyGet("Sheets", (OleVariant)"NomFeuille"); Variant vCell = vWorksheet.OlePropertyGet("Range", (OleVariant)"E33"); String asValeur = vCell.OlePropertyGet("Value"); //Fermer le fichier sans sauvegarder Variant vSaveChanges = false; vXLWorkbook.OleFunction("Close", vSaveChanges); vMSExcel.OleFunction("Quit");