Discussion :

[pikameuh]

Bonjour à tous,

Je suis en train de develloper un formulaire VBA et j'aurais besion de pouvoir :

- Charger et Afficher une image dans le formulaire de manière dynamique (au bond vouloir de l'utilisateur). Pour l'instant j'ai une boite de dialogue pour parcourir les fichiers avec "GetOpenFilename". Mais je n'arrive pas a afficher l'image voulu dans le formulaire.

- Imprimer le formulaire (car il correspond au final à une fiche de saisie).

Dans l'éspoire d'une réponse rapide et clair.

[mercatog]

Bonjour
Pour la question 1, quel code tu utilise
Pour la 2, regarde ICI

[pikameuh]

Mon code actuel est :

' Macro pour ouvrir un fichier (charger une image) (non fonctionnel)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub OuvertureDeFichiers()
    Dim OuvrirFichiers As Variant
 
 ' Afficher la boite de dialogue Ouvrir
    OuvrirFichiers = Application.GetOpenFilename(filefilter:="Image (*.bmp; *.jpg; *.png),*.htm;*.html;*.png", FilterIndex:=2, Title:="Ouverture de fichier", MultiSelect:=False)
 
       If OuvrirFichiers(1) = False Then Exit Sub
       FormBranchRenouvele.PicBox1.Picture = LoadPicture(OuvrirFichiers(1))
       FormBranchRenouvele.Repaint
 
End Sub

[mercatog]

Comment tu fais l'appel de ta procédure? bouton de ton userform ou quoi?

sinon, pour le code

Code :

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

1
2
3
4
5
6
7
Dim OuvrirFichiers As Variant
 
' Afficher la boite de dialogue Ouvrir
OuvrirFichiers = Application.GetOpenFilename(filefilter:="Image (*.bmp; *.jpg; *.png),*.htm;*.html;*.png", FilterIndex:=2, Title:="Ouverture de fichier", MultiSelect:=False)
If OuvrirFichiers = False Then Exit Sub
FormBranchRenouvele.PicBox1.Picture = LoadPicture(OuvrirFichiers)
FormBranchRenouvele.Repaint

[pikameuh]

mercatog merci déjà pour tes réponses !

J'utilise un bouton que j'ai nommer chargerImage qui appele la méthode.

Merci milles fois l'image s'affiche !!!

Mais saurais tu comment adapté l'image à la frame?

[mercatog]

La proporiété PictureSizeMode, soit manuellement, soit par code ci-après

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub OuvertureDeFichiers()
Dim OuvrirFichiers As Variant
 
' Afficher la boite de dialogue Ouvrir
OuvrirFichiers = Application.GetOpenFilename(filefilter:="Image (*.bmp; *.jpg; *.png),*.htm;*.html;*.png", FilterIndex:=2, Title:="Ouverture de fichier", MultiSelect:=False)
If OuvrirFichiers = False Then Exit Sub
With FormBranchRenouvele
    With .PicBox1
        .Picture = LoadPicture(OuvrirFichiers)
        .PictureSizeMode = fmPictureSizeModeZoom
    End With
    .Repaint
End With
End Sub