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

 1218168 visiteurs

 10 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 : Les mémos - Vrac
Page lue 5249 fois

Vous êtes ici :   Accueil » Démarrer Word