Raccourci extration image [Résolu]

Question

Sujet Précédent Sujet Suivant

Raccourci extration image [Résolu]

Signaler

Eliot7500

Messages postés: 18
Date d'inscription: dimanche 22 décembre 2013
Statut: Membre
Dernière intervention: 4 janvier 2014

- 4 janv. 2014 à 15:40
Eliot7500

Messages postés: 18
Date d'inscription: dimanche 22 décembre 2013
Statut: Membre
Derniè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
 
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\"

A voir également:

Raccourci extration image
Traitement d'image java - Conseils pratiques - Java
Vectoriser une image photoshop ✓ - Forum - Graphisme/design
Transforme une "image couleur" en une "image en niveau de gris" - Forum - C
Algorithme de détection de contour d'une image python - Forum - Python
Insérer une image dans une base de données phpmyadmin ✓ - Forum - PHP

2 réponses

Répondre Posez votre question

cs_Le Pivert · Answer 1 · 2014-01-04T17:21:55+0100

Réponse 1 / 2

cs_Le Pivert

Messages postés: 7418
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 juin 2021

124
4 janv. 2014 à 17:21

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 2 · 2014-01-04T17:29:17+0100

Réponse 2 / 2

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

237
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

Signaler

ucfoutu

Messages postés: 18038
Date d'inscription: lundi 7 décembre 2009
Statut: Modérateur
Dernière intervention: 11 avril 2018

237
4 janv. 2014 à 17:30

Ah ... Le Pivert (que je salue) a été plus rapide que moi...

Signaler

cs_Le Pivert

Messages postés: 7418
Date d'inscription: jeudi 13 septembre 2007
Statut: Contributeur
Dernière intervention: 15 juin 2021

124
4 janv. 2014 à 17:33

Bonjour et Bonne année ucfoutu. Les réponses se sont croisées!

Signaler

Eliot7500

Messages postés: 18
Date d'inscription: dimanche 22 décembre 2013
Statut: Membre
Dernière intervention: 4 janvier 2014

4 janv. 2014 à 18:22

Merci, beaucoup. Vos solutions fonctionnent à merveille.

Votre réponse