[AC-2007] Ouvrir un fichier avec l'explorateur windows [Résolu]

[greg360]

Bonjour à tous, je vous explique mon problème :

Je souhaite ouvrir un fichier avec l'application adéquate en utilisant l'éxécutable associé via l'explorateur windows..

Je possède uniquement le path du fichier à ouvir et le nom du fichier ainsi que son extension.

Existe-t'il une fonction ou un objet qui contienne une methode pour ouvrir un fichier en ne précisant que son path et son nom ?

Merci de vos réponses.

[greg360]

Il suffit de déclarer la fonction ShellExecute dans la methode....

http://support.microsoft.com/kb/170918

[greg360]

Je poste une nouvelle question dans le meme sujet :
je souhaite utiliser l'objet office.filedialog sous access 2007 mais malgres l'intégration de la référence microsoft access 12.0 object library, le type n'est pas défini.

est-ce que quelqu'un à déja eut ce problème ?

[loufab]

Bonjour,
Bien étrange. Je te poste le code que j'utilise au cas il s'agisse juste d'un problème de code.

Code :

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
Public Function fOuvreFichier(msoPathFileName As String, msoType As MsoFileDialogType, _
                              msoMultiSel As Boolean, ByRef tblresult() As Variant, _
                              Optional strtitre As String = "Sélectionner un fichier") As Boolean
' Ouvre la fenêtre Ouvrefichier/répertoire
On Error GoTo ErrSub
    Dim fdg As FileDialog
    Dim vrtSelectedItem As Variant
    Dim i As Integer
 
    'Cree un filedialog
    Set fdg = Application.FileDialog(msoType)
 
    With fdg
        .AllowMultiSelect = False
        .ButtonName = "Selectionner"
        .Title = strtitre
        .InitialFileName = msoPathFileName
        If .Show = True Then   'Affiche le dlgbox
            ' traite chaque item
            ReDim tblresult(.SelectedItems.Count)
            For Each vrtSelectedItem In .SelectedItems
                tblresult(i) = vrtSelectedItem
                i = i + 1
                fOuvreFichier = True
            Next vrtSelectedItem
        Else    ' Cancel.
            fOuvreFichier = False
        End If
    End With
    Set fdg = Nothing
Exit Function
 
ErrSub:
 
End Function

[Cinesra]

C'est pas plutôt la référence microsoft office 12.0 object library qui est à utiliser ?
Je me rappelle que j'avais mélangé moi-même.

[greg360]

Merci pour vos réponses, mon problème est résolu, je pense qu'il s'agissait d'une install foireuse de la suite office 2007, en la réinstallant, j'ai découvert 2x plus de références ... dont microsoft office 12.0 object library !

Merci loufab pour ton code, je m'en suis largement inspiré .

Problème résolu, merci à tous.