Problème de boite de dialogue
Résolu
ddh74
Messages postés
34
Statut
Membre
-
ddh74 Messages postés 34 Statut Membre -
ddh74 Messages postés 34 Statut Membre -
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
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:
- Problème de boite de dialogue
- Dialogue boost - Accueil - Guide streaming
- Boite gmail pleine - Guide
- Se connecter à ma boite hotmail - Guide
- Boite gmail bloquée - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
3 réponses
Bonjour
Il faut ajouter la ligne ci-dessous tout en haut du modufle sous
et enfin modifier le code
cordialement
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