raccourci extration imageRésolu

Question

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 integerDim Nom_photo1 As IntegerDim Chem_nom1 As StringDim chemin_photo1 As String Nom_photo1 = nombre_aleatoire1chemin_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 integerDim Nom_photo1 As IntegerDim Chem_nom1 As StringDim chemin_photo1 As String Nom_photo1 = nombre_aleatoire1chemin_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\"

cs_Le Pivert · Answer

Bonjour ,

Pour cela il faut créer un dossier et y mettre le classeur Excel et le dossier Cartes. Ensuite voici le code qui est très simple:

ThisWorkbook.Path

C'est le chemin du classeur. Ce qui donne:

chemin_photo1 =ThisWorkbook.Path & "\Cartes\"

Voilà!

ucfoutu · Answer

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 "	oto"
pointera vers le chemin du sous-dossier toto

Raccourci extration image

2 réponses

Votre réponse

Discussions similaires