Bonjour =E0 tous,
J'ai install=E9 sur mon poste le Freeware =ABClickYes=BB pour=20
ne pas avoir =E0 r=E9pondre =E0 Outlook lorsque le message =ABUn=20
programme tente ...=BB
J'ai une macro qui appelle Outlook. ClickYes fait son=20
boulot mais je perd le focus sur excel.
Je cherche une commande (API ou VBA) qui permettrait =E0 la=20
macro de redonner le focus =E0 excel apr=E8s traitement.
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
papou
Bonjour Essaie avec une API. Exemple ici avec la macro Test (modifie la valeur string du nom exact de la fenêtre Excel - dans la barre de titre d'excel) Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Const SW_SHOWNORMAL = 1 Const WM_CLOSE = &H10 Const gcClassnameMSWord = "Microsoft Word" Const gcClassnameMSExcel = "Microsoft Excel" Sub test() Dim WinWnd As Long, RetVal As Long, lpClassName As String WinWnd = FindWindow(vbNullString, gcClassnameMSExcel & " - Tests20092004.xls") If WinWnd = 0 Then MsgBox "Impossible de trouver Excel": Exit Sub ShowWindow WinWnd, SW_SHOWNORMAL End Sub
Cordialement Pascal
"JF" a écrit dans le message de news:46bd01c49f0c$0ef508a0$ Bonjour à tous, J'ai installé sur mon poste le Freeware «ClickYes» pour ne pas avoir à répondre à Outlook lorsque le message «Un programme tente ...» J'ai une macro qui appelle Outlook. ClickYes fait son boulot mais je perd le focus sur excel. Je cherche une commande (API ou VBA) qui permettrait à la macro de redonner le focus à excel après traitement.
Merci de vos suggestions. JF
Bonjour
Essaie avec une API.
Exemple ici avec la macro Test (modifie la valeur string du nom exact de la
fenêtre Excel - dans la barre de titre d'excel)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal
nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const WM_CLOSE = &H10
Const gcClassnameMSWord = "Microsoft Word"
Const gcClassnameMSExcel = "Microsoft Excel"
Sub test()
Dim WinWnd As Long, RetVal As Long, lpClassName As String
WinWnd = FindWindow(vbNullString, gcClassnameMSExcel & " -
Tests20092004.xls")
If WinWnd = 0 Then MsgBox "Impossible de trouver Excel": Exit Sub
ShowWindow WinWnd, SW_SHOWNORMAL
End Sub
Cordialement
Pascal
"JF" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:46bd01c49f0c$0ef508a0$a601280a@phx.gbl...
Bonjour à tous,
J'ai installé sur mon poste le Freeware «ClickYes» pour
ne pas avoir à répondre à Outlook lorsque le message «Un
programme tente ...»
J'ai une macro qui appelle Outlook. ClickYes fait son
boulot mais je perd le focus sur excel.
Je cherche une commande (API ou VBA) qui permettrait à la
macro de redonner le focus à excel après traitement.
Bonjour Essaie avec une API. Exemple ici avec la macro Test (modifie la valeur string du nom exact de la fenêtre Excel - dans la barre de titre d'excel) Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Const SW_SHOWNORMAL = 1 Const WM_CLOSE = &H10 Const gcClassnameMSWord = "Microsoft Word" Const gcClassnameMSExcel = "Microsoft Excel" Sub test() Dim WinWnd As Long, RetVal As Long, lpClassName As String WinWnd = FindWindow(vbNullString, gcClassnameMSExcel & " - Tests20092004.xls") If WinWnd = 0 Then MsgBox "Impossible de trouver Excel": Exit Sub ShowWindow WinWnd, SW_SHOWNORMAL End Sub
Cordialement Pascal
"JF" a écrit dans le message de news:46bd01c49f0c$0ef508a0$ Bonjour à tous, J'ai installé sur mon poste le Freeware «ClickYes» pour ne pas avoir à répondre à Outlook lorsque le message «Un programme tente ...» J'ai une macro qui appelle Outlook. ClickYes fait son boulot mais je perd le focus sur excel. Je cherche une commande (API ou VBA) qui permettrait à la macro de redonner le focus à excel après traitement.
Merci de vos suggestions. JF
Gloops
ça vaut peut-être le coup de jeter un coup d'oeil à l'aide de Application.ActivateMicrosoftApp
Alors comme ça il n'y a rien, dans les options d'Outlook, pour qu'il ne pose plus la question ?
-----Message d'origine----- Bonjour à tous, J'ai installé sur mon poste le Freeware «ClickYes» pour ne pas avoir à répondre à Outlook lorsque le message «Un programme tente ...» J'ai une macro qui appelle Outlook. ClickYes fait son boulot mais je perd le focus sur excel. Je cherche une commande (API ou VBA) qui permettrait à la macro de redonner le focus à excel après traitement.
Merci de vos suggestions. JF .
ça vaut peut-être le coup de jeter un coup d'oeil à l'aide
de Application.ActivateMicrosoftApp
Alors comme ça il n'y a rien, dans les options d'Outlook,
pour qu'il ne pose plus la question ?
-----Message d'origine-----
Bonjour à tous,
J'ai installé sur mon poste le Freeware «ClickYes» pour
ne pas avoir à répondre à Outlook lorsque le message «Un
programme tente ...»
J'ai une macro qui appelle Outlook. ClickYes fait son
boulot mais je perd le focus sur excel.
Je cherche une commande (API ou VBA) qui permettrait à la
macro de redonner le focus à excel après traitement.
ça vaut peut-être le coup de jeter un coup d'oeil à l'aide de Application.ActivateMicrosoftApp
Alors comme ça il n'y a rien, dans les options d'Outlook, pour qu'il ne pose plus la question ?
-----Message d'origine----- Bonjour à tous, J'ai installé sur mon poste le Freeware «ClickYes» pour ne pas avoir à répondre à Outlook lorsque le message «Un programme tente ...» J'ai une macro qui appelle Outlook. ClickYes fait son boulot mais je perd le focus sur excel. Je cherche une commande (API ou VBA) qui permettrait à la macro de redonner le focus à excel après traitement.
Merci de vos suggestions. JF .
JF
ActivateMicrosoftApp : Hélas Non! Outlook 2000 à 2003 : Rien à faire! Merci quand même. Papou m'a refilé une API
-----Message d'origine----- ça vaut peut-être le coup de jeter un coup d'oeil à l'aide
de Application.ActivateMicrosoftApp
Alors comme ça il n'y a rien, dans les options d'Outlook,
pour qu'il ne pose plus la question ?
-----Message d'origine----- Bonjour à tous, J'ai installé sur mon poste le Freeware «ClickYes» pour ne pas avoir à répondre à Outlook lorsque le message «Un
programme tente ...» J'ai une macro qui appelle Outlook. ClickYes fait son boulot mais je perd le focus sur excel. Je cherche une commande (API ou VBA) qui permettrait à la
macro de redonner le focus à excel après traitement.
Merci de vos suggestions. JF .
.
ActivateMicrosoftApp : Hélas Non!
Outlook 2000 à 2003 : Rien à faire!
Merci quand même. Papou m'a refilé une API
-----Message d'origine-----
ça vaut peut-être le coup de jeter un coup d'oeil à
l'aide
de Application.ActivateMicrosoftApp
Alors comme ça il n'y a rien, dans les options
d'Outlook,
pour qu'il ne pose plus la question ?
-----Message d'origine-----
Bonjour à tous,
J'ai installé sur mon poste le Freeware «ClickYes» pour
ne pas avoir à répondre à Outlook lorsque le
message «Un
programme tente ...»
J'ai une macro qui appelle Outlook. ClickYes fait son
boulot mais je perd le focus sur excel.
Je cherche une commande (API ou VBA) qui permettrait à
la
macro de redonner le focus à excel après traitement.
ActivateMicrosoftApp : Hélas Non! Outlook 2000 à 2003 : Rien à faire! Merci quand même. Papou m'a refilé une API
-----Message d'origine----- ça vaut peut-être le coup de jeter un coup d'oeil à l'aide
de Application.ActivateMicrosoftApp
Alors comme ça il n'y a rien, dans les options d'Outlook,
pour qu'il ne pose plus la question ?
-----Message d'origine----- Bonjour à tous, J'ai installé sur mon poste le Freeware «ClickYes» pour ne pas avoir à répondre à Outlook lorsque le message «Un
programme tente ...» J'ai une macro qui appelle Outlook. ClickYes fait son boulot mais je perd le focus sur excel. Je cherche une commande (API ou VBA) qui permettrait à la
macro de redonner le focus à excel après traitement.
Merci de vos suggestions. JF .
.
Merci!
-----Message d'origine----- Bonjour Essaie avec une API. Exemple ici avec la macro Test (modifie la valeur string du nom exact de la
fenêtre Excel - dans la barre de titre d'excel) Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal
nCmdShow As Long) As Long Const SW_SHOWNORMAL = 1 Const WM_CLOSE = &H10 Const gcClassnameMSWord = "Microsoft Word" Const gcClassnameMSExcel = "Microsoft Excel" Sub test() Dim WinWnd As Long, RetVal As Long, lpClassName As String WinWnd = FindWindow(vbNullString, gcClassnameMSExcel & " -
Tests20092004.xls") If WinWnd = 0 Then MsgBox "Impossible de trouver Excel": Exit Sub
ShowWindow WinWnd, SW_SHOWNORMAL End Sub
Cordialement Pascal
"JF" a écrit dans le message de
news:46bd01c49f0c$0ef508a0$ Bonjour à tous, J'ai installé sur mon poste le Freeware «ClickYes» pour ne pas avoir à répondre à Outlook lorsque le message «Un programme tente ...» J'ai une macro qui appelle Outlook. ClickYes fait son boulot mais je perd le focus sur excel. Je cherche une commande (API ou VBA) qui permettrait à la macro de redonner le focus à excel après traitement.
Merci de vos suggestions. JF
.
Merci!
-----Message d'origine-----
Bonjour
Essaie avec une API.
Exemple ici avec la macro Test (modifie la valeur string
du nom exact de la
fenêtre Excel - dans la barre de titre d'excel)
Private Declare Function FindWindow Lib "user32"
Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As
Long
Private Declare Function ShowWindow Lib "user32" (ByVal
hwnd As Long, ByVal
nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const WM_CLOSE = &H10
Const gcClassnameMSWord = "Microsoft Word"
Const gcClassnameMSExcel = "Microsoft Excel"
Sub test()
Dim WinWnd As Long, RetVal As Long, lpClassName As String
WinWnd = FindWindow(vbNullString, gcClassnameMSExcel
& " -
Tests20092004.xls")
If WinWnd = 0 Then MsgBox "Impossible de trouver
Excel": Exit Sub
ShowWindow WinWnd, SW_SHOWNORMAL
End Sub
Cordialement
Pascal
"JF" <anonymous@discussions.microsoft.com> a écrit dans
le message de
news:46bd01c49f0c$0ef508a0$a601280a@phx.gbl...
Bonjour à tous,
J'ai installé sur mon poste le Freeware «ClickYes» pour
ne pas avoir à répondre à Outlook lorsque le message «Un
programme tente ...»
J'ai une macro qui appelle Outlook. ClickYes fait son
boulot mais je perd le focus sur excel.
Je cherche une commande (API ou VBA) qui permettrait à la
macro de redonner le focus à excel après traitement.
-----Message d'origine----- Bonjour Essaie avec une API. Exemple ici avec la macro Test (modifie la valeur string du nom exact de la
fenêtre Excel - dans la barre de titre d'excel) Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal
nCmdShow As Long) As Long Const SW_SHOWNORMAL = 1 Const WM_CLOSE = &H10 Const gcClassnameMSWord = "Microsoft Word" Const gcClassnameMSExcel = "Microsoft Excel" Sub test() Dim WinWnd As Long, RetVal As Long, lpClassName As String WinWnd = FindWindow(vbNullString, gcClassnameMSExcel & " -
Tests20092004.xls") If WinWnd = 0 Then MsgBox "Impossible de trouver Excel": Exit Sub
ShowWindow WinWnd, SW_SHOWNORMAL End Sub
Cordialement Pascal
"JF" a écrit dans le message de
news:46bd01c49f0c$0ef508a0$ Bonjour à tous, J'ai installé sur mon poste le Freeware «ClickYes» pour ne pas avoir à répondre à Outlook lorsque le message «Un programme tente ...» J'ai une macro qui appelle Outlook. ClickYes fait son boulot mais je perd le focus sur excel. Je cherche une commande (API ou VBA) qui permettrait à la macro de redonner le focus à excel après traitement.
