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!

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

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.

Visite ce lien tu en saura plus :

http://www.mentalis.org/apilist/ShellExecute.shtml

@+

Lolux

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.

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