Bonjour, il y aurait il un moyen d'activer une application qui est déjà en cours d'éxécution svp
Merci et bonne journée
Bonjour, il y aurait il un moyen d'activer une application qui est déjà en cours d'éxécution svp
Merci et bonne journée
Bonjour
Quelle application ?
Une application Office que tu pilotes ou une autre qui n'a rien à voir avec Ms Office ?
Philippe
C'est pas une application office mais un logiciel que j'utilise au travail et qui est en permanence en route. En fait j'ai commencé à faire un fichier excel avec possibilité d'envoyer un mail via un bouton et j'aimerais pouvoir faire une copie d'écran de l'application que je dois activer avec ma macro (comme Alt+Impr écran sous windows) et la joindre au mail.
Cela fonctionne mais comment faire en sorte que ça me face une copie d'écran de la fenêtre active comme Alt+Impr écran :s
Peut on simuler l'appui sur les touches alt+Impr écran et coller le screenshot ? thx
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassname As String, ByVal lpWindowName As String) As Long Declare Function SetForegroundWindow Lib "user32" _ (ByVal hwnd As Long) As Long Declare Function ShowWindow Lib "user32" _ (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long ' ShowWindow() Commands Public Const SW_HIDE = 0 Public Const SW_SHOWNORMAL = 1 Public Const SW_NORMAL = 1 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_MAXIMIZE = 3 Public Const SW_SHOWNOACTIVATE = 4 Public Const SW_SHOW = 5 Public Const SW_MINIMIZE = 6 Public Const SW_SHOWMINNOACTIVE = 7 Public Const SW_SHOWNA = 8 Public Const SW_RESTORE = 9 Public Const SW_SHOWDEFAULT = 10 Public Const SW_MAX = 10 Sub ActiveMailWord() Dim hwnd As Long Logiciel = "Lecteur Multimédia VLC" hwnd = FindWindow(vbNullString, Logiciel) ' Hwnd = FindWindow("OpusApp", vbNullString) If hwnd = 0 Then Exit Sub SetForegroundWindow hwnd ShowWindow hwnd, SW_SHOWMAXIMIZED End Sub
bonjour
un peu de recherches t'aurait apporté les réponses
regarde dans la faq tu a exactement ca
tu a : comment faire une capture d'écran
tu a comment faire une capture d'une fenêtre en particulier (adapté a un userform mais avec les apis tu peut facilement l'adapter a une autre fenêtre par son handle
allez un peu de recherche
ceciça te prend la fenêtre qui a le focus en cliché
il te reste plus qu'a trouver comment metre une fenetre en avant plan (focus)
tu a ca dans la faq aussi
pour t'aider dans ta recherche il te faut
regarder du coté des api
1° "findwindowA" librairie user32 dll
2 "showwindowA" librairie user32 dll
iol te faudra aussi peut etre gérer les processus aussi
ou tout simplement une 3 eme api:"GetForegroundWindow"librairie user32 dll
allez courage
au plaisir
il est possible d'enregistrer l'image du presse papier sans le coller dans une feuille excel, c'est à dire enregistrer directement le presse papier en format jpg ?
oui c'est possible![]()
regarde du coté de mon fichier "cliché de selection " dans les contribution
quand j'ai copié une selection de cellules je place ce que je recupére dans le
presse papier dans un bitmap sans la placer dans un sheets
a ma connaissance je n'ai trouver aucune autre solution
tu n'a qu'a récupérer la macro qui charge un bitmap elle est assez generique
au plaisir
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager