Probleme d'affichage d'image dans un userform

[missLaura]

Bonjour,
Mon probleme est que j'aimerais que lorsque j'essaie d'afficher une image à partir de mon PC sur un userform et que par la suite je supprime cette image et j'essaie de nouveaux de l'afficher, cela ne me mette ps un message d'erreur.

Je vous met le fichier ci-joint, c'est une GMAO que j'ai réalisée

Merci <3 <3

 

[Pierrot93]

Re : Probleme d'affichage d'image dans un userform

Bonjour,

Pas sûr d'avoir tout compris d'autant plus que je ne peux ouvrir ton fichier, pas 2007, mais essaye peut être dans ton code de tester la présence du fichier....

Dim monimage As String
monimage = "C:\MesDocs\Excel\MesImages\Image.bmp"
If Dir(monimage , vbDirectory) <> "" Then
   'ton code
Else
    MsgBox "Image absente..."
    Exit Sub
End If

bon après midi
@+

 

[Guest]

Re : Probleme d'affichage d'image dans un userform

Bonjour Laura,
Pierrot

Ce qui donne pour toi, Laura:

Private Sub UserForm_Activate()
    Dim imagechoisie As String
    Sheets("feuil1").Select
    imagechoisie = Range("A1")
    If Range("A1") <> "" Then
        If Dir(imagechoisie) <> "" Then Image1.Picture = LoadPicture(imagechoisie)
    End If
End Sub

A+

 

[Pierrot93]

Re : Probleme d'affichage d'image dans un userform

Re,

oui... rajoute peut être :

If Dir(imagechoisie , [COLOR="Red"]vbDirectory[/COLOR])

doit fonctionner, non ?

Edition : re Hasco

 

[missLaura]

Re : Probleme d'affichage d'image dans un userform

Merci le gas vous êtes géniaux,
Juste une dernière question qui n'a rien à voir, savez-vous comment faire pour protéger par un mots de passe le code de mon projet visualBasic ?

 

[Guest]

Re : Probleme d'affichage d'image dans un userform

Re Laura,

Merci le gas vous êtes géniaux

Pierrot, on se croise tellement que notre amie nous a confondu dans un "le gas"

Laura

Dans l'explorateur de projet, click-droit sur le nom de ton projet -> propriété -> Onglet protection

A+

 

[Pierrot93]

Re : Probleme d'affichage d'image dans un userform

Re,

dans l'éditeur vba => fenêtre "projet vba project" => click droit sur le projet concerné => propriétés de vba project => onglet "protection" tu coches "verrouiller le projet pour l'affichage" et tu renseignes et confirmes le mot de passe....

Edition : Aarf, décidement trop lent moi....