En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1222959 visiteurs

 9 visiteurs en ligne

Nous contacter

Contact

Démarrer Word

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 : - Vrac
Page lue 5275 fois
Vous êtes ici :   Accueil » Démarrer Word