Discussion :

[LoicH]

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

[LoicH]

J'ai trouvé une solution. Il faut mettre (OleVariant) à certains endroit :

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
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");

Il y a peut-être plus simple mais pour l'instant ce code fonctionne.