Word dans access vba

Version imprimable

15/04/2020, 16h22
papy1947

Word dans access vba

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
15/04/2020, 17h06
micniv
Bonjour,
peut-être te manque-t'il
Code:

1 2 wordApp.Visible = True wordApp.Activate
cordialement
15/04/2020, 17h30
papy1947

merci

mais j'ai essayé et ça ne donne rien
merci
15/04/2020, 18h13
micniv

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

Bonjour

Code:

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

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:

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 ?

16/04/2020, 12h01
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
16/04/2020, 12h31
micniv

Citation:

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

Citation:

ç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:

WordApp.ActiveWindow.WindowState = wdWindowStateMaximize ' sinon wdWindowStateNormal
16/04/2020, 14h15
papy1947

bonjour
toujours pas de changement
merci pour aide
16/04/2020, 15h51
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:

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
16/04/2020, 16h28
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
16/04/2020, 20h41
papy1947

Citation:

Envoyé par 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
17/04/2020, 09h36
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 ?
17/04/2020, 10h39
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
17/04/2020, 11h16
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
17/04/2020, 12h03
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
18/04/2020, 16h10
papy1947

Bonjour
en ajoutant ceci a l'air de fonctionner

Code:

AppActivate "word", 1

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

Merci
18/04/2020, 18h28
electrosat03

re,

Nickel, ça fonctionne.

Bien joué, MERCI