Insérer image formulaire

Bonjour,

Je souhaite insérer une image dans un formulaire. L'image est enregistré sur mon ordinateur à cette adresse là : C:\Users\Pierre\Documents\Paysage

L'image doit apparaître de manière aléatoire, j'ai 10 images enregistrées dans le dossier paysage.

Je ne sais pas si je dois mettre une variable à chemin_photo et si oui laquelle?

J'ai essayé d'écrire les instruction sur VBA mais cela ne fonctionne pas. Est ce que quelqu’un pourrait m'expliquer mon erreur.

Merci

Private Sub Image1_Click()

Dim nombre_aleatoire As Integer

Dim Nom_photo As Integer

Dim Chem_nom As String

Dim chemin_photo as ?

Randomize

nombre_aleatoire = Int(10 * Rnd) + 1

Nom_photo = nombre_aleatoire.Value

chemin_photo = "C:\Users\Pierre\Documents\Paysage\"

Chem_nom = chemin_photo & Nom_photo & ".jpg"

UserForm1.Frame1.Picture = LoadPicture(Chem_nom)

End Sub

Bonjour

A tester

Private Sub Image1_Click()
Dim nombre_aleatoire As Integer
'Dim Nom_photo As Integer
Dim Chem_nom As String
Dim chemin_photo As String

  Randomize
  nombre_aleatoire = Int(10 * Rnd) + 1

'Nom_photo = nombre_aleatoire
  chemin_photo = "C:\Users\Pierre\Documents\Paysage\"
  Chem_nom = chemin_photo & nombre_aleatoire & ".jpg"
  UserForm1.Frame1.Picture = LoadPicture(Chem_nom)
End Sub

Si pas ça

Il y a un problème lorsque j’exécute le formulaire au niveau de cette ligne là : UserForm1.Frame1.Picture = LoadPicture(Chem_nom)

Je vous joint mon fichier, le code correspond au bouton distribuer. Mon formulaire est en cours de réalisation (il n'y pas grand chose qui fonctionne pour l'instant).

Bonjour

Tu n'as pas de Frame dans ton Userform

Essayes ( attention aux variables - qu'elle soient identiques entre l'initialisation et l'utilisation)

Je ne t'ai fait que le début

A toi de faire pour les autres images

Private Sub CommandButton2_Click()
Dim nombre_aleatoire1 As Integer
Dim Nom_photo1 As Integer
Dim Chem_nom1 As String
Dim chemin_photo1 As String

'distribution de la première carte pour le joueur
  Randomize
  nombre_aleatoire1 = Int(10 * Rnd) + 1

Nom_photo1 = nombre_aleatoire1
chemin_photo1 = "C:\Users\Pierre\Documents\Paysage\"
Chem_nom1 = chemin_photo1 & nombre_aleatoire1 & ".jpg"
'UserForm1.Frame1.Picture = LoadPicture([surligner=#FFFF80]chem_nom)
Me.Image1.Picture = LoadPicture(Chem_nom1)

Merci

Je viens de changer l'image par un cadre et cela fonctionne.

Par contre j'ai un soucis, j'arrive pas à voir mon formulaire certaine fois quand je vais dans l'onglet développeur puis visual basic. En effet, j'ai l'impression qu'il est caché. Si je fais insertion userform, un userform2 s'ouvre mais pas l'userfor1.

Du coup je ne peux plus modifier le script de mon fichier.

Bonjour

Il est facétieux cet éditeur

Sérieusement quand tu ouvres l'éditeur, dans la partie gauche en haut tu as "Feuilles"

Déroules les en cliquant sur le petit plus à gauche de "Feuilles"

Le formulaire dans visual basic microsoft ne s'affiche plus alors que quand je l'exécute avec f5 il fonctionne. Malgré le message précédent ou tu me montrais ou je pouvais le récupérer je ne vois pas.

Bonjour

Regardes dans le menu affichage "Explorateur de projets"

Parce qu'à l'ouverture de ton fichier j'avais toutes les fenêtres

Merci, pour ta réactivité. Je vais pouvoir continuer mon projet.