Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Comment obtenir le nom d'une fenêtre windows

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

R1-

XLDnaute Junior
Bonjour,

Dans le but d'automatiser un processus de saisie, j'utilise une macro VBA. Cependant, cette macro ouvre une sous-fenêtre dans le programme, ce qui fait que je perds le focus de la première fenêtre.
J'ai une méthode pour ramener une fenêtre au premier plan, mais elle nécessite le nom de la fenêtre en question. Le problème est que ce nom est variable, ce qui signifie que je dois récupérer les noms de toutes les fenêtres ouvertes sur le bureau afin de trouver celle qui m'intéresse pour la ramener au premier plan.

Ps : vous aviez déjà remarqué que les "sendkeys" désactivent le pavé numérique, moi non et c'est chiant.

Merci d'avance pour votre aide.

R1-
 
Solution
dysorthographie à dit:
Bonjour,
Si ces Macro ouvre des sous fenêtres,tu n'as pas besoins de sendkeys,tu as accès à tous les contrôles de la sous fenêtres.
Cliquez pour agrandir...
J'ai manqué de précision, elle ouvre une sous fenêtre dans un programme tiers.

topissime, merci pour le tuyaux, je n'avais jamais vraiment fait attention à ce problème de pavé numérique, je viens de percuter qu'aujourd'hui.

sylvanu à dit:
Qu'appelez vous une sous fenêtre ? Une feuille XL, un userform, un Msgbox, une autre appli ?
Ou mieux, avez vous un petit fichier test ?
Cliquez pour agrandir...
En fait, je m'attaque à l'automatisation de pas mal de processus notamment sur un outil nommé...
Trier par date Trier par votes
Bonjour R1,
Juste pour le second point :
R1- à dit:
vous aviez déjà remarqué que les "sendkeys" désactivent le pavé numérique, moi non et c'est chiant.
Cliquez pour agrandir...
La solution :

astuce pour application.sendkeys

Bonjour a tous Application.sendkeys"" is the solution il est arrivé a plusieurs d'entres nous d'utiliser le "Application.sendkeys"..." en VBA EXCEL et de voir notre pavé numérique se désactiver ce "Bug" est connu depuis des décennies a ce jour par l’intermédiaire de l'api getkeystate on...
excel-downloads.com

Qu'appelez vous une sous fenêtre ? Une feuille XL, un userform, un Msgbox, une autre appli ?
Ou mieux, avez vous un petit fichier test ?
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour,
Si ces Macro ouvre des sous fenêtres,tu n'as pas besoins de sendkeys,tu as accès à tous les contrôles de la sous fenêtres.

Si la sous fenêtres est appelé par Macro alors il est possible de fournir le formulaire appelant au formulaire appelé.

Si les informations doivent être récupérés par le formulaire appelant, alors il faut masque le formulaire appelé et pas le fermer pour que le formulaire appelant récupére les informations.

Mais pour cela il nous faut plus d'informations sur le déroulement de ton procès.
 
Dernière édition:
Réactions: R1-
Vote positif 0 Vote négatif
dysorthographie à dit:
Bonjour,
Si ces Macro ouvre des sous fenêtres,tu n'as pas besoins de sendkeys,tu as accès à tous les contrôles de la sous fenêtres.
Cliquez pour agrandir...
J'ai manqué de précision, elle ouvre une sous fenêtre dans un programme tiers.

topissime, merci pour le tuyaux, je n'avais jamais vraiment fait attention à ce problème de pavé numérique, je viens de percuter qu'aujourd'hui.

sylvanu à dit:
Qu'appelez vous une sous fenêtre ? Une feuille XL, un userform, un Msgbox, une autre appli ?
Ou mieux, avez vous un petit fichier test ?
Cliquez pour agrandir...
En fait, je m'attaque à l'automatisation de pas mal de processus notamment sur un outil nommé Cargowise spécialisé dans la gestion du fret maritime, de la GED et de la facturation. mais je pense que c'est une bataille perdue d'avance, pas d'API facilement appelable à mon niveaux, pas d'outil de scripting comme ceux que l'on pourrait trouver sur SAP, bref obligé d'utiliser une multitude de Send key, ce qui est une technique peu fiable et d'une barbarie sans nom 😅.
Bref pour revenir à mon problème de fenêtre j'ai fini par trouver la solution.

Comme on dit aide toi et le ciel t'aideras, voici donc la réponse à ma propre question (fonctionne en 64bits) :
VB: 
Option Explicit

    Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As Long) As Long
    Declare PtrSafe Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As LongPtr) As Long
    Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As LongPtr
    Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr

Const GW_HWNDNEXT As Long = 2

Sub ObtenirNomsFenetres()
    Dim hwnd As LongPtr
    Dim windowTitle As String
    Dim windowTextLength As Long
   
    hwnd = FindWindow(vbNullString, vbNullString)
   
    Do While hwnd <> 0
        windowTextLength = GetWindowTextLength(hwnd)
        If windowTextLength > 0 Then
            windowTitle = Space(windowTextLength + 1)
            GetWindowText hwnd, windowTitle , windowTextLength + 1
            windowTitle = Left(windowTitle, InStr(windowTitle, Chr(0)) - 1)
            MsgBox windowTitle
        End If
        hwnd = GetWindow(hwnd, GW_HWNDNEXT)
    Loop
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
[REF] Wiki Page 7 de MichelXld
Réponses
0
Affichages
51 K
MichelXld
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…