Discussion :

[couiss]

Bonjour,

j'ai un problème pour sélectionner la première feuille dans un classeur Excel ouvert et piloter depuis delphi en OLE.

J'ai essayer plusieurs code trouver ici et là dans le forum et la FAQ mais au mieux j'ai un erreur du type "membre introuvable" avec le code suivant :

Code :

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

var Exl:variant;

Code :

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

Exl.ActiveSheet:=Exl.WorkBooks.Item(1);

En fait il faudrait aussi que je sache comment sauter d'une feuille à l'autre.

Merci d'avance à tous.

[Lung]

C'est pas quelque chose, comme :

Code :

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

Xl.Sheets[cpt].Select

ou :

Code :

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

Xl.Sheets[‘Feuil3’].Select

[couiss]

Merci avec ce code j'arrive à bouger de page en page mais le problème c'est que

Code :

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

Exl.Sheets[cpt].Select;

ne détermine pas forcement la première feuille Excel du classeur et ce quelque soit le nombre "cpt". Avec "cpt=1" sur un fichier Excel A, le programme me crée une nouvelle feuille dans le classeur et dans un fichier B, le programme se place correctement sur la première feuille du classeur.

Moi je souhaite pouvoir atteindre toujours la première page du classeur.

[Laurent Dardenne]

Salut,
avec les composants je procéde ainsi :

Code :

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

1
2
3
4
5
 
     // Connect to the First worksheet
        ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[nbSheet] as _WorkSheet);
        ExcelWorksheet1.Activate;
        ReadCurrentWorkSheet(nbSheet);

Avec un variant regarde du coté de la méthode Activate.
Extrait de la doc XL :

Activate, méthode

Active un objet comme indiqué dans le tableau suivant.

Objet Description
Worksheet Active la feuille (revient à cliquer sur l'onglet de la feuille).

Essaie :

Code :

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

Exl.Sheets[cpt].Activate;

(Je n'ai pas testé)

[couiss]

Avec la méthode "activate", ca marche pareil que la méthode "select", le code

Code :

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

Exl.Sheets[cpt].Activate;

marche correctement, mais je ne suis pas sûre du résultat et c'est ça qui me dérange.

Ce que je ne comprends pas c'est que dans mon fichier Excel A, il me crée une nouvelle feuille avec "cpt=1" ; pour aller à la première feuille il faut "cpt=2", alors que dans le fichier B le programme me renvoi la première feuille pour "cpt=1" et une erreur du type "membre introuvable" pour "cpt=2".

Fichier A : 3 feuilles dans un même classeur Excel nommées réspectivement "Feuil1", "Feuil2", "Feuil3".

Fichier B : 1 feuille dans un classeur Excel nommée "Test".

[Laurent Dardenne]

C'est toi qui crée le fichier et les feuilles ?
Le nombre renvoyé par Worksheets.count est-il correct ??

[couiss]

Non, le fichier Excel est déjà créé.

La méthode "WorkSheets.Count" renvoi le nombre 4 dans le fichier A (3 feuilles) et renvoi 1 pour le fichier B (1 feuille).

Je trouve ça bizarre, le problème vient peut-être de ce fichier Excel.

Je vais essayer de naviguer de page en page en repérant la page contenant les données à traiter, comme ça je tomberai à coup sur sur la page voulu.

Je vous remercie tous beaucoup pour les informations que vous m'avez donné ; est-ce quelqu'un sait ou je pourrais trouver les méthodes pour piloter MSOFFICE depuis DELPHI 4 PRO.

[Laurent Dardenne]

Regarde dans la FAQ, avec cette version tu dois créer des fichiers de librairie si je me souviens bien.