Discussion :

[setepenre]

Bonjour à tous,

Deux questions en une :

1 - Comme Sendkeys simule l'envoi d'une touche, existe-t-il quelque chose d'équivalent qui simulerait le click de la souris ?

2 - Est-il possible de bloquer l'usage de la souris (notamment son déplacement) pendant le fonctionnement d'une macro ?

Merci de votre aide.

[patricktoulon]

bonjour


il y a une solution parmi tant d'autre

sa serai de donner le focus a l'object en question(feuille ,control,ect...)

et de te servir de la fonction run

exemple:

tu a dans une feuille un bouton"commandbutton1"

Code :

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

1
2
3
 
sheets(1).shape("commandbutton1").select
Application.Run ("Feuil1.CommandButton1_Click")

ca n'est qu'une idée n'ayant pas plus de precision


au plaisir

[setepenre]

Bonjour Patrick,

En fait je cherche à manipuler des objets extérieurs à Excel.
J'ai une appli que j'appelle à travers un système sécurisé qui demande identifiant et tout le toutim.
Avec une séquence de Senkeys qui envoie des TAB et ENTER, j'arrive à me positionner sur des boutons ou des champs à saisir.
Mais là, j'ai un cas plus vicieux. L'appli que je veux titiller, accepte les envois de TAB, mais arrivé sur l'élément qui m'intéresse, la touche ENTER est inefficace (même avec la touche entrée réelle). Seul un clic de souris me permet d'activer l'élément. D'où ma demande de simulation de clic de souris.

Pour le deuxième cas, il s'agit d'un problème que je rencontre lorsque je lance un programme excel qui travaille sur une base de près de 20000 enregistrements. Le temps de traitement dépasse la minute. Pour faire patienter l'utilisateur, j'ouvre un petit formulaire qui affiche le stade d'évolution du traitement.
Mais si je déplace ma souris en dehors de la fenêtre excel, sur ma barre de lancement rapide par exemple, l'affichage de l'évolution du traitement s'arrête (toutefois le traitement continue).
Par contre si je lance une appli quelconque (IE par exemple), en attendant la fin du traitement excel, là le fonctionnement est perturbé, il devient erratique et me génère des erreurs. D'où ma deuxième demande de blocage de la souris pour empêcher cela. Tant pis, l'utilisateur ira boire une mousse en attendant la fin du traitement.

[Touffe54]

Cher Monsieur Setepenre,

J'ai lu avec grand intérêt votre question. C'est avec fougue et détermination que je m'empars du problème.

Après quelques recherches avancées, voici un lien qui devrait, j'en suis sûr, vous remplir d'allegresse.

Voici :

http://docvb.free.fr/apidetail.php?idapi=55

En vous souhaitant une agréable programmation...

[patricktoulon]

purrée de purée de zut

je l'avait oublié celle la et en plus ce lien est carement dans ma signature profile

cela dit il faut manipuler les apis avec delicatesse

alors attention


au plaisir

[Touffe54]

C'est pas grave, j'y avais pensé pour toi...

[setepenre]

Bonjour à vous,

Intéressant les APIs mais je bloque toujours.
En fait j'ai créé un objet InternetExplorer pour ouvrir une appli autre qu'Excel.
VBA me propose tout un tas de propriétés et méthodes pour cet objet mais, à part quelques uns, je ne vois pas à quoi ils servent.
C'est frustrant car je sens qu'il y a moyen de moyener avec tout ça.
J'ai aussi créé un objet Windows.
Ce qui est bizarre c'est que l'objet Windows a une propriété WindowState qui me permet de l'aggrandir au maximum mais avec xlMaximized et non vbMaximized. Mon objet InternetExplorer n'a pas cette propriété.

Je deviens fou. J'ai plein d'outils dans les mains mais je ne sais pas à quoi ils servent. Et il ne faut pas compter sur l'aide VBA d'Excel.

Y a-t-il quelque part une FAQ, un Tutoriel, un site qui me permettrait de comprendre tout cela ?

[patricktoulon]

bon

quand je disais qu'il faut faire appel aux api ca n'etait pas seulement celle de la souris

puisque que tu travail sur d'autre fenetres
il te faut dabors reconaitre leur handle

regarde du coté de
findwindowA
setwindowA
getwindowA

enfin selon ton niveau en vba je te conseille d'y aller pas a pas


bon courage

au plaisir

[fring]

Bonjour,

Il aurait été intéressant (et poli...) de poursuivre et de répondre aux propositions que tu as déjà reçues

http://www.developpez.net/forums/d10...lications-vba/

[setepenre]

Bonjour,

Il n'est pas dans mes habitudes d'être impoli.
Si cela peut te paraître le cas, je m'en excuse.
En fait je suis un peu jeune dans le forum et surtout peu habitué à ce genre de choses. C'est le premier et le seul forum auquel je participe.
Pour moi, Développez.com est comme un labyrinthe et parfois je suis un peu perdu. Chaque jour je découvre autre chose.
Pour ce qui est des messages passés, je les avais laissés un peu de côté car je n'avais encore pas résolu mon problème, d'où la mutiplicité des discussions que j'avais lancées. Aujourd'hui, j'ai du mal a les retrouver dans la forêt de toutes les discussions qui tombent.
C'est la raison pour laquelle je n'y ai plus donné suite.

Cordialement
Setepenre

[fring]

Aujourd'hui, j'ai du mal a les retrouver dans la forêt de toutes les discussions qui tombent.

Tu peux retrouver tes discussions via ton "Tableau de bord"
Click sur ton nom --> onglet statistiques --> Trouver toutes les discussions ouvertes par xxx

[setepenre]

Bonjour

Je voudrais jouer un peu avec les APIs gérant les fenêtres et la souris.
On m'a déjà donné qq conseils. On me parle de Handle.
J'ai trouvé dans la FAQ une routine qui permet de récupérer le Handle de la Calculatrice :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub ApplicationPremierPlan()
    Dim Hwnd As Long
 
    'Récupère le Handle d'une fenêtre (la calculatrice dans cet exemple).
    'Le Handle est un nombre entier unique généré par Windows afin d'identifier les fenêtres.
    '"Calculatrice" correspond au titre de la fenêtre.
    Hwnd = FindWindow(vbNullString, "Calculatrice")
 
    'Si la calculatrice est déjà ouverte
    If Hwnd > 0 Then
        'Ramène la calculatrice au premier plan
        BringWindowToTop Hwnd
        'Affiche en mode "Normal"
        ShowWindow Hwnd, 1
        Else
        'Sinon, ouvre la calculatrice
        Shell "C:\WINDOWS\system32\calc.exe", vbNormalFocus
    End If
End Sub

Ca marche mais quand je remplace le mot Calculatrice par le nom de l'appli que je veux manipuler, le Handle est égal à 0.
Je pense que le nom n'est pas bon. Celui qui apparaît sur le bandeau de la fenêtre comporte des points, des espaces des tirets. Je ne suis pas sûr d'avoir exactement la bonne orthographe.
Comment faire pour récupérer les noms des fenêtres ouvertes.

Merci de votre aide.

[Theze]

Bonsoir tout le monde,
setepenre, si tu veux bloquer Excel durant tontraitement, tu peu tester ceci :

Code :

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

1
2
3
4
5
6
7
8
 
 
'Ceci bloque Excel durant l'exécution du
'code hormis les boites de dialogues qui
'peuvent être utiles au fonctionnement de ce dernier
Application.Interactive = False
    'Ici ton code...
Application.Interactive = True

Hervé.