Problème de boite de dialogue Résolu/Fermé

Question

bonjours à tous,

J'ai récupéré ce code pour ouvrir une boite de dialogue et celle-ci s'ouvre normalement. Mon problème c'est lors que double clic sur le fichier pdf voulu, celui-ci ne s'ouvre pas je suis obligé de faire un clic droit et de sélectionner ouvrir.

D'autre part serait il possible que cette boite de dialogue s'ouvre toujours sur le même dossier ex: "C:\Users\Public\Documents\Factures comptables\"

Pour info je travail avec access 2010

ci-dessous mon code:


  Dim fd As Office.FileDialog
  Dim varFichier As Variant
  Dim strListe As String
  
  ' Créer un objet FileDialog
  Set fd = Application.FileDialog(msoFileDialogOpen)
 
  ' Titre de la boîte de dialogue
  fd.Title = "Sélectionnez un ou plusieurs fichiers..."
 
  ' Autoriser la sélection multiple
  fd.AllowMultiSelect = True
 
  ' Définir les types de fichiers autorisés
  fd.Filters.Clear
  fd.Filters.Add "Tous les fichiers", "*.*"
'  fd.Filters.Add "Images", "*.gif; *.jpg; *.jpeg; *.png; *.bmp"
  
  
   ' Texte du bouton
  fd.ButtonName = "ouvrir"
 
  ' Présélectionner le 1ème type de fichier (images)
  fd.FilterIndex = 1
 
  ' Pas de nom par défaut
  fd.InitialFileName = ""
 
 
  ' Afficher la boîte de dialogue
  If fd.Show() Then
    ' Lister les chemins de tous les fichiers sélectionnés
    strListe = ""
    For Each varFichier In fd.SelectedItems
      strListe = strListe & varFichier & vbCrLf
    Next
'
'    ' Afficher le résultat
'    MsgBox "Vous avez sélectionné les fichiers suivants : " _
'      & vbCrLf & strListe, vbInformation
  End If
  


  Set fd = Nothing
 
Merci pour votre aide

Thorak83 · Answer

Bonjour

Il faut ajouter la ligne ci-dessous tout en haut du modufle sous 

Option Compare Database
Option Explicit
Public Declare Function ShellExecute 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

et enfin modifier le code
For Each varFichier In fd.SelectedItems
      ShellExecute 0, "open", varFichier, vbNull, vbNull, 5
Next

cordialement

ddh74 · Answer

Merci pour ces informations;
l'ouverture des fichiers ce passe très bien, mais je n'arrive toujours pas à faire que cette boite de dialogue s'ouvre toujours sur le même dossier ex: "C:\Users\Public\Documents\Factures comptables\"
Est-ce Possible?
 Merci

ddh74 · Answer

Impeccable un grand merci

Problème de boite de dialogue

3 réponses

Discussions similaires