Bonjour à tous,

voila je suis en train de gérer une base de données avec des images et j'ai écrit ce code là pour pouvoir gérer mes images mais le problème c'est que mes images sont en format PNG et que ce code apparament n'accepte que les format bmp.

Quelqu'un serait m'aider?

Voici le code que j'ai écris :

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
Private Sub UserForm_Activate()
Dim strDossier As String
Dim strFichier As String
Dim strChemin As String
 
    strDossier = TextBoxDossier.Value
    strFichier = TextBoxFichier.Value
 
      ' Chemin d'accès à l'image = Répertoire de base + Nom de l'image
 
    If Right(strDossier, 1) <> "\" Then
      strDossier = strDossier + "\"
    End If
 
    strChemin = strDossier + strFichier
 
    ' Charger l'image
    UserForm1.imgApercu.Picture = LoadPicture(strChemin)
  End If
 
End Sub
Merci beaucoup