pour collection privée

[gscv]

Bonjour a tous

Voici mon souci

Je cherche à faire un fichier XlS qui pour vous tous va paraitre très simple (je pense) pour une gestion de collection personnel

Sur une feuille une base assez simple du style article/année/possède/existe/..

Et je souhaiterai avec un userform qui me permet de visualiser chaque article avec éventuellement une photo

En faite, un peu comme une gestion de dvd avec Jacquette mais pour une collection phabophilique ou plaquo-muselophilique.

Si quelqu’un a un fichier un peu dans ce genre ou j’ai juste à remplir la base et renseigner les photos

Cela sera sympa.

Sinon, en plus compliquer, m’expliquer comment gérer une photo dans usf par rapport a une liste d’article Excel

Grand merci a vous tous et a votre patiente envers les débutants

Sébastien

Ps : j’espère être clair, pas évident a expliquer, n’hésitez à me poser des questions

 

[Luki]

bonjour gscv,

Rapidement:

pour visualiser des données sous forme de fiche SANS image dans un premier temps, fais:
Menu/données/grille.
et tu auras un superbe Userform tout fait, fourni par BillGates lui même! Lol!

pour afficher les photos, je sais pas.

A +

 

[PascalXLD]

Bonjour

Pour afficher l'image tu mets un controle Image

Dans ta base de données tu te mets une colonne pour indiquer le chemein et le nom de ta photo pour le doc en question

exemple :

c:\\\\\\\\mesphotos\\\\\\\\toto.bmp

puis dans le code sur le choix d'un doc cela donne à peu près ceci

MaPhoto = Sheets('maBase').Range('E' & c)
UserForm1.ImagePerso.Picture = LoadPicture(MaPhoto)

Bon courage

 

[gscv]

pas de grille sur excel 2003 enfin je trouve pas

 

[MichelXld]

bonjour à tous

tu trouveras plusieurs exemples pour gerer des bases de données d'images en utilisant le moteur de recherche du forum

par exemple

Lien supprimé

Lien supprimé

Lien supprimé
(voir le milieu du fil)


bonne soiree
MichelXld

 

[gscv]

Pascal76 écrit:

Bonjour

Pour afficher l'image tu mets un controle Image

Dans ta base de données tu te mets une colonne pour indiquer le chemein et le nom de ta photo pour le doc en question

exemple :

c:\\\\\\\\mesphotos\\\\\\\\toto.bmp

puis dans le code sur le choix d'un doc cela donne à peu près ceci

MaPhoto = Sheets('maBase').Range('E' & c)
UserForm1.ImagePerso.Picture = LoadPicture(MaPhoto)

Bon courage

je viens de tester ta methode et ca donne cela

Sub testphoto()
MaPhoto = Sheets('base').Range('a1')
UserForm1.Image1.Picture = LoadPicture(MaPhoto)
UserForm1.Show
End Sub

cela fonctionne bien! et je t'en remercie pour cette explication !

par contre je souhaite gere ma collection a partir d'une clé USB

cela va t'il posé probleme ?
Car mes fichier image stocker dans un repertoire de ma clé .
actuelement j'ai par exemple en 'A1' 'f:/image/image1.jpg'
mais si je vais sur un autre ordi ma clé sera pas forcement en 'f:'

peut etre une astuce ?

 

[gscv]

merci michel je regarde de suite

 

[PascalXLD]

Re

Je suppose que ton fichier sera aussi sur ta clé USB

Alors mets juste le nom de ton image dans ton fichier et joue avec le thisworkbook.path puis avec le répertoire photo

 

[gscv]

Pascal76 écrit:

Re

Je suppose que ton fichier sera aussi sur ta clé USB

Alors mets juste le nom de ton image dans ton fichier et joue avec le thisworkbook.path puis avec le répertoire photo

je suis debutant, pourrais tu etre un peu plus precis s'il te plais

je pense qu'avec un exemple je comprendrais mieux si possible comme tu la fais au debut du post

je te remercie pascal

 

[gscv]

dsl pascal tiens pas compte de mon precedent post A force de grenouiller dans l'aide j'ai compris ce que tu voulais dire (et ca fonctionne tres bien)
je t'en remercie (mon application avance doucement mais avance ) jusqu'au prochain probleme.
Dont je pense vous faire part surement

merci a tous

 

[PascalXLD]

RE

ALors j'imagine que tu as ton fichier dans un répertoire ou non d'ailleurs et que tes images sont dans un sous répertoire qui s'appelle MesImages et que dans ta cellule tu as juste le nom de ton image exemple : toto.bmp

Cela donnerait

Dim MaPhoto As String
Dim MonChemin As String

MonChemin = ThisWorkbook.Path & '\\\\\\\\mesimages\\\\\\\\'

MaPhoto = Sheets('Feuil1').Range('a1')
UserForm1.Image1.Picture = LoadPicture(MonChemin & MaPhoto)

Maintenant si tes images sont au même niveau que ton fichier dans le même repertoire ou direct sur ta cle cela donne

Dim MaPhoto As String
Dim MonChemin As String

MonChemin = ThisWorkbook.Path & '\\\\\\\\'

MaPhoto = Sheets('Feuil1').Range('a1')
UserForm1.Image1.Picture = LoadPicture(MonChemin & MaPhoto)

Message édité par: Pascal76, à: 22/12/2005 08:22

 

[PascalXLD]

RE

Bon bah on a posté dans la même minute donc je n'avais pu te lire

J'espère que cela te donnera quelqes idées tout de même

@ +

 

[gscv]

oui pascal en effet

 

[gscv]

en faite pour tenter de resumer

je cherche a faire ce que fesait la commande Grille dans l'ancien excel mais avec une photo par ligne

exemple
code postal,ville,photo de la ville

j'espere etre plus clair!

Merci par avance

 

[PascalXLD]

Bonjour

Voici un test avec un combobox

Il faut tout dézipper dans le même répertoire

J'espère que cela t'aidera [file name=Classeur1_20051222102450.zip size=33550]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20051222102450.zip[/file]