Ficher au 1er plan Senkeys
S
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