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 : Sélectionner tout - Visualiser dans une fenêtre à part
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