Problème de boite de dialogue

Résolu
ddh74 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   -  
ddh74 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

3 réponses

Réponse 1 / 3
Thorak83 Messages postés 1051 Date d'inscription   Statut Membre Dernière intervention   156
 
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
0
Réponse 2 / 3
ddh74 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Thorak83 Messages postés 1051 Date d'inscription   Statut Membre Dernière intervention   156
 
Ajouter fd.InitialFileName = "C:\Users\Public\Documents\Factures comptables\"
après le fd.title par exemple
0
Réponse 3 / 3
ddh74 Messages postés 30 Date d'inscription   Statut Membre Dernière intervention  
 
Impeccable un grand merci
0

Discussions similaires

Accéder à mail.live.fr
mag -
Redbart -

1 réponse
Comment fermer une boite de dialogue
2095 -
SR -

3 réponses