URGENT : Activer Excel

Bonsoir giorgi.leonello

Peut-être ceci répond-il à ta question:

'Dans un module
Option Explicit

Declare Function ahtGetActiveWindow Lib "user32" Alias _
"GetActiveWindow" () As Long

Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long


Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Public Sub ActiverLaFenetreExcel()
Dim lRetval As Long
Dim hwnd As Long

ThisWorkbook.ActiveSheet.Select
hwnd = ahtGetActiveWindow

lRetval = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, _
0, FLAGS)
MsgBox "Allo"
End Sub
'-------------------------------

'Pour programmer l'appel de la procédure dans 10 secondes

Private Sub CommandButton1_Click()
Application.OnTime Now + TimeValue("00:00:10"), "ActiverLaFenetreExcel"
End Sub


"giorgi.leonello" <giorgi.leonello@wanadoo.fr> wrote in message
news:418ea408$0$18529$8fcfb975@news.wanadoo.fr...

Bonsoir,

Toujours pas trouvé de solution à l'activation d'excel, à l'ouverture
d'une

boite de dialogue.

Je suis sous un autre logiciel word par exemple, si excel ouvre une boite
de

dialogue, je souhaite qu'excel s'ouvre d'office.

Merci d'avance pour votre aide,


--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------

Bonsoir,

Ok, mais cela n'active pas excel .
La fenêtre est bien lancée, mais je reste sur le logiciel de départ !!!!

Ce que je souhaite, c'est qu'automatiquement excel apparaisse et que je
puisse répondre à la fenêtre.

Amicalement,
Leo



"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
#FeFfGTxEHA.1524@TK2MSFTNGP09.phx.gbl...

Bonsoir giorgi.leonello

Peut-être ceci répond-il à ta question:

'Dans un module
Option Explicit

Declare Function ahtGetActiveWindow Lib "user32" Alias _
"GetActiveWindow" () As Long

Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long


Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Public Sub ActiverLaFenetreExcel()
Dim lRetval As Long
Dim hwnd As Long

ThisWorkbook.ActiveSheet.Select
hwnd = ahtGetActiveWindow

lRetval = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, _
0, FLAGS)
MsgBox "Allo"
End Sub
'-------------------------------

'Pour programmer l'appel de la procédure dans 10 secondes

Private Sub CommandButton1_Click()
Application.OnTime Now + TimeValue("00:00:10"), "ActiverLaFenetreExcel"
End Sub


"giorgi.leonello" <giorgi.leonello@wanadoo.fr> wrote in message
news:418ea408$0$18529$8fcfb975@news.wanadoo.fr...

Bonsoir,

Toujours pas trouvé de solution à l'activation d'excel, à l'ouverture
d'une

boite de dialogue.

Je suis sous un autre logiciel word par exemple, si excel ouvre une
boite

de

dialogue, je souhaite qu'excel s'ouvre d'office.

Merci d'avance pour votre aide,


--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------




--

Amicalement
Leo
----------------------------------------------------------
Pour les Riders, BMX, VTT, un seul site
LITTLE BIG TRAIL
http://perso.wanadoo.fr/lbt/
----------------------------------------------------------