Microsoft 365 Réduction et activation excel et Word

[dubarre]

Bonjour à tous,

Je viens vers vous car j'ai une petite question j'ai essayé d'introduire le code suivant pour qu'il m'affiche automatiquement Word quand je clique sur le bouton le problème suivant il m'ouvre bien Word avec les données que je souhaite mais le problème il ne met toujours Excel au premier plan alors que je lui demande de mettre Word au premier plan mais cela ne veut pas fonctionner et je n'arrive pas à comprendre pourquoi je vous ai mis

Application.WindowState = xlMinimized
AppActivate "Word"

ce que j'ai rajouté pour essayer d'activer Word au premier plan pouvez-vous m'expliquer si je fais une erreur ou cela vient d'autres choses s'il vous plaît en vous remerciant d'avance.

Private Sub CommandButton6_Click()

Unload Me

Dim Wapp As Object, X$
On Error Resume Next
Set Wapp = GetObject(, "Word.Application")
If Wapp Is Nothing Then Set Wapp = CreateObject("Word.Application")
Wapp.Visible = True
Wapp.Documents.Open ThisWorkbook.Path & "\Courrier_Type_Artiste.docm" 'nom à adapter
With Wapp.ActiveDocument
    .Bookmarks("Date").Range = Date
    X = Replace(Replace(Replace(CbxCivilite, "M.", "Monsieur"), "Mme", "Madame"), "Mlle", "Mademoiselle")
    .Bookmarks("Civilite1").Range = X
    .Bookmarks("Civilite2").Range = X
    .Bookmarks("Civilite3").Range = X
    .Bookmarks("Nom").Range = TextBox24 & " " & TextBox2
    .Bookmarks("Adresse").Range = Mid(IIf(TextBox3 = "", "", vbLf & TextBox3) & IIf(TextBox4 = "", "", vbLf & TextBox4) _
        & IIf(TextBox5 = "", "", vbLf & TextBox5) _
        & IIf(TextBox6 = "", "", vbLf & TextBox6), 2) & vbLf & TextBox7 & " " & TextBox25 & IIf(TextBox9 = "", "", vbLf & TextBox9)
    '.bookmarks("Adresse2").range= mid(iif
End With
[FONT=arial][COLOR=rgb(0, 0, 0)]Application.WindowState = xlMinimized
AppActivate "Word" 'facultatif[/COLOR][/FONT]


End Sub

 

[Phil69970]

Bonjour dubarre, le forum

Essaye ceci à la fin de ton code :

AppActivate "Word" 'facultatif[/COLOR][/FONT]

'--Essaye de rajouter ces 2 lignes :

'---------------------
Wapp.Visible = True
Wapp.Activate
'--------------------
'--Fin du rajout -----

End Sub