Discussion :

[devalender]

Bonjour a tous
mon problème est le suivant :
es ce qu'il possible de changer la couleur d'une ligne excel depuis windev !
voici le code que j'utilise deja pour lire dans le fichier

// Tentative de récupération de l'objet Excel en mémoire
xl est un objet OLE dynamique = ObjetActif("Excel.Application")

// Allocation d'un objet Excel si non-trouvé
SI xl=Null ALORS xl=allouer un objet OLE "Excel.Application"

xl>>Visible=Faux // Excel n'apparait pas à l'écran

// Ouverture du document
xl>>WorkBooks>>Open(SAI_Saisie1)

// Récupération du contenu d'une cellule d'Excel
gsLenomd=xl>>Range("B"+IP)>>Value
gsLenom=Remplace(gsLenomd,"'","''")

Es qu'il existe une methode pour changer la couleur d'une ligne ?

Merci a tous.

[jurassic pork]

Bonjour,
par exemple pour changer la couleur de la 2ème ligne de la feuille active en bleu clair (cyan), il suffit de faire :

Code :

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

xl>>ActiveSheet>>Rows(2)>>Interior>>Color = RVB(0,255,255)

Ami calmant J.P

[devalender]

ok je vais tester voir ,
pourrai je avoir une tuto ou l'aide sur cette suite de syntaxe, j'ai chercher dans l'aide windev mais j'ai pas vu.
merci !

[devalender]

je viens juste de tester voila mon code :

// Tentative de récupération de l'objet Excel en mémoire
xl est un objet OLE dynamique = ObjetActif("Excel.Application")

// Allocation d'un objet Excel si non-trouvé
SI xl=Null ALORS xl=allouer un objet OLE "Excel.Application"

xl>>Visible=Faux // Excel n'apparait pas à l'écran

// Ouverture du document
xl>>WorkBooks>>Open(SAI_Saisie1)

// Récupération du contenu d'une cellule d'Excel
gsLenomd=xl>>Range("B"+IP)>>Value
gsLenom=Remplace(gsLenomd,"'","''")
xl>>ActiveSheet>>Rows(2)>>Interior>>Color = RVB(0,255,255)

à l'ouverture de mon fichier excel j'ai pas la couleur attendu

[PaulNero]

Bonjour,
dans le code spécifié on parle de feuille active!!! Donc activez déja une feuille en cliquant dans une cellule pour voir si ça donne ce que Jurassik pork a fait.
Avant de dire que ça marche pas faut d'abord bien tester.


cordialement++

[devalender]

Bonjour,
dans le code spécifié on parle de feuille active!!! Donc activez déja une feuille en cliquant dans une cellule pour voir si ça donne ce que Jurassik pork a fait.
Avant de dire que ça marche pas faut d'abord bien tester.

je ne sais si vous avez essayer le code comme moi mais dans le contexte que j'indique ça ne marche pas !

Je me répète : je voudrais colorier une ligne dans un fichier excel

Apparemment quand on donne une couleur à une ligne es qu'on est obliger d'activer quoi que ce soit pour voir a l'ouverture que la couleur de cette ligne a changer ? ou bien c'est moi qui comprend pas

[Ry_Yo]

je viens juste de tester voila mon code :

// Tentative de récupération de l'objet Excel en mémoire
xl est un objet OLE dynamique = ObjetActif("Excel.Application")

// Allocation d'un objet Excel si non-trouvé
SI xl=Null ALORS xl=allouer un objet OLE "Excel.Application"

xl>>Visible=Faux // Excel n'apparait pas à l'écran

// Ouverture du document
xl>>WorkBooks>>Open(SAI_Saisie1)

// Récupération du contenu d'une cellule d'Excel
gsLenomd=xl>>Range("B"+IP)>>Value
gsLenom=Remplace(gsLenomd,"'","''")
xl>>ActiveSheet>>Rows(2)>>Interior>>Color = RVB(0,255,255)



à l'ouverture de mon fichier excel j'ai pas la couleur attendu

J'ai copié/collé votre code dans windev et lorsque je l'execute, j'ai bien la 2ème ligne de mon fichier excel qui passe en cyan.... Donc il s'est bien produit ce qu'il y a écrit : RVB(0,255,255)
Pouvez-vous mieux formuler votre demande ?

[jurassic pork]

Bonjour,
Devalender si tu mets Excel en invisible et que tu ne sauvegardes pas la feuille que tu manipules, je ne vois pas comment tu vas voir la ligne bleue apparaître si tu ouvres Excel ensuite.
Sois tu mets Excel en visible par :

Code :

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

xl>>Visible=Vrai

ou sois tu sauvegardes ce que tu as écris par un

Code :

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

xl>>ActiveWorkbook>>SaveAs("C:\Test.xls",-4143)

Ami calmant, J.P

[devalender]

ok là je pense que j'ai tout faux !

Sois tu mets Excel en visible par :
Code :
Sélectionner tout - Visualiser dans une fenêtre à part

xl>>Visible=Vrai

ou sois tu sauvegardes ce que tu as écris par un
Code :
Sélectionner tout - Visualiser dans une fenêtre à part

xl>>ActiveWorkbook>>SaveAs("C:\Test.xls",-4143)

Merçi pour la précision !

je test et je fais un retour

[devalender]

Apparemment sans modifier le code comme la dit Ry_Yo tout est passé, la je ne comprend plus rien bref, maintenant il me faut l'aide sur ces fonctions ! comme par exemple :

xl>>ActiveWorkbook>>SaveAs("C:\Test.xls",-4143)

syntaxe proposé par jurassic pork ou puis je les avoir ?
Merci a tous

[Ry_Yo]

Je ne sais pas où on peut trouver une aide didactique sur ce sujet, mais voilà comment j'ai toujours procédé :

1 - je crée une macro sous excel ou word
2 - j'enchaine la manipulation d'action voulu
3 - j'arrête la macro
4 - j'ouvre le code de la macro générée (ALT+F11)
5 - j'interprête le résultat pour Windev, à savoir que généralement, les appels aux membres ou classes sont remplacées dans Windev par '>>'

après je test côté windev pour voir si cela reproduit l'effet voulu...

Il existe peut-être une méthode plus simple, mais voilà comment je procède.

Bon dev. et courage !

[jurassic pork]

tu peux regarder aussi les méthodes de la classe CExcel dans l'exemple didactique "Pilotage de Excel".

Ami calmant, J.P

[devalender]

Merci beaucoup a tous !