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.
Toute piste ou idée est la bienvenue. Je vous remercie beaucoup pour votre aide.
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
Thierry
Partager