Discussion :

[motte82]

Bonjour,

J'ai un petit problème sur un script...
Je souhaite accéder à un fichier excel depuis une variable contenue dans un ComboBox. (je sais, c'est pas très clair...)

Voici un exemple :

Voici la ligne sur laquelle je bloque :

vFileName = "D:\\progcomm\\ValeurComboBox";

Si je mets le nom de fichier "manuellement" à la place de ValeurComboBox, çà fonctionne.

Mais je souhaite que le nom de fichier soit entré automatiquement selon la sélection du ComboBox

Si quelqu'un peut m'aider, je l'en remercie déjà énormément.

Si ce n'est pas clair, dites moi ce que vous n'avez pas compris.

Merci

[Edit] Au fait, j'oubliai, j'utilise Borland C++ Builder
@+

[blondelle]

Un exemple d'ouverture il y a une forme et un bouton
le code

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
 
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
#pragma link "Excel_2K_SRVR"
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
//----------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//----------------------------------------------
Variant vMSExcel , vWDocument , vWDocuments;
Variant vFileName;
//----------------------------------------------
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible",true);
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\plan_gps\\PLAN_GPS\\télégraphe.csv";
vWDocuments = vMSExcel.OlePropertyGet("Workbooks");
vWDocument = vWDocuments.OleFunction("Open", vFileName);
}

il te reste a modifier le vFileName avec le chemin de ton fichier.
Je te laisse le soin d'adapter le code a tes besoins.
deux liens interressant
http://lfe.developpez.com/Excel/
http://lfe.developpez.com/Word/

[BigMike]

Essaies ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
String vFileName;
wsprintf(vFileName,"D:\\progcomm\\%s",ValeurComboBox);

si ValeurComboBox ne contient pas le .xls, il faut que tu l'insères :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

wsprintf(vFileName,"D:\\progcomm\\%s.xls",ValeurComboBox);

Ensuite pour ouvrir le fichier tu rentres :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName.c_str(),vLink,vReadOnly);

Voilà, normalement ça devrait marcher...

[FredericB]

Salut,

C'est pas ça que tu cherches à faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
vFileName = "D:\\progcomm\\ " + ValeurComboBox->Text;

En supposant que ton ComboBox se nomme ValeurComboBox

[motte82]

Merci à tous, j'ai réussi

C'est trop cool!!!

Merci encore

[Mattetfamilly]

Test si l'extension existe avec:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if(ExtractFileExt(ComboBox1->Text).Length()==0)
ComboBox1->Text=ComboBox1->Text+".xls";

ou encore peut être plus efficace:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ComboBox1->Text=ChangeFileExt(ComboBox1->Text,".xls");

Ce second code te permet de remplacer systématiquement l'extension du nom de fichier saisi par xls.