Discussion :

[SmOkEiSBaD]

Bonjour à tous,
Je voudrais comment ouvrir et remplir un tableau Excel.
J'arrive à ouvrir l'application Excel :

Code :

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

1
2
CApplication spAppli;
spAppli.CreateDispatch(_T("Excel.Application"));

Mais je n'arrive pas à trouver de fonction du genre Add... ou New... ou Create..

Je recupère une collection de Worksheet et une collection de Workbook. Est-ce utile ?

Merci de votre aide.

[SmOkEiSBaD]

ReBonjour,
Apparement grâce à l'application, on récupère une collection de Workbooks, dans cette collection, on récupère le Workbook courant, puis à partir du Workbook, on récupère une collection de Worksheet, puis on récupère le Worksheet courant et enfin on peut créer et remplir un tableau.
Seulement mon code ne compile pas...
Voici mon 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
CApplication spAppli; //Smart Pointer vers l'application Excel
	CWorkbooks spWorkbooks;
	CWorkbook spWorkbook;
	CWorksheets spWorksheets;
	CWorksheet spWorksheet;
 
	VARIANT vIndex;
	vIndex.vt = VT_INT;
	vIndex.intVal = 1;
 
	//Ouverture de l'application Excel
	spAppli.CreateDispatch(_T("Excel.Application"));
	AfxMessageBox(_T("Application Excel ouverte"));
 
	//On récupère le Workbook courant dans la collection de Workbook de l'application
	spWorkbooks = spAppli.get_Workbooks();
	spWorkbook = spWorkbooks.get_Item(vIndex);
	AfxMessageBox(_T("On a le Workbook"));
 
 
	//On récupère le worksheet courant dans la collection de worksheets du workbook
	spWorksheets = spWorkbook.get_Worksheets();
	spWorksheet = spWorksheets.get_Item(vIndex);
	AfxMessageBox(_T("On a le Worksheet"));

[SmOkEiSBaD]

Alors j'ai trouvé ceci :

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
CApplication spAppli; //Smart Pointer vers l'application Excel
	CWorkbook ActiveWorkbook;
	CWorksheet ActiveWorksheet;
 
	VARIANT vIndex;
	vIndex.vt = VT_INT;
	vIndex.intVal = 1;
 
	//Ouverture de l'application Excel
	spAppli.CreateDispatch(_T("Excel.Application"));
	AfxMessageBox(_T("Application Excel ouverte"));
 
	//On récupère le Workbook courant dans la collection de Workbook de l'application
	ActiveWorkbook = spAppli.get_ActiveWorkbook();
	AfxMessageBox(_T("On a le Workbook"));
 
 
	//On récupère le worksheet courant dans la collection de worksheets du workbook
	ActiveWorksheet = spAppli.get_ActiveSheet();
	AfxMessageBox(_T("On a le Worksheet"));

Apparement cela fonctionne..
Du coup est-il nécessaire de récupérer le Workbook courant ? (Si on ne rajoute pas de feuille supplémentatire ?)

[SmOkEiSBaD]

J'ai quelque peu avancé voici ou j'en suit :

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
CApplication spAppli;        
	CWorkbooks spWorkbooks;		 
	CWorksheet ActiveWorksheet;  
	CRange spRange;              
 
	VARIANT vAdd, vRange;
	vAdd.vt = VT_INT;
	vAdd.intVal = 1;
	vRange.vt = VT_BSTR; 
 
	//Ouverture de l'application Excel
	spAppli.CreateDispatch(_T("Excel.Application"));
	spAppli.put_Visible(TRUE);
	AfxMessageBox(_T("Application Excel ouverte"));
 
	//On récupère la collection de classeur de l'appli en cours et on en ajoute un nouveau
	spWorkbooks = spAppli.get_Workbooks();
	spWorkbooks.Add(vAdd);
 
	//On récupère la feuille de calcul active
	ActiveWorksheet = spAppli.get_ActiveSheet();
 
	//On récupère les cellules que l'on veut modifier
	ActiveWorksheet.get_Range(vRange);
 
 
	spAppli.Quit();

Mon problème est que je ne peux convertir un const char * en BSTR donc je ne peux pas passer d'argument à la fonction get_Range..
Merci.

[SmOkEiSBaD]

Voila la solution que j'ai trouvée :

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
CApplication spAppli;        //Smart Pointer vers l'application Excel
	CWorkbooks spWorkbooks;		 //Collection de classeur
	CWorksheet ActiveWorksheet;  //Feuille de calcul Active
	CRange spRange;              //Bloc de cellule
	CString sCell;
 
	COleVariant vMissing(DISP_E_PARAMNOTFOUND, VT_ERROR); //Evite les paramètres optionnels des fonctions
 
	VARIANT vAdd, vCell1, vCell2;
	vAdd.vt = VT_INT;
	vAdd.intVal = 1;
	vCell1.vt = VT_BSTR;
	sCell = CString("A1");
	vCell1.bstrVal = sCell.AllocSysString();
 
 
 
	//Ouverture de l'application Excel
	spAppli.CreateDispatch(_T("Excel.Application"));
	spAppli.put_Visible(TRUE);
	AfxMessageBox(_T("Application Excel ouverte"));
 
	//On récupère la collection de classeur de l'appli en cours et on en ajoute un nouveau
	spWorkbooks = spAppli.get_Workbooks();
	spWorkbooks.Add(vAdd);
 
	//On récupère la feuille de calcul active
	ActiveWorksheet = spAppli.get_ActiveSheet();
 
	//On récupère les cellules que l'on veut modifier
	spRange = ActiveWorksheet.get_Range(vCell1, vMissing);
	spRange.put_Value(vMissing, vAdd);

Premier Topic que je résoud tout seul o_O