Bonsoir,
Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre
logiciel pendant le déclenchement de l'événement, je souhaite être
directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la
barre des tâches...
Est ce possible ?
Comment faire ?
Merci d'avance,
--
Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
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
LeSteph
Bonsoir , si excel clignote c'est déjà une info cela veut dire que excel appelle ... Docm a complèté déjà à la limite de mes connaissances désolé de ne pouvoir t'aider plus ,cela devient trop compliqué et je ne sais pas vraiment où tout cela veut mener, certains trouveront sûrement je te le souhaite, mais limite toi à un seul fil sinon plus personne ne suivra. à bientôt lSteph "Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
Bonsoir ,
si excel clignote c'est déjà une info
cela veut dire que excel appelle ...
Docm a complèté déjà à la limite de mes connaissances
désolé de ne pouvoir t'aider plus ,cela devient trop compliqué et
je ne sais pas vraiment où tout cela veut mener, certains trouveront
sûrement
je te le souhaite, mais limite toi à un seul fil sinon plus personne ne
suivra.
à bientôt
lSteph
"Leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message de news:
OHY3uxcxEHA.3668@tk2msftngp13.phx.gbl...
Bonsoir,
Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre
logiciel pendant le déclenchement de l'événement, je souhaite être
directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la
barre des tâches...
Est ce possible ?
Comment faire ?
Merci d'avance,
--
Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Bonsoir , si excel clignote c'est déjà une info cela veut dire que excel appelle ... Docm a complèté déjà à la limite de mes connaissances désolé de ne pouvoir t'aider plus ,cela devient trop compliqué et je ne sais pas vraiment où tout cela veut mener, certains trouveront sûrement je te le souhaite, mais limite toi à un seul fil sinon plus personne ne suivra. à bientôt lSteph "Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
Leo
bonsoir,
Ok Lsteph, je me limiterais à un seul fil.
Merci pour ton aide précieuse,
Je poursuis mon chemin, bonne route à toi..........
"LeSteph" a écrit dans le message de news:
Bonsoir , si excel clignote c'est déjà une info cela veut dire que excel appelle ... Docm a complèté déjà à la limite de mes connaissances désolé de ne pouvoir t'aider plus ,cela devient trop compliqué et je ne sais pas vraiment où tout cela veut mener, certains trouveront sûrement je te le souhaite, mais limite toi à un seul fil sinon plus personne ne suivra. à bientôt lSteph "Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
bonsoir,
Ok Lsteph, je me limiterais à un seul fil.
Merci pour ton aide précieuse,
Je poursuis mon chemin, bonne route à toi..........
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OL8fD1dxEHA.1260@TK2MSFTNGP12.phx.gbl...
Bonsoir ,
si excel clignote c'est déjà une info
cela veut dire que excel appelle ...
Docm a complèté déjà à la limite de mes connaissances
désolé de ne pouvoir t'aider plus ,cela devient trop compliqué et
je ne sais pas vraiment où tout cela veut mener, certains trouveront
sûrement
je te le souhaite, mais limite toi à un seul fil sinon plus personne ne
suivra.
à bientôt
lSteph
"Leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message de news:
OHY3uxcxEHA.3668@tk2msftngp13.phx.gbl...
Bonsoir,
Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre
logiciel pendant le déclenchement de l'événement, je souhaite être
directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la
barre des tâches...
Est ce possible ?
Comment faire ?
Merci d'avance,
--
Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Je poursuis mon chemin, bonne route à toi..........
"LeSteph" a écrit dans le message de news:
Bonsoir , si excel clignote c'est déjà une info cela veut dire que excel appelle ... Docm a complèté déjà à la limite de mes connaissances désolé de ne pouvoir t'aider plus ,cela devient trop compliqué et je ne sais pas vraiment où tout cela veut mener, certains trouveront sûrement je te le souhaite, mais limite toi à un seul fil sinon plus personne ne suivra. à bientôt lSteph "Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
twinley
bonjour,
Tu peux tenter : Dans outils options onglet général décoche ignorer les autres logiciels
Mais c'est sans garantie, je tâtonne -- à+twinley "Leo" a écrit dans le message de news:
bonsoir,
Ok Lsteph, je me limiterais à un seul fil.
Merci pour ton aide précieuse,
Je poursuis mon chemin, bonne route à toi..........
"LeSteph" a écrit dans le message de news:
Bonsoir , si excel clignote c'est déjà une info cela veut dire que excel appelle ... Docm a complèté déjà à la limite de mes connaissances désolé de ne pouvoir t'aider plus ,cela devient trop compliqué et je ne sais pas vraiment où tout cela veut mener, certains trouveront sûrement je te le souhaite, mais limite toi à un seul fil sinon plus personne ne suivra. à bientôt lSteph "Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la
barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
bonjour,
Tu peux tenter :
Dans outils options onglet général décoche ignorer les autres logiciels
Mais c'est sans garantie, je tâtonne
--
à+twinley
"Leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message de
news:OT4OtQexEHA.1988@TK2MSFTNGP12.phx.gbl...
bonsoir,
Ok Lsteph, je me limiterais à un seul fil.
Merci pour ton aide précieuse,
Je poursuis mon chemin, bonne route à toi..........
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
OL8fD1dxEHA.1260@TK2MSFTNGP12.phx.gbl...
Bonsoir ,
si excel clignote c'est déjà une info
cela veut dire que excel appelle ...
Docm a complèté déjà à la limite de mes connaissances
désolé de ne pouvoir t'aider plus ,cela devient trop compliqué et
je ne sais pas vraiment où tout cela veut mener, certains trouveront
sûrement
je te le souhaite, mais limite toi à un seul fil sinon plus personne ne
suivra.
à bientôt
lSteph
"Leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message de news:
OHY3uxcxEHA.3668@tk2msftngp13.phx.gbl...
Bonsoir,
Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre
logiciel pendant le déclenchement de l'événement, je souhaite être
directement redirigé sur excel. Aujourd'hui, seul excel clignote dans
la
barre des tâches...
Est ce possible ?
Comment faire ?
Merci d'avance,
--
Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Tu peux tenter : Dans outils options onglet général décoche ignorer les autres logiciels
Mais c'est sans garantie, je tâtonne -- à+twinley "Leo" a écrit dans le message de news:
bonsoir,
Ok Lsteph, je me limiterais à un seul fil.
Merci pour ton aide précieuse,
Je poursuis mon chemin, bonne route à toi..........
"LeSteph" a écrit dans le message de news:
Bonsoir , si excel clignote c'est déjà une info cela veut dire que excel appelle ... Docm a complèté déjà à la limite de mes connaissances désolé de ne pouvoir t'aider plus ,cela devient trop compliqué et je ne sais pas vraiment où tout cela veut mener, certains trouveront sûrement je te le souhaite, mais limite toi à un seul fil sinon plus personne ne suivra. à bientôt lSteph "Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la
barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
Michel Pierron
Bonjour Leo; As-tu essayé en plaçant dans ta procédure OnTime: AppActivate Application.Caption MP
"Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
Bonjour Leo;
As-tu essayé en plaçant dans ta procédure OnTime: AppActivate
Application.Caption
MP
"Leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message de
news:OHY3uxcxEHA.3668@tk2msftngp13.phx.gbl...
Bonsoir,
Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre
logiciel pendant le déclenchement de l'événement, je souhaite être
directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la
barre des tâches...
Est ce possible ?
Comment faire ?
Merci d'avance,
--
Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Bonjour Leo; As-tu essayé en plaçant dans ta procédure OnTime: AppActivate Application.Caption MP
"Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
Michel Pierron
RE Leo; Sinon, tu peux tenter:
Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetWindowTextLength Lib "user32.dll" _ Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetWindowText Lib "user32.dll" Alias _ "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String _ , ByVal nMaxCount As Long) As Long Private Declare Function EnumWindows Lib "user32.dll" _ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Private Declare Function IsWindowVisible Lib "user32" _ (ByVal hwnd As Long) As Long
Private Function EnumWindowsProc&(ByVal hwnd&, ByVal lParam&) Dim SLength&, Buffer As String SLength = GetWindowTextLength(hwnd) + 1 If SLength > 1 Then Buffer = Space(SLength) GetWindowText hwnd, Buffer, SLength If IsWindowVisible(hwnd) Then Select Case Left(Buffer, SLength - 1) Case "Program Manager" ' On change rien !!! Case Application.Caption: ShowWindow hwnd, 3 Case Else: ShowWindow hwnd, 2 End Select End If End If EnumWindowsProc = 1 End Function
Sub CommandButton1_Click() Application.OnTime Now + TimeValue("00:00:30"), "ActiverLaFenetreExcel" End Sub
Private Sub ActiverLaFenetreExcel() EnumWindows AddressOf EnumWindowsProc, 0 End Sub
MP
"Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
RE Leo;
Sinon, tu peux tenter:
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String _
, ByVal nMaxCount As Long) As Long
Private Declare Function EnumWindows Lib "user32.dll" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" _
(ByVal hwnd As Long) As Long
Private Function EnumWindowsProc&(ByVal hwnd&, ByVal lParam&)
Dim SLength&, Buffer As String
SLength = GetWindowTextLength(hwnd) + 1
If SLength > 1 Then
Buffer = Space(SLength)
GetWindowText hwnd, Buffer, SLength
If IsWindowVisible(hwnd) Then
Select Case Left(Buffer, SLength - 1)
Case "Program Manager" ' On change rien !!!
Case Application.Caption: ShowWindow hwnd, 3
Case Else: ShowWindow hwnd, 2
End Select
End If
End If
EnumWindowsProc = 1
End Function
Sub CommandButton1_Click()
Application.OnTime Now + TimeValue("00:00:30"), "ActiverLaFenetreExcel"
End Sub
Private Sub ActiverLaFenetreExcel()
EnumWindows AddressOf EnumWindowsProc, 0
End Sub
MP
"Leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message de
news:OHY3uxcxEHA.3668@tk2msftngp13.phx.gbl...
Bonsoir,
Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre
logiciel pendant le déclenchement de l'événement, je souhaite être
directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la
barre des tâches...
Est ce possible ?
Comment faire ?
Merci d'avance,
--
Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetWindowTextLength Lib "user32.dll" _ Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetWindowText Lib "user32.dll" Alias _ "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String _ , ByVal nMaxCount As Long) As Long Private Declare Function EnumWindows Lib "user32.dll" _ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Private Declare Function IsWindowVisible Lib "user32" _ (ByVal hwnd As Long) As Long
Private Function EnumWindowsProc&(ByVal hwnd&, ByVal lParam&) Dim SLength&, Buffer As String SLength = GetWindowTextLength(hwnd) + 1 If SLength > 1 Then Buffer = Space(SLength) GetWindowText hwnd, Buffer, SLength If IsWindowVisible(hwnd) Then Select Case Left(Buffer, SLength - 1) Case "Program Manager" ' On change rien !!! Case Application.Caption: ShowWindow hwnd, 3 Case Else: ShowWindow hwnd, 2 End Select End If End If EnumWindowsProc = 1 End Function
Sub CommandButton1_Click() Application.OnTime Now + TimeValue("00:00:30"), "ActiverLaFenetreExcel" End Sub
Private Sub ActiverLaFenetreExcel() EnumWindows AddressOf EnumWindowsProc, 0 End Sub
MP
"Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
Leo
Bonsoir,
Merci et BRAVO pour ces deux EXCELLENTES solutions.
MPFE est vraiment une mine d'or, ses contributeurs sont souvent incollables et sympathiques et les solutions toujours élégantes.
Nota : Pas très fort en API Windows le père LEO. Quelqu'un a une adresse Web, un livre à recommander ??????????
Leo
"Michel Pierron" a écrit dans le message de news: e$
RE Leo; Sinon, tu peux tenter:
Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetWindowTextLength Lib "user32.dll" _ Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetWindowText Lib "user32.dll" Alias _ "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String _ , ByVal nMaxCount As Long) As Long Private Declare Function EnumWindows Lib "user32.dll" _ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Private Declare Function IsWindowVisible Lib "user32" _ (ByVal hwnd As Long) As Long
Private Function EnumWindowsProc&(ByVal hwnd&, ByVal lParam&) Dim SLength&, Buffer As String SLength = GetWindowTextLength(hwnd) + 1 If SLength > 1 Then Buffer = Space(SLength) GetWindowText hwnd, Buffer, SLength If IsWindowVisible(hwnd) Then Select Case Left(Buffer, SLength - 1) Case "Program Manager" ' On change rien !!! Case Application.Caption: ShowWindow hwnd, 3 Case Else: ShowWindow hwnd, 2 End Select End If End If EnumWindowsProc = 1 End Function
Sub CommandButton1_Click() Application.OnTime Now + TimeValue("00:00:30"), "ActiverLaFenetreExcel" End Sub
Private Sub ActiverLaFenetreExcel() EnumWindows AddressOf EnumWindowsProc, 0 End Sub
MP
"Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
Bonsoir,
Merci et BRAVO pour ces deux EXCELLENTES solutions.
MPFE est vraiment une mine d'or, ses contributeurs sont souvent incollables
et sympathiques et les solutions toujours élégantes.
Nota :
Pas très fort en API Windows le père LEO.
Quelqu'un a une adresse Web, un livre à recommander ??????????
Leo
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
e$ztWQlxEHA.1400@TK2MSFTNGP11.phx.gbl...
RE Leo;
Sinon, tu peux tenter:
Private Declare Function ShowWindow Lib "user32" _
(ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32.dll" _
Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String _
, ByVal nMaxCount As Long) As Long
Private Declare Function EnumWindows Lib "user32.dll" _
(ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function IsWindowVisible Lib "user32" _
(ByVal hwnd As Long) As Long
Private Function EnumWindowsProc&(ByVal hwnd&, ByVal lParam&)
Dim SLength&, Buffer As String
SLength = GetWindowTextLength(hwnd) + 1
If SLength > 1 Then
Buffer = Space(SLength)
GetWindowText hwnd, Buffer, SLength
If IsWindowVisible(hwnd) Then
Select Case Left(Buffer, SLength - 1)
Case "Program Manager" ' On change rien !!!
Case Application.Caption: ShowWindow hwnd, 3
Case Else: ShowWindow hwnd, 2
End Select
End If
End If
EnumWindowsProc = 1
End Function
Sub CommandButton1_Click()
Application.OnTime Now + TimeValue("00:00:30"), "ActiverLaFenetreExcel"
End Sub
Private Sub ActiverLaFenetreExcel()
EnumWindows AddressOf EnumWindowsProc, 0
End Sub
MP
"Leo" <giorgi.leonello@wanadoo.fr> a écrit dans le message de
news:OHY3uxcxEHA.3668@tk2msftngp13.phx.gbl...
Bonsoir,
Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre
logiciel pendant le déclenchement de l'événement, je souhaite être
directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la
barre des tâches...
Est ce possible ?
Comment faire ?
Merci d'avance,
--
Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------
Merci et BRAVO pour ces deux EXCELLENTES solutions.
MPFE est vraiment une mine d'or, ses contributeurs sont souvent incollables et sympathiques et les solutions toujours élégantes.
Nota : Pas très fort en API Windows le père LEO. Quelqu'un a une adresse Web, un livre à recommander ??????????
Leo
"Michel Pierron" a écrit dans le message de news: e$
RE Leo; Sinon, tu peux tenter:
Private Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Private Declare Function GetWindowTextLength Lib "user32.dll" _ Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long Private Declare Function GetWindowText Lib "user32.dll" Alias _ "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String _ , ByVal nMaxCount As Long) As Long Private Declare Function EnumWindows Lib "user32.dll" _ (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long Private Declare Function IsWindowVisible Lib "user32" _ (ByVal hwnd As Long) As Long
Private Function EnumWindowsProc&(ByVal hwnd&, ByVal lParam&) Dim SLength&, Buffer As String SLength = GetWindowTextLength(hwnd) + 1 If SLength > 1 Then Buffer = Space(SLength) GetWindowText hwnd, Buffer, SLength If IsWindowVisible(hwnd) Then Select Case Left(Buffer, SLength - 1) Case "Program Manager" ' On change rien !!! Case Application.Caption: ShowWindow hwnd, 3 Case Else: ShowWindow hwnd, 2 End Select End If End If EnumWindowsProc = 1 End Function
Sub CommandButton1_Click() Application.OnTime Now + TimeValue("00:00:30"), "ActiverLaFenetreExcel" End Sub
Private Sub ActiverLaFenetreExcel() EnumWindows AddressOf EnumWindowsProc, 0 End Sub
MP
"Leo" a écrit dans le message de news:
Bonsoir, Je me sers de OnTime pour lancer une fenêtre. Si je suis sur un autre logiciel pendant le déclenchement de l'événement, je souhaite être directement redirigé sur excel. Aujourd'hui, seul excel clignote dans la barre des tâches...
Est ce possible ? Comment faire ?
Merci d'avance,
--
Amicalement Leo ---------------------------------------------------------- Pour les Riders, BMX, VTT, un seul site LITTLE BIG TRAIL http://perso.wanadoo.fr/lbt/ ----------------------------------------------------------
GD
Bonsour ® Leo , la bible se trouve là : 'URL: http://www.allapi.net/ '
télécharger le Api-guide.exe
@+
Bonsoir, Merci et BRAVO pour ces deux EXCELLENTES solutions. Nota : Pas très fort en API Windows le père LEO. Quelqu'un a une adresse Web, un livre à recommander ?????????? Leo
Bonsour ® Leo ,
la bible se trouve là :
'URL: http://www.allapi.net/
'KPDTeam@Allapi.net
télécharger le Api-guide.exe
@+
Bonsoir,
Merci et BRAVO pour ces deux EXCELLENTES solutions.
Nota :
Pas très fort en API Windows le père LEO.
Quelqu'un a une adresse Web, un livre à recommander ??????????
Leo
Bonsour ® Leo , la bible se trouve là : 'URL: http://www.allapi.net/ '
télécharger le Api-guide.exe
@+
Bonsoir, Merci et BRAVO pour ces deux EXCELLENTES solutions. Nota : Pas très fort en API Windows le père LEO. Quelqu'un a une adresse Web, un livre à recommander ?????????? Leo