Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Pilotage d'un fichier Excel sous Windev 18

1 réponse
Avatar
HAMDI Hassane
Salut =E0 tout et =E0 tous.
je d=E9vloppe une application su windev-18 dans la quelle je doit parcourir=
e un fichier excel(Model) pour le remplire d'information.
mon probl=E9me est que je doit ecrire dans la 1=E9r feuil des information e=
t dans autre feuil autre information.
(Code)
//dectalartion de l'objet
XLS est un objet Automation "Excel.Application"
//ouvrire le fichier Mod=E9l
XLS>>WorkBooks>>Open("Mon_REP\Mon_Fichier.xlsx")
//select la feuille 1
XLS>>Workbooks>>Worksheets("Feuil1")>>Activate
//Ecrire la date dans la Celul(H1) de la feuil 1
XLS>>Range("H1")>>Value=3D"Val Feil 1"

//select la feuille 2
XLS>>Workbooks>>Worksheets("Feuil2")>>Activate
//Ecrire la date dans la Celul(H1) de la feuil 2
XLS>>Range("H1")>>Value=3D"Val Feil 2"

le windev me renvoie l'erruer :
Vous avez appel=E9 la m=E9thode Automation 'Worksheets'.
Erreur 80020006, Nom inconnu

1 réponse

Avatar
Olivier Popiers
Bonjour,

est ce que XLS>>Sheets(1)>>Select() fonctionne ?

J'utilise la classe qui est fournie en exemple avec Windev qui utilise cett e fonction.

Le lundi 15 juin 2015 11:00:35 UTC+2, M--WD--H a écrit :
Salut à tout et à tous.
je dévloppe une application su windev-18 dans la quelle je doit parcour ire un fichier excel(Model) pour le remplire d'information.
mon probléme est que je doit ecrire dans la 1ér feuil des information et dans autre feuil autre information.
(Code)
//dectalartion de l'objet
XLS est un objet Automation "Excel.Application"
//ouvrire le fichier Modél
XLS>>WorkBooks>>Open("Mon_REPMon_Fichier.xlsx")
//select la feuille 1
XLS>>Workbooks>>Worksheets("Feuil1")>>Activate
//Ecrire la date dans la Celul(H1) de la feuil 1
XLS>>Range("H1")>>Value="Val Feil 1"

//select la feuille 2
XLS>>Workbooks>>Worksheets("Feuil2")>>Activate
//Ecrire la date dans la Celul(H1) de la feuil 2
XLS>>Range("H1")>>Value="Val Feil 2"

le windev me renvoie l'erruer :
Vous avez appelé la méthode Automation 'Worksheets'.
Erreur 80020006, Nom inconnu