Discussion :

[papy1947]

bonjour

j"ai créé une routine sub pour ouvrir et afficher un document word existant

lorsque je veux l'ouvrir a partir d'un formulaire
tout fonctionne parfaitement (je termine par wordapp.activate)

sauf que le document s'ouvre ds la barre des taches et non en plein écran

une piste : si je modifie la routine ds vba et que je sors pas de mon application ça fonctionne
mais dès que je ferme l'application et que je l'ouvre de nouveau rebelote ça ne va plus

une idée SVP et merci d'avance

[micniv]

Bonjour,
peut-être te manque-t'il

Code :

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

1
2
 wordApp.Visible = True
        wordApp.Activate

cordialement

[papy1947]

merci

mais j'ai essayé et ça ne donne rien
merci

[micniv]

Peux-tu afficher ton code pour ouvrir et afficher un document word existant ?

[papy1947]

Bonjour

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
Sub OpenDocument(N, c, m)
Dim WordApp As Word.Application
Dim WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    Set WordDoc = WordApp.Documents.Open("d:\acrf\recettes\R" & N & ".docx")
    With WordDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range
        .Text = "ACRF Cours de cuisine Claudine MARTINN   Numéro du cours : " & c & "   Date : " & m
        .Bold = True
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
    End With
 
 
        WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "CUISINE"
 
        WordApp.Visible = True
        WordApp.Activate
End Sub

MERCI

[micniv]

Avec Office 2010 (access + word), tout se passe bien comme attendu.
J'ai utilisé le code suivant dans un module standard , pas très différent du tien, et j'ai ajouté Enregistrer

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
Sub test()
    Dim s1 As String
    s1 = Application.CurrentProject.Path & "\" & "monDoc.docx"
    Call OpenDocument(s1, 102, Date)
End Sub
 
Private Sub OpenDocument(strFileName As String, lngCoursNum As Long, dt1 As Date)
    Dim WordApp As Word.Application, WordDoc As Word.Document
 
    Set WordApp = CreateObject("Word.Application")
    WordApp.Visible = True
    WordApp.Activate
 
    'Set WordDoc = WordApp.Documents.Open("d:\acrf\recettes\R" & N & ".docx")
    Set WordDoc = WordApp.Documents.Open(strFileName)
    With WordDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range
        .Text = "ACRF Cours de cuisine Claudine MARTIN   Numéro du cours : " & lngCoursNum & "   Date : " & dt1
        .Bold = True
        .ParagraphFormat.Alignment = wdAlignParagraphCenter
    End With
 
    WordDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "CUISINE"
 
    WordDoc.Save  ' Enregistrer
 
End Sub

est-ce que ça compile OK chez toit ?

[papy1947]

Bonjour

ça ne change rien si ce n'est que ça n"affiche plus la boite de dialogue enregistrer lors de la fermeture du fichier word

Merci

[micniv]

sauf que le document s'ouvre ds la barre des taches et non en plein écran

ça ne change rien

quand je lance cette procédure depuis Access, ça m'ouvre une fenetre word sur les 3/4 de l'écran : donc ça change !
Peut-etre ton word est-il minimisé par défaut ... dans ce cas ajoute

Code :

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

WordApp.ActiveWindow.WindowState = wdWindowStateMaximize   ' sinon wdWindowStateNormal

[papy1947]

bonjour
toujours pas de changement
merci pour aide

[Jean-Philippe André]

Bonjour,

puis-je suggérer une autre approche ?

Si je pars du principe que le remplissage du document word et son enregistrement fonctionne, mais que c'est l'affichage qui pose probleme, est-il possible de passer en bout de chaine avec un ShellExecute ?

Le pseudo code serait ainsi :

Code :

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

1
2
3
4
5
'remplissage du doc
'enregistrement du doc
'fermeture du doc
'fermeture de Word
'ShellExecute pour ouvrir le document

https://access.developpez.com/faq/?p...n#shellexecute

[papy1947]

bonjour

je vais essayer mais malgré mes 73 ans et des années de vba je n'ai jamais utilisé shellexecute
mais ça se tente je vous tiens au courant

merci

[papy1947]

bonjour

je vais essayer mais malgré mes 73 ans et des années de vba je n'ai jamais utilisé shellexecute
mais ça se tente je vous tiens au courant

merci

En fait je n'ai pas les connaissances nécessaires pour utiliser cette méthode

NB ce qui m'intrigue c'est que si je sors de l'éditeur vba ça fonctionne
c'est lorsque je ferme et rouvre access que ça ne fonctionne plus !!!!!!!!!!!!!!!!!!!!

merci encore pour votre aide

[micniv]

Est-ce que ce n'est pas simplement la fenêtre Word qui est derrière (et donc cachée) par la fenêtre Access ?

[papy1947]

Bonjour
Si 'est exactement ça
si je rends invisible le formulaire acces le document word apparaît
mais alors comment faire réapparaître le formulaire access a la fermeture de word

merci

[micniv]

Es-tu certain qu'après avoir lancé Word, tu n'executes aucune commande dans ACCESS (ce qui redonnerait le focus à Access) ?

si oui, essaye https://stackoverflow.com/questions/...bring-to-front
(la réponse : You can achieve what you want using APIS. I am using two APIs SetForegroundWindow and FindWindow )


cordialement

[electrosat03]

Salut papy1947,

J'ai le même problème que toi, et ça fait un moment que je cherche la solution.

N'est-il pas possible de mettre un code vba à la fermeture du document word de remettre access en plein écran.
Moi, je n'utilise que 2 documents et toujours les même.

Merci

[papy1947]

Bonjour
en ajoutant ceci a l'air de fonctionner

Code :

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

AppActivate "word", 1

si vous pouviez tester et me dire le résultat ça m'arrangerait

Merci

[electrosat03]

re,

Nickel, ça fonctionne.

Bien joué, MERCI