Problème récupération path d'un fichier

Question

Bonjour &#224; tous, je suis nouveau sur le forum et je suis en train de ma construire une base de donn&#233;es sous Access. Je d&#233;bute en VBA.
Mon probl&#232;me consiste dans l'affichage de la boite de dialogue pour r&#233;cup&#233;rer le path d'un fichier image.

Voici le code utilis&#233; :

Private Sub RecherchePhoto_Click()
 
 
    Application.FileDialog(msoFileDialogFilePicker).AllowMultiSelect = False
    If Application.FileDialog(msoFileDialogFilePicker).Show = -1 Then
         Me.Photo = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1) Me.Photo est le champ dans lequel est stock&#233;e path
         Me.ImageBotanique.Picture = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1) Me.ImageBotanique est le contr&#244;le image qui affiche la photo
    End If
    Set Application.FileDialog(msoFileDialogFilePicker) = Nothing
    AffichagePhoto c'est une proc&#233;dure permettant d'optimiser l'affichage de l'image
End Sub

Voici le message d'erreur qui appara&#238;t lorsque je clique sur le bouton :
L'expression sur clic entr&#233;e comme param&#232;tre de la propri&#233;t&#233; de type &#233;v&#233;nement est  l'origine d'une erreur. Utilisation incorrecte de la propri&#233;t&#233;.

Quelqu'un peut-il m'aider?

Merci d'avance

mythic_kruger · Answer

Dans un premier temps, places le r&#233;sultat du msgbox dans une variable de type string; et places un point d' arret pour v&#233;rifier l' &#233;tat de test variables. Ca facilitera le d&#233;bogage. Tu peux afficher la pages de variables locales pendant l' ex&#233;cution.

D' autre part,  Me.ImageBotanique.Picture c'est un contr&#244;le Image? Si oui il faut charger la nouvelle image dans le contr&#244;le avec la fonction LoadPicture()
ex. Set image1.picture=LoadPicture("c:\monimage.jpg")

Problème récupération path d'un fichier

1 réponse

Discussions similaires