Discussion :

[Montor]

Merci
pour comprendre comment ça fonction alors le handle de fenêtre est passer par le paramètre wParam et après on fait un boucle pour trouver le handle de dernier control de type Static avec BWindow et enfin getwindowtext le texte de ce dernier


pour le CDO le code fonctionnait il y trois ans sur mon ancien compte Gmail mais

mon compte hotmail problème chez eux ils veulent arrêter ce service l'an prochain .

[AlainTech]

en fait tu me demandes de lâcher, je ne sais pas comment je vais pouvoir expliquer ça à mes utilisateurs qui sont persuadés que le programmeur sait tout faire

Bonjour,

Je crois que tu n'as pas compris ce qu'on essaye de te dire.
Les "messages Windows" comme tu dis, sont, la plupart du temps, évitables par un code bien conçu.
J'ai essayé de te le dire plus haut mais ma réponse a semblé ne pas te convenir.

Si tu nous donnes les portions de code qui provoquent ce genre de messages, on peut te montrer comment les corriger.

[Patnel]

Bon il y a du nouveau je vois.
Mon problème a l'air d’intéresser du monde.
Merci à Mentor
J'ai essayé brut de pomme ta méthode mais je suis comme sœur Anne je ne vois rien venir.

Si je n'utilise pas les méthode "Hook", le message Système apparait ( ceci répond à la question de AlainTech). Mais si je l'utilise rien ne se passe, le message système n'apparait pas. Je ne vois pas où vba peut gérer la réponse au message système : tu peux expliquer.

[patricktoulon]

Bonjour

Alors l'idée de montor n'était pas si mauvaise en fin de compte.
Par contre c'est son utilisation qui n'était forcément adaptée à ton cas .
Dans le code qu'il t'a donné, à un moment on peut récupérer les chaînes de caractères que constitue les titres des fenêtres ainsi que leurs contenus.
C'est là qu'il faut que tu agisses.

Je te laisse méditer la question.

[Montor]

Mais si je l'utilise rien ne se passe, le message système n'apparait pas

du doit faire le teste sur un fichiers qui est déjà enregistré sur ton pc si tu fait le test avec un nouveau tu dois cliquer deux fois ...

Je ne vois pas où vba peut gérer la réponse au message système

il serait inutile d'aller plus loin les messages windows ne fournissent aucune d'autre information supplémentaire.

placer uniqument le code de gestion des interrogations dans la fonction HookCallBack récupérer le texte de message via MessageText pour savoir le contextes de sa déclenchement.



@patricktoulon

[patricktoulon]

bonjour a tout les deux

montor pourrais tu lui faire un exemple

lui affichant un msgbox avec pour contenu le texte qui aurais du s'afficher sur le message windows
il comprendrais mieux peut etre ?

@montor

[Montor]

chose que j'ai fait

Code :

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

1
2
3
4
5
Private Sub HookCallBack(ByVal MessageText As String)
   MsgBox "Message :" & vbCr & "[" & MessageText & "]"
   'placer le code interception ici 
   DlgExitCode ID_NO  'simule click No
End Sub

maintenant comprends pourquoi cela ne fonctionne pas sous EXCEL2007
changer le code de la fonction BWindow

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function BWindow(ByVal H As Long) As Long
    H = GetWindow(H, GW_CHILD)
    Do
       BWindow = H
       If GetWindowTextLengthW(H) <> 0 Then
          If WinClass(H) <> "Button" Then
             Exit Do
          End If
       End If
       H = GetWindow(H, GW_HWNDNEXT)
    Loop Until H = 0
End Function

[Patnel]

je n'ai pas pu continuer sur le sujet car j' ai du passé sur un autre programme plus urgent pour ma boite.

en tout cas je remercie Mentor et Patrick, les infos données vont être exploitées dès que je peux.

je clos la discussion pour ne pas donner des boutons au webmester, qui n'aime pas les discussions qui traient.

Bonne année à tous

[AlainTech]

Bonjour,

Dommage que tu te sois entêté à vouloir aller dans une direction complexe alors qu'on t'a proposé de nous montrer des exemples de cas à traiter.

Mais tu es tellement certain que la solution doit être compliquée que tu restes sourd à nos propositions.

Vraiment dommage...