Discussion :

[tAKAmAkA]

Bonjour,

Je voudrais lancer des applications (adobe reader, word, images etc) à partir d'un formulaire en ayant renseigné au réalable une table (tblAssociations) qui contient les champs Extension (PDF, doc etc) et les chemin complets vers l'appli associée.
On teste l'extension du fichier à ouvrir (Document.Fichier) et on va chercher l'appli par un select.
Mais ca ne fonctionne pas, sans doute un pb de syntaxe.

Pouvez-vous m'aider?

Voici le code:

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
29
30
31
32
33
34
35
36
37
Private Sub cmdOuvrirPdf_Click()
On Error GoTo Err_cmdOuvrirPdf_Click
 
    Dim stAppName As String
    Dim CheminFichier As String
    Dim StrLink As String
    Dim strExtension As String
    Dim SQL As String
    Dim SQLWhere As String
 
 
    strExtension = Right(Me.Fichier, 3)
 ' La table tblAssociation comporte un enregistrement avec Extension= PDF et
 ' Cheminprogramme = C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe
 
    SQL = "SELECT tblAssociations!Cheminprogramme FROM tblAssociations Where tblAssociations!Extension = strExtension"
    SQL = SQL & ";"
 
 
 'Ca fctionne avec cette ligne
 'CheminFichier = "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
 'Ca ne fctionne pas avec celle-ci
 CheminFichier = SQL
 CheminFichier = CheminFichier & " "
 CheminFichier = CheminFichier & Me.Fichier
 
    stAppName = CheminFichier
    Call Shell(stAppName, 4)
 
Exit_cmdOuvrirPdf_Click:
    Exit Sub
 
Err_cmdOuvrirPdf_Click:
    MsgBox Err.Description
    Resume Exit_cmdOuvrirPdf_Click
 
End Sub

[cafeine]

Bonjour et bienvenue,

Pourquoi ne te contentes-tu pas d'utiliser l'API ShellExecute ?

Figure toi que Windows gère déjà pour toi l'association entre Extention et Applicatif ...

[tAKAmAkA]

Merci pour les balises CODE.

Je débute et je fais pour l'instant avec ce que je connais.
Je vais me renseigner sur les API et leur utilisation.

Si je veux, justement, me démarquer des associations de Windows, en particulier pour l'affichage des images j'aimerai faire marcher mon bout de code.

[cafeine]

Inutile de chercher trop loin ...

http://access.developpez.com/faq/?re...r=shellexecute

[tAKAmAkA]

Merci, tout marche très bien.