Discussion :

[fixfix]

Bonjour a tous.

Je voudrai savoir comment faire pour executer une autre logiciel au clique sur un bouton de mon interface Vb 6, et qu'il s'ouvre.

Merci

[Najdar]

Bonjour fixfix

Voici la fonction OuvrirFichier que j'utilise pour cela.
Elle permet d'ouvrir un programme (.exe) mais aussi un document (ex : .doc)
Si le document n'est pas assoicié à une application, la fonction ouvre la fenêtre Windows "Ouvrir avec..."

A mettre dans la partie déclaration de ta fenêtre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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
   ' lpOperation : "Open" (défaut) ou "Print"
   ' lpFile : application ou document à ouvrir ou imprimer
   ' lpParameters : paramètres à passer si lpFile est un exécutable
   ' lpDirectory : chemin à utiliser
   ' nShowCmd : type d'affichage du programme lancé (voir l'API ShowWindow)
 
Private Const SW_SHOW        As Long = 5 'Activates the window and displays it in its current size and position
Private Const SW_SHOWNORMAL  As Long = 1 'Activates and displays a window. If the window is minimized or maximized,
                                        '  Windows restores it to its original size and position.
                                        '  An application should specify this flag when displaying the window for the first time

A appeler dans l'événement _Click de ton bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Public Sub OuvrirFichier(ByVal NomFichier As String, ByVal OuvrirAvec As Boolean, Optional FeuilleParent As Form = Nothing)
  Dim FS          As FileSystemObject 
  Dim Result      As Long
 
  Set FS = New FileSystemObject
 
  If NomFichier <> "" Then
    If FS.FileExists(NomFichier) = False Then
 
      MsgBox "Le fichier "& NomFichier  &" est introuvable !", vbExclamation
      Exit Sub
    End If
 
    Screen.MousePointer = vbHourglass
 
    If OuvrirAvec = True Then
      Shell "rundll32.exe shell32.dll,OpenAs_RunDLL " & NomFichier, vbNormalFocus
    Else
      If FeuilleParent Is Nothing Then Set FeuilleParent = Screen.ActiveForm
      Result = ShellExecute(FeuilleParent.hwnd, "Open", NomFichier, vbNullString, vbNullString, SW_SHOWNORMAL)
      If Result < 32 Then
        Shell "rundll32.exe shell32.dll,OpenAs_RunDLL " & NomFichier, vbNormalFocus
      End If
    End If
 
    Screen.MousePointer = vbDefault
  End If
End Sub

[fixfix]

c'est quoi que tu appelle la partie déclaration de ta fenêtre.
Merci pour ta reponse

[Najdar]

c'est quoi que tu appelle la partie déclaration de ta fenêtre.

L'entête du code de la fenêtre, là où l'on déclare les variables globales dans le code de la fenêtre.

[Najdar]

Vb comprend aussi une fonction similaire (qui est utilisée dans ma fonction), mais qui n'ouvre pas la fenêtre "Ouvrir Avec...".
Cette fonction c'est Shell.

[fixfix]

voila j'ai prefere utilise ça parce que moi il faut que ç am'ouvre tjs ce logiciel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Shell ("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.exe")

Mais je voulais savoir si quelqu'un savais comment faire pour que ce logiciel s'ouvre en grand et non ce mette dan sma barre de tache.

merci

[Najdar]

Et si tu regardai les paramétres de la fonction Shell...