Bonjour
J'ai la procédure qui permet de lancer la calculatrice :
Application.ActivateMicrosoftApp 0
est-il possible de choisir son positionnement un peu comme lorsque l'on
lance un userform ?
Merci beaucoup
Michel
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
Michel Pierron
Bonjour Michel;
Private Declare Function MoveWindow& Lib _ "user32" (ByVal hwnd&, ByVal x&, ByVal y& _ , ByVal nWidth&, ByVal nHeight&, ByVal bRepaint&) Private Declare Function FindWindow& _ Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName$, ByVal lpWindowName$) Private Declare Function GetWindowRect& _ Lib "user32" (ByVal hwnd&, lpRect As RECT) Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Sub OuJeVeux() Const L& = 100, T& = 200 Dim hwnd, R As RECT Application.ActivateMicrosoftApp 0 hwnd = FindWindow(vbNullString, "Calculatrice") GetWindowRect hwnd, R MoveWindow hwnd, L, T, R.Right - R.Left, R.Bottom - R.Top, 1 End Sub
MP
"Michel" a écrit dans le message de news:
Bonjour J'ai la procédure qui permet de lancer la calculatrice : Application.ActivateMicrosoftApp 0 est-il possible de choisir son positionnement un peu comme lorsque l'on lance un userform ? Merci beaucoup Michel
Bonjour Michel;
Private Declare Function MoveWindow& Lib _
"user32" (ByVal hwnd&, ByVal x&, ByVal y& _
, ByVal nWidth&, ByVal nHeight&, ByVal bRepaint&)
Private Declare Function FindWindow& _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function GetWindowRect& _
Lib "user32" (ByVal hwnd&, lpRect As RECT)
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Sub OuJeVeux()
Const L& = 100, T& = 200
Dim hwnd, R As RECT
Application.ActivateMicrosoftApp 0
hwnd = FindWindow(vbNullString, "Calculatrice")
GetWindowRect hwnd, R
MoveWindow hwnd, L, T, R.Right - R.Left, R.Bottom - R.Top, 1
End Sub
MP
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
eR9fRHZRFHA.2228@TK2MSFTNGP12.phx.gbl...
Bonjour
J'ai la procédure qui permet de lancer la calculatrice :
Application.ActivateMicrosoftApp 0
est-il possible de choisir son positionnement un peu comme lorsque l'on
lance un userform ?
Merci beaucoup
Michel
Private Declare Function MoveWindow& Lib _ "user32" (ByVal hwnd&, ByVal x&, ByVal y& _ , ByVal nWidth&, ByVal nHeight&, ByVal bRepaint&) Private Declare Function FindWindow& _ Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName$, ByVal lpWindowName$) Private Declare Function GetWindowRect& _ Lib "user32" (ByVal hwnd&, lpRect As RECT) Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Sub OuJeVeux() Const L& = 100, T& = 200 Dim hwnd, R As RECT Application.ActivateMicrosoftApp 0 hwnd = FindWindow(vbNullString, "Calculatrice") GetWindowRect hwnd, R MoveWindow hwnd, L, T, R.Right - R.Left, R.Bottom - R.Top, 1 End Sub
MP
"Michel" a écrit dans le message de news:
Bonjour J'ai la procédure qui permet de lancer la calculatrice : Application.ActivateMicrosoftApp 0 est-il possible de choisir son positionnement un peu comme lorsque l'on lance un userform ? Merci beaucoup Michel
Michel
Merci beaucoup Michel Michel
"Michel Pierron" a écrit dans le message de news:
Bonjour Michel;
Private Declare Function MoveWindow& Lib _ "user32" (ByVal hwnd&, ByVal x&, ByVal y& _ , ByVal nWidth&, ByVal nHeight&, ByVal bRepaint&) Private Declare Function FindWindow& _ Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName$, ByVal lpWindowName$) Private Declare Function GetWindowRect& _ Lib "user32" (ByVal hwnd&, lpRect As RECT) Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Sub OuJeVeux() Const L& = 100, T& = 200 Dim hwnd, R As RECT Application.ActivateMicrosoftApp 0 hwnd = FindWindow(vbNullString, "Calculatrice") GetWindowRect hwnd, R MoveWindow hwnd, L, T, R.Right - R.Left, R.Bottom - R.Top, 1 End Sub
MP
"Michel" a écrit dans le message de news:
Bonjour J'ai la procédure qui permet de lancer la calculatrice : Application.ActivateMicrosoftApp 0 est-il possible de choisir son positionnement un peu comme lorsque l'on lance un userform ? Merci beaucoup Michel
Merci beaucoup Michel
Michel
"Michel Pierron" <michel.pierron@free.fr> a écrit dans le message de news:
efKtZzZRFHA.580@TK2MSFTNGP15.phx.gbl...
Bonjour Michel;
Private Declare Function MoveWindow& Lib _
"user32" (ByVal hwnd&, ByVal x&, ByVal y& _
, ByVal nWidth&, ByVal nHeight&, ByVal bRepaint&)
Private Declare Function FindWindow& _
Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName$, ByVal lpWindowName$)
Private Declare Function GetWindowRect& _
Lib "user32" (ByVal hwnd&, lpRect As RECT)
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Sub OuJeVeux()
Const L& = 100, T& = 200
Dim hwnd, R As RECT
Application.ActivateMicrosoftApp 0
hwnd = FindWindow(vbNullString, "Calculatrice")
GetWindowRect hwnd, R
MoveWindow hwnd, L, T, R.Right - R.Left, R.Bottom - R.Top, 1
End Sub
MP
"Michel" <m.hirt@club-internet.fr> a écrit dans le message de news:
eR9fRHZRFHA.2228@TK2MSFTNGP12.phx.gbl...
Bonjour
J'ai la procédure qui permet de lancer la calculatrice :
Application.ActivateMicrosoftApp 0
est-il possible de choisir son positionnement un peu comme lorsque l'on
lance un userform ?
Merci beaucoup
Michel
Private Declare Function MoveWindow& Lib _ "user32" (ByVal hwnd&, ByVal x&, ByVal y& _ , ByVal nWidth&, ByVal nHeight&, ByVal bRepaint&) Private Declare Function FindWindow& _ Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName$, ByVal lpWindowName$) Private Declare Function GetWindowRect& _ Lib "user32" (ByVal hwnd&, lpRect As RECT) Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Sub OuJeVeux() Const L& = 100, T& = 200 Dim hwnd, R As RECT Application.ActivateMicrosoftApp 0 hwnd = FindWindow(vbNullString, "Calculatrice") GetWindowRect hwnd, R MoveWindow hwnd, L, T, R.Right - R.Left, R.Bottom - R.Top, 1 End Sub
MP
"Michel" a écrit dans le message de news:
Bonjour J'ai la procédure qui permet de lancer la calculatrice : Application.ActivateMicrosoftApp 0 est-il possible de choisir son positionnement un peu comme lorsque l'on lance un userform ? Merci beaucoup Michel
