Discussion :

[thibab]

Bonsoir à tous,
J'ai créé un formulaire sur lequel j'ai placé un controle Image (Image43), un bouton (BtnImporterImage) et un textBox (TxtCheminFichier).
Avec mon bouton, j'ouvre une boite de dialogue pour sélectionner un fichier "image". Après avoir sélectionné le fichier au format "JPG" ou "BMP", j'ai toujours un plantage sur la ligne suivante : "Me.Image43.PictureData = LoadPicture(strFilePath)".
Puis affichage du message suivant : "La bitmap spécifiée ne se trouve pas au format Image indépendante du périphérique (.DIB).".



Ca fait 2 jours que je suis dessus et que je fais des recherches mais impossible de comprendre où est l'erreur. J'ai modifié mon image croyant quelle était trop grande et/ou grosse, j'ai essayé d'autres formats, j'ai changé mon image de dossier, j'ai remplacé la variable par le chemin du fichier en dur et... toujours l'erreur !!!
Ci-dessous le code de mon bouton. Bien sûr, ce code se trouve dans le formulaire sur lequel se trouve le controle Image et le bouton.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Compare Database
 
 
Private Sub BtnImporterImage_Click()
 
    Dim dlg As FileDialog
    Dim strFilePath As String
    ' Créer une boîte de dialogue de fichier pour sélectionner l'image
    Set dlg = Application.FileDialog(msoFileDialogFilePicker)
    dlg.AllowMultiSelect = False
    dlg.Title = "Sélectionner une image"
    ' Afficher la boîte de dialogue et récupérer le chemin du fichier sélectionné
    If dlg.Show = -1 Then
        strFilePath = dlg.SelectedItems(1)
        ' Afficher le chemin du fichier sélectionné dans le contrôle TextBox
        Me.TxtCheminFichier.Value = strFilePath
        ' Insérer l'image sélectionnée dans la base de données
        Me.Image43.PictureData = LoadPicture(strFilePath)
    End If
    Set dlg = Nothing
 
End Sub

Toute piste ou idée est la bienvenue. Je vous remercie beaucoup pour votre aide.

Thierry

[tee_grandbois]

bonsoir,
si c'est pour charger une image dans un contrôle image, la commande LoadPicture est inapproprié (voir la note de l'aide en ligne de la commande) ...
Essaie:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.Image43.Picture = strFilePath

[thibab]

Super, ca marche ! Merci tee_grandbois pour ton aide. Comme quoi, pour certain c'est tout de suite une évidence.

Merci encore et bonne soirée !