Ouvrir une appli depuis Excel........

Question

Bonjour!

Je cherche à ouvrir Visio, puis un nouveau document dans Visio, depuis mon VBA d'Excel. Pour l'instant j'ai mis:
    
    Dim appVisio As Visio.Application
    Set appVisio = CreateObject("Visio.Application.8")
    appVisio.Documents.Add

Quand j'exécute le code, il me met "Compile Error, User-defined type not defined" et me surligne la première ligne. 

Est-ce que quelqu'un peut m'aider? Merci d'avance!

cs_Lolux · Answer

Code à placer dans un Module
Public Declare Function ShellExecuteA Lib "shell32" (ByVal hWnd As Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long


Sur le click d'un bouton dans une Form: Appel de l'API

Private Sub Command1_Click()
  retval = ShellExecuteA(0, "Open", rsFiche!fich_path & rsFiche!fich_file, "", "", 10)
  If retval = 2 Then
   MsgBox "Ouverture du fichier impossible !", 48, "Impossible"
  End If
End Sub


A plus

Lolux

cs_cissou06 · Answer

Merci beaucoup de m'avoir répondu. 
Est-ce que tu pourrais juste me préciser à quoi correspondent les paramètres suivants:          
                    ByVal hWnd As Long?
                    ByVal LPFile As String?

Est-ce que ByVal Other As String, ByVal Other2 As String et ByVal Param As Long sont obligatoires ou ce sont des paramètres facultatifs permettant de donner des précisions supplémentaires à la fonction?

Merci beaucoup de ton aide.

cs_Lolux · Answer

Visite ce lien tu en saura plus :

http://www.mentalis.org/apilist/ShellExecute.shtml

@+

Lolux

cs_cissou06 · Answer

Merci!
Malheureusement j'ai encore un petit problème: ShellExecuteA permet de lancer Visio mais j'ai une fenêtre qui apparaît pour me demander de choisir un modèle. 

Est-ce que tu sais comment je pourrais faire pour qu'elle n'apparaisse pas (je sais que l'on peut faire un truc du genre VisioAppli.DisplayAlerts = False mais il faut déclarer VisioAppli as Visio.Application, et Excel ne connaît pas ce type...) ou bien pour cliquer sur Cancel à partir de mon code VBA?

Une fois que je me serai débarrassée de cette fenêtre, est-ce que Visio va ouvrir un nouveau document?

Merci d'avance.

cs_Lolux · Answer

Là je ne peux plus t'aider car je ne connais pas Visio.

ShellExecute permet d'ouvrir un fichier dans son application par défaut quelque soit le type de fichier.
Ca n'est donc pas proprement lié au programme lancé.
Dans ton cas je sais pas trop... mais pour chaque problème il y a une solution (plus ou moins propre).

En tout cas, pour cliquer ou appuyer sur un touche en Vb la piste c'est la méthode SendKey.

Bon courrage.

Lolux

Ouvrir une appli depuis Excel........

5 réponses

Discussions similaires