Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ze Titi
Bonjour Fred
Colle ceci dans un module:
Public Const SW_HIDE = 0 Public Const SW_SHOWNORMAL = 1 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_RESTORE = 9 Public Const SW_MINIMIZE = 6
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long Public Declare Function SetFocusAPI Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
Sub donnerFocusApplicationActive(aName as String) Dim hwndPrev hwndPrev = FindWindow(vbNullString, aName If hwndPrev <> 0 Then ' si instance trouvée Call ShowWindow(hwndPrev, SW_SHOWMAXIMIZED) Call SetFocusAPI(hwndPrev) End If End Sub
Et tu appelles la fonction avec la syntaxe
Call donnerFocusApplicationActive("la fenêtre")
Je ne sais pas ce que ça peut donner, à tester donc...
Dans ton message <45a79509$0$25942$ du vendredi
Du forum, bonjour,
Je cherche un moyen de basculer sur une application active (en VBA) Quelqu'un a peut-être une idée ?
Merci d'avance Fred
-- Voilou ! Bon courage ! Cordialement, ze Titi
Bonjour Fred
Colle ceci dans un module:
Public Const SW_HIDE = 0
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_RESTORE = 9
Public Const SW_MINIMIZE = 6
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long,
ByVal nCmdShow As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA"
(ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Public Declare Function SetFocusAPI Lib "user32" Alias
"SetForegroundWindow" (ByVal hwnd As Long) As Long
Sub donnerFocusApplicationActive(aName as String)
Dim hwndPrev
hwndPrev = FindWindow(vbNullString, aName
If hwndPrev <> 0 Then ' si instance trouvée
Call ShowWindow(hwndPrev, SW_SHOWMAXIMIZED)
Call SetFocusAPI(hwndPrev)
End If
End Sub
Et tu appelles la fonction avec la syntaxe
Call donnerFocusApplicationActive("la fenêtre")
Je ne sais pas ce que ça peut donner, à tester donc...
Dans ton message <45a79509$0$25942$ba4acef3@news.orange.fr> du vendredi
Du forum, bonjour,
Je cherche un moyen de basculer sur une application active (en VBA)
Quelqu'un a peut-être une idée ?
Public Const SW_HIDE = 0 Public Const SW_SHOWNORMAL = 1 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_RESTORE = 9 Public Const SW_MINIMIZE = 6
Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long Public Declare Function SetFocusAPI Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long
Sub donnerFocusApplicationActive(aName as String) Dim hwndPrev hwndPrev = FindWindow(vbNullString, aName If hwndPrev <> 0 Then ' si instance trouvée Call ShowWindow(hwndPrev, SW_SHOWMAXIMIZED) Call SetFocusAPI(hwndPrev) End If End Sub
Et tu appelles la fonction avec la syntaxe
Call donnerFocusApplicationActive("la fenêtre")
Je ne sais pas ce que ça peut donner, à tester donc...
Dans ton message <45a79509$0$25942$ du vendredi
Du forum, bonjour,
Je cherche un moyen de basculer sur une application active (en VBA) Quelqu'un a peut-être une idée ?
