Eliot7500
Messages postés18Date d'inscriptiondimanche 22 décembre 2013StatutMembreDernière intervention 4 janvier 2014
-
4 janv. 2014 à 15:40
Eliot7500
Messages postés18Date d'inscriptiondimanche 22 décembre 2013StatutMembreDernière intervention 4 janvier 2014
-
4 janv. 2014 à 18:22
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
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\"
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018212 4 janv. 2014 à 17:29
Bonjour,
place donc tes images dans un sous-dossier (appelons-le
toto, par exemple) de ton classeur.
Le chemin de ton classeur est ThisworkBook.Path
Dans ton code :
ThisWorkBook.Parh et "\toto"
pointera vers le chemin du sous-dossier toto
ucfoutu
Messages postés18038Date d'inscriptionlundi 7 décembre 2009StatutModérateurDernière intervention11 avril 2018212 4 janv. 2014 à 17:30
Ah ... Le Pivert (que je salue) a été plus rapide que moi...
cs_Le Pivert
Messages postés7902Date d'inscriptionjeudi 13 septembre 2007StatutContributeurDernière intervention14 novembre 2023137 4 janv. 2014 à 17:33
Bonjour et Bonne année ucfoutu. Les réponses se sont croisées!
Eliot7500
Messages postés18Date d'inscriptiondimanche 22 décembre 2013StatutMembreDernière intervention 4 janvier 2014 4 janv. 2014 à 18:22
Merci, beaucoup. Vos solutions fonctionnent à merveille.