Discussion :

[papy1947]

Bonjour

Voici mon probleme
Voici le code de ma macro

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
Sub ouvrir()
Dim WApp As Word.Application
Dim WDoc As Word.Document
doca = "R" & ActiveCell.Value
Set WApp = CreateObject("Word.Application")
Set WDoc = WApp.Documents.Open("D:\acrf\docacrf\" & doca & ".docx")
da = "ACRF cours de cuisine   Madame Claudine Martin    " & MonthName(Month(ActiveCell.Offset(0, 4).Value)) & "   " & Year(ActiveCell.Offset(0, 4).Value)
With WDoc.Sections(1)
.Footers(wdHeaderFooterPrimary).Range.Text = da
.Footers(wdHeaderFooterPrimary).Range.Paragraphs.Alignment = wdAlignParagraphCenter
End With
Range("A1").Select
WApp.Visible = True
WApp.WindowState = wdWindowStateMaximize
WApp.Activate
WDoc.Activate
End Sub

cette macro fonctionne très bien sauf que word ne s'affiche pas au premier plan
bizarrement si après l'ouverture du classeur j'ouvre puis je ferme la fenêtre vba
cela fonctionne et word vient au premier plan !!!!!!!!!!!!!

si qqn peut m'aider merci d'avance

amarchal

[Menhir]

Code :

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

1
2
Set WApp = CreateObject("Word.Application")
Set WDoc = WApp.Documents.Open("D:\acrf\docacrf\" & doca & ".docx")

Plus simple :

Code :

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

Set WDoc = GetObject("D:\acrf\docacrf\" & doca & ".docx")

Pour ce qui est de passer au premier plan :

Code :

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

1
2
WDoc.Application.Visible = True    ' Pour faire afficher Word
WDoc.Application.Activate          ' Pour mettre le document créé au premier plan

Perso, j'ai procédé ainsi dans un de mes codes et ça fonctionne.
J'ai l'impression que tu as fait à peu près la même chose dans ton code. Si pour toi ça ne fonctionne pas, je ne sais pas pourquoi.

[unparia]

Bonjour Menhir

Si pour toi ça ne fonctionne pas, je ne sais pas pourquoi.

et moi non plus, sauf s'il a placé au premier plan systématique l'appli Excel ?
Mais il n'en dit rien. Le doute subsiste.

[papy1947]

merci d'avoir répondu
mais ça ne change rien

[unparia]

"ça", ce sont nos réponses (qui appellent un éclaircissement de ta part, et donc une réponse de ta part). ou autre chose (et quoi ?) ?

[papy1947]

bonjour

je m'excuse de cette réponse trop lacunaire en effet
en fait j'ai ajouté les deux lignes que vous aviez renseigné
et mon problème n'est pas résolu

en fait voici ce qui se passe

j'ouvre mon classeur
je lance ma macro par un double clic word s'ouvre mais reste en arrière plan
j'ouvre l'éditeur vba et je le referme instantanément
je relance ma macro et word vient au premier plan
j'espère avoir été assez explicite cette fois

merci de vous intéresser à mon problème