Discussion :

[EFCAugure]

Bonjour à tous,
je vous soumet un petit problème bien ennuyeux sous Delphi.
Mon application "pilote" une feuille Excel dans laquelle j'ai créé des plans de regroupement (les petits + et - qui permettent de regrouper des colonnes ou des lignes).
J'ai créé un code en VBA indépendant permettant de contracter et déployer ce plan en cliquant sur un bouton de la feuille Excel.
Le problème survient lorsque je veux reprendre ce code (indépendamment du bouton) sous Delphi : j'obtiens toujours le message suivant : "Erreur EOleSysError : le membre est introuvable"

J'ai vérifié plusieurs fois, la plage de cellules Excel est bien la même que dans mon code VBA.
J'ai fait quelques tests en insérant juste des valeurs dans cette plage au lieu de la contracter et ça fonctionne parfaitement.

P.S : comobj est bien enregistré dans la clause USES.

voici le code Delphi :

Code :

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

1
2
3
4
5
6
7
 
var arange : ansistring;
begin
    arange := 'H10';
    Feuille.activate;
    Feuille.range[arange].Columns(0).Showdetail:=false;
end

voici le code VBA :

Code :

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

1
2
3
4
 
  Worksheets("Feuil1").Activate
  Set arange = Range("H10") 
  arange.Columns(0).ShowDetail = False

[Pedro]

Salut
est-ce que cette erreur se produit bien sur ces lignes là?

[EFCAugure]

Hello,
oui, elle se produit sur la ligne :
"Feuille.range[arange].Columns(0).Showdetail:=false;"

Elle se produit quelle que soit la colonne que j'utilise

[Pedro]

Ca peut venir alors de ta version de Delphi ou/et d'Excel... Il te dit membre introuvable, c'est qu'il y a une propriété qu'il ne trouve pas... Cherche dans ce sens là...
Quelles versions tu utilises?

[EFCAugure]

J'utilise Excel 2003 et Delphi7 pro

Toutes les autres fonctions faisant référence à une plage de cellules comme de remplir de texte la plage fonctionnent...

[EFCAugure]

J'ai changé mon fusil d'épaule cette nuit.
J'utilise désormais :

Code :

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

1
2
 
Feuille.range['H2','I2'].entireRow.ShowDetail:=true

mais j'ai l'erreur suivante lors de l'exécution : 'EOLEException : impossible de définir la propriété showdetail de la classe range'

par ailleurs l'éditeur m'autorise à utiliser cette propriété qu'il définit comme un OLEVariant et le code en VBA marche très bien.

Dans le pire des cas, est-il possible de transformer ce code VBA en DLL que je reprendrais sous Delphi? Si oui, comment créer cette DLL?

Merci à tous pour vos suggestions

[EFCAugure]

Me revoilà.....
J'ai trouvé la réponse hier.
En fait, il ne faut pas définir de plage à plusieurs colonnes ou plusieurs lignes pour la propriété 'showdetail'. Il suffit de lui indiquer une cellule de la dernière colonne pour un groupe de colonnes (id pour les lignes) et de ne rien mettre comme seconde cellule de la plage.
Voici le code qui fonctionne pour contracter un groupe de lignes finissant sur la ligne 2 :

Code :

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

1
2
 
Feuille.range['I2', emptyparam].entireRow.ShowDetail:=true

Si jamais ça peut servir à certains voire dans la faq.....
Merci quand même pour vos suggestions