Discussion :

[Vba14]

Bonjour à tous,

A partir d'un clic sur un bouton je souhaite pouvoir ouvrir un nouveau document Word, vierge, une page vide.

J'ai donc fait ça :

Code :

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

1
2
3
4
5
 
Sub AccueilWord()
    Set wordapp = CreateObject("word.Application")
    wordapp.Visible = True
End Sub

Il ouvre bien Word, mais reste dans la barre de tâche en bas, il ne s'ouvre pas en grand avec une page vide.
Que dois-je ajouter ? J'ai parcouru le forum, j'ai trouvé pour ouvrir un fichier déjà existant mais pas pour un document vierge, c'est-à-dire la création d'un document Word.

Merci par avance pour vos suggestions.

[Menhir]

Code :

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

wordapp.WindowState = wdWindowStateNormal

Lire :
https://docs.microsoft.com/fr-fr/off...on.windowstate
https://docs.microsoft.com/fr-fr/off....wdwindowstate

[Vba14]

Bonjour Menhir,

Merci pour ta réponse et la lecture... Je comprends mieux maintenant comment cela fonctionne. Il est évident que si je ne mets pas ce qu'il faut dans le code, ça va beaucoup moins bien marcher.

Je complète ce que j'ai déjà fait et je reviens.

[Vba14]

Voilà c'est fait et ça marche. J'ai changé mon code complètement et Word s'ouvre comme je le souhaite, un peu long à se mettre au bon format, mais c'est acceptable.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub AccueilWord()
Dim objWord As Object
Application.ScreenUpdating = False
Set objWord = CreateObject("Word.application")
 
With objWord
    .Visible = True
    .Documents.Add
    .Activate
    .WindowState = 1
End With
Application.ScreenUpdating = True
End Sub

Merci Menhir pour ton aide toujours aussi précieuse.
Amicalement