Les mémos
Je débute...
Visites

 988008 visiteurs

 1 visiteur en ligne

Recherche
 
Fermer

Lancer Word à l'avant-plan

A partir d'Access, on peu démarrer Word et déplacer sa fenêtre à l'avant plan avec la fonction suivante.

Option Compare Database
Option Explicit
'/
'/ A placer dans la partie déclarative
'/
Option Compare Database
Option Explicit
'
Public Declare Function SetForegroundWindow Lib "user32" ( _
                        ByVal hwnd As Long) As Long
'
Public Declare Function FindWindowA Lib "user32" ( _
                        ByVal IpClassName As String, _
                        ByVal IpWindowName As String) As Long

La fonction :

Function RunWord()
    Dim oApp As Object, hwnd As Long, cap As String

    Set oApp = CreateObject("Word.Application")
    oApp.Visible = True

    cap = oApp.Caption
    oApp.Caption = "-MonUniqueWord-"
    hwnd = FindWindowA(vbNullString, "-MonUniqueWord-")
    oApp.Caption = cap
    SetForegroundWindow hwnd
End Function


Catégorie : Les mémos - Vrac
Page lue 3865 fois