Ficher au 1er plan Senkeys

Bonjour,

malgré mes recherches, je sollicite votre aide...

A l'occasion de mon publipostage, mon fichier word demeure en arrière du dossier qui contient les fichier XL de ma base de données ... bref, je voudrai qu'à son ouverture le fichier word soit au premier plan afin de voir la fenêtre de message.

j'ai tenté les Appactivate mais cela ne fonctionne pas du tout...

une solution autre pourrait être une action "clavier" Windows + M afin de réduire dans la barre de menu la fenêtre me cachant le fichier Wd,

je tente le Sendkeys ("#e#"), true.... mais sans succès..... une idée ?

(on peut aussi envisager de réduire la taille de cette fenêtre mais je ne connais pas le programme à utiliser)

Merci par avance, ci dessous une partie de mon code...

• Private Sub CBFUSION_Click()
  Dim MonApplication As Object
  Dim MonFichier As String
  Dim DateConsult As String, nom As String, sauveg As String, prénom As String
  'If MsgBox("Création du fichier FUSION.xls." & Chr(10) & "Puis fermerture ...Continuer ?", vbInformation + vbOKCancel, "Fermeture de cette application") = vbOK Then
  Sheets("Victime").Select
  [A2].Select
  nom = ActiveCell
  If nom = "" Then
  nom = "Inconnu"
  End If
  [B2].Select
  prénom = ActiveCell
  [H2].Select
  DateConsult = ActiveCell
  sauveg = nom & "_" & prénom & "_"
  'Application.DisplayAlerts = False
  'Application.ScreenUpdating = True
  Unload UFAccueil
  MsgBox "La sauvegarde va démarrer"
  
  ActiveWorkbook.SaveAs Filename:="C:\Users\Bureau\Excel_FUSION.xls"
  ActiveWorkbook.SaveAs Filename:="C:\Users\stmal\'" & sauveg & "'"
  MsgBox "La sauvegarde est terminée"
  Application.Quit 'pour fermer Excel et n'avoir que Word à l'écran
  ' Pour ouvrir Word afin de réaliser le PUBLIPOSTAGE ---------------------------------
  Dim doc, wordapp
  Set wordapp = CreateObject("Word.application")
  wordapp.ShowMe
  wordapp.Visible = True
  wordapp.documents.Open ("C:\Users\Bureau\PUBLIPOSTAGE.doc")
  wordapp.Activate
  Application.Quit
  End Sub