Suppression message ou envoyer un sendkeys [VB6] - VB/VBA/VBS - Programmation
MarshPosté le 14-11-2005 à 16:15:07
Salut à tous,
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.
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
Marsh Posté le 14-11-2005 à 16:15:07
Salut à tous,
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.
j'ai essayé
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