[VB6] Suppression message ou envoyer un sendkeys

Suppression message ou envoyer un sendkeys [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 14-11-2005 à 16:15:07    

Salut à tous, :hello:  
 
Je vous explique le principe de base : dans mon programme je lance un fichier word, ensuite lorsque la personne a fini de le consulter, elle appui sur un bouton qui minimise la fenêtre dans la barre des tache et le programme revient au premier plan.
 Le ptit problème c'est lorsque une autre personne veut consulter ce fameux fichier word, celui ci revient au premier plan avec un message "Ouvrir monfichier tel qu'il était au dernier enregistrement?". et biensur je ne veu pas que ce message s'affiche. :non:  
 
j'ai essayé

  • Application.DisplayAlerts = wdAlertsNone
  • SendKeys "{enter}"

mais rien y fait
 
Je vous met mon bout de programme qui permet d'ouvrir le fichier word :
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub cmdword_Click()
emplacement = "C:\monfichier.doc"
ShellExecute Me.hwnd, vbNullString, emplacement, "", vbNullString, 1
End Sub
 
Merci  :jap:

Reply

Marsh Posté le 14-11-2005 à 16:15:07   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed