FILEDIALOG en VB sous ACCESS 2002 Fermé

Question

Salut,
j'ai développé une application sous Access Xp.
Sur le clic d'un bouton, je voudrais lancer la boite de dialogue pour ouvrir un fichier. Dans l'aide ils disent de déclarer une variable de type FileDialog et de lancer la fonction.

Ex:

Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogOpen)

Le compilateur me dit qu'il ne connait pas le type FileDialog. J'ai pourtant ajouter les librairie nécessaire.
De plus, quand on tappe sous VB "Ctrl+space" on obtient la liste des expression connue par VB. FileDialog ne figure pas toujours dedans, je ne comprend pas.

Merci d'avance à ceux qui m'aideront.

Richard · Answer

Essaie d'ajouter cette référence dans VBA outils>référence
coche Microsoft Office 11.0 Object Library

ex :

Private Sub parcourir_Click()
Dim jaq As FileDialog
Dim Chemin As String

Set jaq = Application.FileDialog(msoFileDialogFilePicker)

Dim chJaq As Variant

With jaq
.Title = "Sélectionnez la jaquette"
.AllowMultiSelect = False
.Filters.Add "Fichiers images", "*.jpg;*.bmp;*.gif"
.InitialView = msoFileDialogViewThumbnail

If .show = -1 Then

For Each chJaq In .SelectedItems
Chemin = chJaq
Next
Else
End If
End With

If Chemin = "" Then
Exit Sub
Else
'enregistre jaquette
With Me.jaqu
.Class = ""
.OLETypeAllowed = acOLEEmbedded
.SourceDoc = Chemin
.Action = acOLECreateEmbed
End With
End If
End Sub

Ciao

FILEDIALOG en VB sous ACCESS 2002

1 réponse

Discussions similaires