Pilotage Excel sous Windev

[LAMBERT William]

Bonjour tous le monde.
Vu que mon dernier probleme a été résolu en moin de 24 heures je profite pour glisser le "grand" probleme de mon stage.
Je dois exporter des données hyperfiles (windev) vers Excel or la tache est plus qu'ardu car il faut tout d'abord piloter Excel depuis mon code Windev et exporter.
Mon probleme se résume dans le fait que je n'arrive pas a avoir la liste des comandes Excel pour pilotage.
Exemple de pilotage (sous windev):

xls est un ojet OLE
xls>>Range("A"+NumériqueVersChaine(Ligne_Cumul_Tableau+1)+":"+"A"+Ligne_Cumul_Tableau[i+1])>>select
xls>>Selection>>Merge
xls>>Selection>>HorizontalAlignment = -4131
xls>>Selection>>VerticalAlignment = -4108
xls>>Selection>>Orientation = 90
xls>>Selection>>WrapText = False
xls>>Selection>>ShrinkToFit = False
xls>>Selection>>Font>>Size = 12
xls>>Selection>>Font>>Bold = True
xls>>Selection>>Font>>ColorIndex = 5
xls>>Selection>>Font>>Bold = True
xls>>Selection>>Font>>Size = 12
xls>>Selection>>Interior>>ColorIndex = 15
xls>>Selection>>Interior>>Pattern = 1

Ou puis-je retrouver toutes ces commandes?
Aquoi sert "Range", "Orientation","Pattern" entre autre?

Aider moi plz car ni l'aide de windev ni l'aide de Excel nen parle... Ca me desespere.
Merci d'avance !
Will

 

[dg]

Bonjour


Hotline Windev, tres efficace d'apres ce que je sais.


A+

 

[tatiak]

Bonsoir,

je ne connais pas windev, mais je dirais que :
Range, c'est une plage de cellules (ici à selectionner >>select)
le reste c'est la mise en forme de la plage
orientation du texte à l'intérieur de la plage à 90°
motif (pattern) =1 (standard), etc ...

A vue de nez, pour utiliser un terme Excel il faut mettre xls>> avant et des >> à la place des points utilisés en vba

en vba :
xls>>Selection>>Font>>Size = 12
se traduirait par
Selection.font.size =12

donc pour les commandes, voir le vocabulaire dans Excel vba

mais peut être que j'ai tout faux!?!

 

[Eva]

Bonjour,

Ben en fait moi j'ai le même genre de problème, mais je n'ai aucune idée de la syntaxe pour envoyer ma sélection sur un fichier excel! Si tu peux m'aider pour ça j'en serai ravie.
Merci d'avance
Eva

 

[Pascal76]

Bonjour Eva,

Je ne connais pas la syntaxe à partir de windev pour envoyer ton fichier vers Excel mais tu peux faire l'inverse c'est que ton fichier Excel puisse lire les données dans ta base Windev gràce à l'ODBC Hyperfile.

Bon courage

Pascal

 

[Eva]

Salut Pascal,

merci beaucoup, mais je dois exporter les informations contenus dans windev vers un fichier Excel...
Je ne connais pas bien le fonctionnement de Excel, mais chaque valeur se met dans une case comme pour un tableau je suppose, donc me reste plus qu'a savoir comment les envoyer!

 

[toto]

Salut à tous,

Si tu veux piloter excel avec OLE utilise se code en espérant que ça aidera quelqu'uns.

//Création de l'objet
xl est un objet OLE "Excel.Application"

// Excel doit être affiché
xl>>Visible = OLEvrai

// Nouveau classeur
xl>>Workbooks>>Add()

//sCellule renvoi la cellule d excel par exemple A1
//Tu fais une boucle sur les colonnes et les lignes de ta base
//Par Exemple
//--------------------------------------------------------------------------
sCellule = caract(nNumColonne+64)+numériqueVersChaine(numLigne)
xl>>Range(sCellule)>>Value = "La chaine que tu veux rentrer"

//Mettre le texte en gras
xl>>Range(sCellule)>>Font>>Bold = true
//Taille du texte 14
xl>>Range(sCellule)>>Font>>size = 14
//Couleur du texte Rouge
xl>>Line(1)>>Font>>ColorIndex = 3

//Redimentionner les colonnes automatiquement
//Ajuste la taille des colonnes
//nNumColonne est le nombre de colonne que tu as utiliser dans le fichier
// excel
//-----------------------------
Pour nCompteur = 1 a nNumColonne
xl>>Columns(caract(nCompteur+64)+":"+caract(nCompteur+64))>>EntireColumn>>autoFit()
Fin

//Positionne sur la première colonne (sélectionné)
xl>>range("A1")>>select()

//Si tu veux insérer une formule dans la cellule
xl>>Range(sCellule)>>formula = "=SI(LC(-6)=0;""-"";Arrondi((LC(-1)/LC(-6))*100;2) & ""%"")"

//Mon site d aide pour windev
http://t.gilbert1.free.fr/winfen/accueil.php

gilbertom2000@yahoo.fr

@++