PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → ECRIRE EXCEL:Urgent!!
ECRIRE EXCEL:Urgent!!
Débuté par saadidimiad, 26 oct. 2005 13:15 - 3 réponses
Posté le 26 octobre 2005 - 13:15
est ce possible d'écrire sur un fichier Excel?
Posté le 26 octobre 2005 - 14:25
Oui, 2 Solutions :

Les Objet OLE Dynamique

Les fonction Xls....
Posté le 26 octobre 2005 - 16:57
salut

La méthode OLE Automation est bien plus puissante que les fonctions Windev, tu peux TOUT piloter dans Excel ou Autres

petit exemple en OLE Automation :

// Création d'un objet automation
SI ObjetActif("Excel.Application") <> Null ALORS
MonObjXLS = ObjetActif("Excel.Application") // Récupération de l'instance de Excel existante
SINON
MonObjXLS = allouer un objet Automation "Excel.Application" // Allocation de l'objet automation "MaRecherche"
FIN

// Excel devient Visible
MonObjXLS>>Visible = Vrai
// Ouverture du Fichier Excel PC
MonObjXLS>>Workbooks>>Open("toto.xls")

trace(MonObjXLS>>Range("A1")>>Value) //Pour Lire la Valeur de la Cellule A1

MonObjXLS>>Range(Caract((j+65-1))+"1")>>Value = "toto" //Pour Ecrire dedans

MonObjXLS>>ActiveWindow>>Close //Tu Fermes
MonObjXLS>>Quit //Tu quittes
libérer MonObjXLS //Tu libères l'objet
Posté le 27 octobre 2005 - 08:45
Il existe une classe cExcel qui permet de faire un maximum de choses et qui est assez simaple a comprendre pour etre optimisée et agrandie. Elle devrait etre dispo sur le net.