Débutant - au secours !!!

Question

Bonjour,

Je suis d&#233;butant en programmation VB, et je souhaite savoir comment l'on fais pour faire ouvrir une application (excel, access) &#224; partir d'une application VB.

Merci d'avance.

Poussin 38 

PS : on m'a parl&#233; d'API mais je ne sais pas ce que c'est !

cboulas · Answer

Salut,

Quelques exemples avec la calculette :

Call Shell("c:\windows\calc.exe")
Toto=Shell("c:\windows\calc.exe")
Shell "c:\windows\calc.exe"

Sinon, oui tu peux utiliser les API, je crois que cela doit &#234;tre la ShellExecute("Excel") mais c'est &#224; v&#233;rifier ou compl&#232;ter.

Une API est une bibliot&#232;que acc&#233;ssible sur la machine, qui te permet de lancer des applications, des calculs, retourner des infos systems, etc...

Chris...
Web : Firstruner - eMail : [mailto:support@firstruner.com Support]

jsem2k1 · Answer

The J

si tu veux utiliser un API tu peux toujour proc&#233;d&#233; comme suis mais si c 
juste pour ouvrire un fichier je te conseille encore les m&#233;thode de Cboulas
c simple et efficase

'************  API **********
Private Declare Function apiShellExecute 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

'***App Window Constantes***
Public Const WIN_NORMAL =  1          'Open Normal 
Public Const WIN_MAX  = 3            'Open Maximized
Public Const WIN_MIN =  2             'Open Minimized 

'***Error Codes***
Private Const ERROR_SUCCESS  = 32&
Private Const ERROR_NO_ASSOC =  31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&

 '***************Exemples d'utilisation*********************** 
'Ouvrir un r&#233;pertoire:       ?fHandleFile("C:\TEMP",WIN_NORMAL)
'Pour envoyer un courriel: ?fHandleFile("mailto:dash10@hotmail.com",WIN_NORMAL)
'Ouvrir selon un URL:        ?fHandleFile("http://home.att.net/~dashish", WIN_NORMAL)
'Traiter les extensions inconnue (call Open With Dialog):
'                             ?fHandleFile("C:\TEMP\TestThis",Win_Normal)
'D&#233;marrer Access:
'                             ?fHandleFile("I:\mdbs\CodeNStuff.mdb", Win_NORMAL)
'****************************************************

Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
    'On ouvre l'application
    lRet  = apiShellExecute(hWndAccessApp, vbNullString, _
            stFile, vbNullString, vbNullString, lShowHow)
            
    If lRet > ERROR_SUCCESS Then
        stRet =  vbNullString
        lRet = -1
    Else
        Select Case lRet
            Case ERROR_NO_ASSOC:
                 'on ouver OpenWith dialog 
                varTaskID  = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL " _
                        & stFile, WIN_NORMAL)
                lRet = (varTaskID <> 0)
            Case ERROR_OUT_OF_MEM:
                stRet = "Erreur: M&#233;moir insufisante.Imposoble ouvrir l'aplication"
            Case ERROR_FILE_NOT_FOUND:
                stRet = "Erreur: fichier introuvable.Imposoble ouvrir l'aplication"            
            Case ERROR_PATH_NOT_FOUND:
                stRet = "Erreur: R&#233;pertoire introuvable. Imposoble ouvrir l'aplication"            
            Case ERROR_BAD_FORMAT:
                stRet = "Erreur: Erreur de format. Imposoble ouvrir l'aplication"        Case Else:
        End Select
    End If
    fHandleFile = lRet & _
                IIf(stRet = "", vbNullString, ", " & stRet)
End Function
'************ Find **********

D&#233;sol&#233; pour les fautes d'ortographes

Débutant - au secours !!!

2 réponses

Discussions similaires