Discussion :

[unlucky luke]

Bonjour à tous,

Après avoir sélectionné un fichier en passant par filedialog (voir code ci dessous),

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set SelectFichier = Application.FileDialog(msoFileDialogFilePicker)
With SelectFichier
    .AllowMultiSelect = False
    .InitialFileName = RepertoireBASE & "\DOCUMENTAIRE"
    .Title = nomDOSSIERencours & " - État des documents transmis et stockés"
    .ButtonName = "Ouverture FICHIER"
End With

J'aimerai pouvoir ouvrir ce fichier sélectionné, quelque soit son format (xlsx, docx, pdf, …) à partir d'un click du bouton via une commande simple. J'ai fait quelques tentatives infructueuses avec '.execute' (exemples si dessous).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
    If SelectFichier.Show = -1 Then
    adresseDOCUMENTsource = SelectFichier.SelectedItems(1) 'Adresse du document
 
    'SelectFichier.Execute
    'SelectFichier.SelectedItems(1).Execute
 
    End If

Merci d'avance pour votre assistance.
J'ai confiance car je sais que quelque part, quelqu'un sait …
Unlucky Luke

[loufab]

Bonjour,

Question éculée.

La FAQ :

https://access.developpez.com/faq/?p...n#shellexecute

ou une recherche dans le forum.

Cordialement,

[unlucky luke]

Merci Loufab !

J'ai réussi à faire une synthèse des nombreux éléments de code offerts dans les FAQ pour arriver au résultat que j'espérais (soit le + simple possible)

Pour tous et pour info voici ce que j'ai concocté et qui, pour l'instant, fonctionne à merveille:
Problématique de départ : Ouvrir directement tous les fichiers à partir de leur chemin complet et ce quelque que soit leurs extensions

Fonction dans le module (sous 64bits):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Public Declare PtrSafe Function ShellExecute _
    Lib "shell32.dll" _
    Alias "ShellExecuteA" ( _
      ByVal hwnd As LongPtr, ByVal lpOperation As String, _
      ByVal lpFile As String, ByVal lpParameters As String, _
      ByVal lpDirectory As String, ByVal nShowCmd As Long) _
    As LongPtr
 
Public Function OUVRIRfichier(adresse, repertoire)
    ShellExecute 0&, vbNullString, adresse, repertoire, vbNullString, vbNormalFocus 'on ouvre le document
End Function

Recherche, sélection et enregistrement fichier avec adresse complète:

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
Private Sub BoutonRecherche_Click()
Dim adresseDOCUMENT, nomDOCUMENT As String
 
Set SelectFichier = Application.FileDialog(msoFileDialogFilePicker)
With SelectFichier
    .AllowMultiSelect = False
    .InitialFileName = "C:\Users\MonRepertoire"
    .InitialView = msoFileDialogViewSmallIcons
    .Title = "Blablabla ..."
    .ButtonName = "Enregistrer ce fichier"
End With
 
If SelectFichier.Show = -1 Then
    adresseDOCUMENT = SelectFichier.SelectedItems(1) 'extraction du chemin complet
    nomDOCUMENT = Dir(adresseDOCUMENT) ' extraction du nom seul
    ' ... procédure d'enregistrement à volonté et à discrétion ....  
End If
 
End Sub

Ouverture du fichier directement:
Dans l'exemple ci-dessous à partir d'un control liste avec adresse complète du fichier en colonne 3

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub ListeDOCUMENT_DblClick(Cancel As Integer)
Dim adresseDOCUMENT, repertoireDOCUMENT As String
 
adresseDOCUMENT = ListeDOCUMENT.Column(2)
 
repertoireDOCUMENT = Mid(adresseDOCUMENT, 1, InStrRev(chaine, "\", -1, 1))
 
Call OUVRIRfichier(adresseDOCUMENT, repertoireDOCUMENT)
 
End Sub

Voilà c'est tout
Bon décompte de l'Avent à tous
Unlucky Luke

[loufab]

Bravo !