Discussion :

[SuzyR]

Bonjour à tous,

La procédure ci-dessous permet d'ouvrir un fichier Word depuis Access.

Malheureusement le fichier s'ouvre réduit dans la barre d'état et j'aimerais qu'il s'affiche au premier plan.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub OpenDocument(vNomFichierWord)
  Set appwd = CreateObject("Word.Application")
  With appwd
      .Visible = True
      .Documents.Add Template:=vNomFichierWord, NewTemplate:=False, DocumentType:=0
      .Activate
  End With
End Sub

Merci d'avance pour votre aide !

Bonne journée à tous.
SuzyR

[marsouin_89]

Bonsoir,

Au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.Activate

essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.ActiveWindow.WindowState wdWindowStateMaximize'Agrandit la fenêtre Word                     
.Application.Activate 'Active l'application

Cordialement

Christophe

[SuzyR]

Salut Christophe,

Merci pour ta réponse ! Malheureusement ça ne fonctionne pas mais je me suis peut-être mal exprimée.

On voit bien le document Word s'ouvrir en plein écran mais ensuite c'est Access d'où est lancée la procédure qui s'affiche et je voudrais que ce soit Word.

Cordialement,
SuzyR

[argyronet]

Bonjour,

Modifie ton code comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub OpenDocument(ByVal vNomFichierWord As String)
Dim appWD                                              As Object
 
    Set appWD = CreateObject("Word.Application")
    With appWD
        .Visible = True
        .Documents.Add Template:=vNomFichierWord, NewTemplate:=False, DocumentType:=0
        .WindowState = wdWindowStateMaximize
        .Activate
    End With
End Sub

Ca devrait répondre à ta demande...

Sinon, il faudra passer par un FindWindow() et un SetForegroundWindow() car il est probable que ton Access affiche un formulaire modal.

Argy

[SuzyR]

Bonsoir argyronet,

Je m'aperçois que je n'ai jamais pris connaissance de ta réponse et ce soir je suis à nouveau confrontée au même problème et après une recherche j'arrive ici et ça fonctionne !

Alors mieux vaut tard que jamais : un grand merci !

SuzyR