Excel. Programmer un clic de souris

Bonjour à tous, et heureux de vous revoir.

Dans un tableau Excel, je voudrais "simuler" ou plutôt programmer, un clic de souris à un endroit précis.

J'essaie de joindre la capture d'écran :

Pièce jointe 643575

J'espère que ça passe.

Cela m'éviterait de passer les tabsheets en revue les uns après les autres, pour trier par ordre alphabétique.

Est-ce possible ?

Merci ;)

Le rapport avec Delphi ? S'il y en a un, il serait peut-être bon d'indiquer comment vous accédez à Excel (Ole ou autre) ?

A voir si tu peux récupérer ce bouton par FindWindow, déterminer sa position à l'écran pour ensuite générer de commandes par mouse_event ou SendInput.

On pourrait certainement aussi le faire par UIAutomation mais là ça requiert de connaitre précisément la structure de la page (hiérarchie de objets au sens UIA).

Bonjour :)
Merci pour vos réponses.

J'y vais comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Procedure Ouvrir_Classeur; begin   ExcelApp := TExcelApplication.Create(nil); Class_Base := ExcelApp.Workbooks.Open(Nom_Cplt_Classeur_Base_Existant,False,False, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);   ExcelApp.Connect; LCID_Classeur := GetUserDefaultLCID; ExcelApp.Visible[LCID_Classeur] := False;   end;

---

OLE... Ca reste un peu de ça (je le vois bien quand ça plante quelque part : une erreur d'index sur un TabSheet mal orthographié, par exemple).

Là, je préfère y aller par TExcelApplication .

Oui : je connais bien le tableau (je l'ai fait). Donc, je dois chercher le bouton. Merci ! Je vais voir ça.

Si le but c'est de demander à excel de trier certaines colonnes, c'est certainement faisable par OLE, non ?

Heu... Je ne dis pas non.
Je dis seulement que je ne suis pas tout à fait de votre niveau :D

Concrètement : il n'y a pas un tuto, là-dessus ?
Ceux de Microsoft sont prévus pour les macros en VB. Je le lis encore. Mais n'y ai plus touché depuis la fin des années 80. :/ Plus rarement pour le C. J'ignore pourquoi.

Dans les cours de Developpez.net, relatifs à Excel, je n'ai rien trouvé là-dessus...

De mémoire, une petite astuce consiste à enregistrer une macro et à récupérer le code généré.
Il devrait être adaptable avec l'interop.

Pour trier sur le colonne B.
Cela donne le VBA suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add2 Key:=Range("B1:B15") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Feuil1").Sort .SetRange Range("A1:B15") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With

---

Tout ces objets sont accessibles via COM.
Reste plus qu'à traduire.

salut

tu aurais pu cherhcer dans le forum par exemple ici