Bonjour,
J'ai crée un formulaire ou des cartes s'affichent en fonction d'un nombre aléatoire dans un cadre.
Les images sont extraites du dossier Cartes. Je souhaite indiquer un chemin qui varie en fonction de l'emplacement du dossier Cartes. En effet, si j'envoie mon fichier excel ainsi que les images qui vont avec, le dossier ne sera peut-être placer au même endroit que sur mon ordinateur.
le premier code fonctionne
Dim nombre_aleatoire1 as integer
Dim Nom_photo1 As Integer
Dim Chem_nom1 As String
Dim chemin_photo1 As String
Nom_photo1 = nombre_aleatoire1
chemin_photo1 ="C:\Documents\Cartes"
Chem_nom1 = chemin_photo1 & nombre_aleatoire1 & ".gif"
UserForm1.Frame1.Picture = LoadPicture(Chem_nom1)
le 2 ème code ne fonctionne pas.
Dim nombre_aleatoire1 as integer
Dim Nom_photo1 As Integer
Dim Chem_nom1 As String
Dim chemin_photo1 As String
Nom_photo1 = nombre_aleatoire1
chemin_photo1 = ".\Cartes\"
Chem_nom1 = chemin_photo1 & nombre_aleatoire1 & ".gif"
UserForm1.Frame1.Picture = LoadPicture(Chem_nom1)
je pense que cela vient du raccourci chemin_photo1 = ".\Cartes\"