Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Probleme de pilotage d excelxls est un objet Automation dynamique

397 views
Skip to first unread message

mikael....@free.fr

unread,
Jun 21, 2001, 8:50:59 AM6/21/01
to
Voici le bout de code que j ai recuperer :

xls est un objet Automation dynamique
xls=ObjetActif("Excel.Application")
SI xls=NULL ALORS
//si Excel n'est pas déjà là, on lance le serveur ole excel
xls=allouer un objet Automation "Excel.Application"
Si xls=NULL ALORS
Erreur("Impossible de lancer Excel","Excel n'est peut être pas
installer sur votre machine!")
RETOUR
FIN
FIN
xls>>Visible = faux // excel sera invisible
xls>>Workbooks>>open("C:\monfichier.xls") // ouvre le fichier nommé
"nomfic.xls"


xls>>Range("A1")>>Value = "Coucou"


xls>>ActiveWorkBook>>Save() // sauvegarde le fichier excel


//**//ou alors on peut sauvegarder sous un autre nom
//**//xls>>ActiveWorkBook>>SaveAs("teste") // sauvegarde sous un autre
nom

////////////////Pour l'aperçu --> utilise les commandes suivantes :
xls>>Visible = vrai // excel sera visible ( afin de visualiser
l'aperçu)
xls>>ActiveWindow>>SelectedSheets>>PrintPreview() // commande aperçu
de excel
xls>>Visible = faux // excel sera invisible

xls>>quit() // quitte excle
libérer xls //libère Excel


*/***************************

Ce code presente qelques defauts :

- A la fin on libere excel, mais si par exemple j avais deja un
fichier excel d ouvert et bien il le ferme aussi.

De tps en tps si j essaye de reouvrir directement le fichier que j
utilise avec ce bout de code, il n em affiche rien ou juste la partie
haute d excel , celle avec l entete excel et les icones.

Donc je voudrais savoir si il est possible de fermer juste la feuille
utiliser par mon code, et non les feuilles qui pourrait etre ouverte
avant l execution de mon code.

Et je voudrai savoir aussi, si il y a pas de pb de liberation du
fichier utiliser par le code.


Merci

Didier Girod

unread,
Jun 22, 2001, 2:17:46 AM6/22/01
to
Salut ,
Pour fermer uniquement ta feuille active il faut faire
xls>>ActiveWorkbook>>Close()

pour que tes autres documents ne soit pas fermés il ne faut pas utiliser la
commande Quit !

et dans l'exemple que tu as si excel est déjà chargé si tu utilise la
commande xls>>visible=faux , alors excel n'est plus visible pas seleument
depuis Windev ! , mais aussi pour l'utilisateur --> donc problème lorsque
que tu essaye de charger ton fichier , pour éviter ce problème supprime la
ligne xls>>Visible=faux , ceci fonctione très et en plus le code que tu as
récupéré c'est moi qui te l'ai envoyé suite à une question posé sur le
forum de Dominique Daussy !

Bye

DIDIER


mikael....@free.fr

unread,
Jun 22, 2001, 4:15:00 AM6/22/01
to
hehe ca marche , un grand merci pour tes precisions.

Didier Girod

unread,
Jun 22, 2001, 4:31:41 AM6/22/01
to
A ton service !

DIDIER


mikael....@free.fr

unread,
Jun 25, 2001, 7:34:31 AM6/25/01
to
hehe merci tjrs la ou il faut ;-)

belai...@gmail.com

unread,
Apr 15, 2019, 10:10:47 AM4/15/19
to
bonjour
je cherche à exporter les donnes d'un tableau en WinDev pour afficher un graphe en exel slvp le code utiliser

0 new messages