Chemin d'image

[canard]

salut à tous,

je recherche le moyen d'inscrire le chemin d'une image (qui se trouve dans un usf) dans une cellule pour ensuite pouvoir retrouver l'image.

Je joint un petit fichier avec plus d'explications.

Merci
@+ [file name=imagebis.zip size=16480]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imagebis.zip[/file]

 

[MichelXld]

bonsoir

tu peux tester cette adaptation



'déplace la variable 'TheFile' tout en haut de l'editeur de macros
Dim TheFile As Variant

Private Sub CommandButton1_Click()
Dim i As Byte
Dim derniereligne As Integer

derniereligne = Range('a65536').End(xlUp).Row + 1

With Sheets('Feuil1')
.Range('a' & derniereligne).Value = TextBox1.Value
.Range('b' & derniereligne).Value = TextBox2.Value
'ajoutes la ligne:
.Range('z' & derniereligne).Value = TheFile
End With

Unload UserForm1
End Sub

Private Sub Image1_Click()
Dim UserDir As String

UserDir = CurDir
TheFile = Application.GetOpenFilename('image(*.jpg),*.jpg')
If TheFile = False Then ChDir UserDir: Exit Sub
With Me.Image1
.Picture = LoadPicture(TheFile)
End With

ChDir UserDir
End Sub



bonne soiree
MichelXld

Message édité par: michelxld, à: 29/10/2005 17:54

 

[canard]

salut MichelXLD, le forum

merci ça fonctionne super.

Par contre j'ai essayé de faire réapparaitre l'image dans le second usf
a partir de ce qui est inscrit dans la colonne Z mais je n'y arrive pas.

Merci

@+

 

[MichelXld]

rebonsoir

pour le 2eme USF tu peux ajouter cette ligne


Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim li As Integer

li = ActiveCell.Row

For x = 1 To 2
Me.Controls('textbox' & x).Value = Cells(li, x).Value
Next x
Me.Image1.Picture = LoadPicture(Cells(li, 26))
End Sub



bonne soiree
MichelXld

 

[canard]

re MichelXLD, le forum

merci encore , en voyant ta ligne j'y été presque.

Merci encore

@+

 

[didier09]

Bonsoir le fil,
je me permet une intrusion dans le fil non pas pour apporter une solution, mais plutot pour un complément d'information. En effet cette méthode peut être utile un de ces jours dans un projet.
Quelle serait la syntaxe si notre classeur imagebis.xls était dans un répertoire qui lui même contient un répertoire où serait stokées les photos ?
Ce serait je pense mieux que d'écrire les chemin complets au cas où le classeur doit être ouvert sur un autre Pc.
par avance merci à vous
Didier

 

[canard]

Bonsoir, didier09, le forum

c'est une tres bonne idée, je navais pas pensé a ça ???

Merci
@+

 

[didier09]

bonsoir canard,
je cherche à faire avec ChDir ActiveWorkbook.Path mais bon je patine.... si j'ai la révélation je vous en fait part
Didier

 

[didier09]

Re,
Un début de solution :
On peux choisir l'image n'importe où sur le disque, et on enregistre seulement le nom et l'extension en colonne Z, par contre il faut la copier aprés coup manuellement dans le répertoire du classeur pour la voir à l'ouverture du Userform.
C'est pas terrible, désolé j'ai pas pu faire mieux pour l'instant.
Il faudrait au moment du choix copier aussi la photo dans le répertoire du classeur.
Là je sature, il est tard je reprendrai tout ça demain.
Il y a surement une autre façon de faire...
Bonsoir
Didier
[file name=imagebis_20051029234605.zip size=19596]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imagebis_20051029234605.zip[/file]

 

[didier09]

Bonjour forum,
j'ai progressé avec mon fichier, je pensais même avoir trouver la solution:
Quand je travaille avec un point d'arrêt pour controler tout ça, mes chemins sont corrects. par contre mon fichier ne se copie pas et je n'ai aucun message d'erreur???
j'ai donc un problème avec la méthode employée.
je joins mon fichier.
Didier
[file name=imagebis_20051030115227.zip size=20597]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imagebis_20051030115227.zip[/file]

 

[canard]

salut le fil , le forum

par contre je n'arrive pas a faire modifier l'image, enfin envoyer le nouveau chemin a partir de l'usf2 ???

Je m'explique quand on clik sur go , on remplie les textbox et on insere une image et on click sur ok.

Pas de probléme jusque la.

Ensuite on fait un clik droit sur une cellule de la colonne genre, s'affiche l'usf2 avec les textbox remplie et l'image.

Pas de probléme.

Par contre si on click sur l'image de l'usf2 pour en choisir une autre, c'est la que je n'arrive pas, on choisi l'image, elle s'affiche et quand on click sur ok , le nouveau chemin n'est pas pris en compte.

Vous me direz c'est normal , il n'y a rien dans le code qui est prévu pour ça .

Et c'est la que je coince, je viens de passer 2 heures a faire tout un tas
d'essais mais rien y fait.

Je replace le fichier joint

Merci
@+
Joyeux Halloween à tous [file name=imagebis_20051030170110.zip size=18653]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imagebis_20051030170110.zip[/file]

 

[didier09]

Bonsoir canard,
Ci joint ton fichier modifié.
Pour ma modif , je n' arrive pas à mes fins: A priori cela vient du fait que le fichier que je veux copier est actif : ma macro fonctionne pour l'image si je rentre le chemin en dur dans ma macro.
Si un maitre excelien passe par là j'espère qu'il pourra nous éclairer là dessus.
Didier


[file name=imagebis_20051030190828.zip size=17947]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imagebis_20051030190828.zip[/file]

 

[canard]

re didier09, le fil, le forum

Merci pour ta participation, mais ça ne fonctionne pas bien.
En regardant ta modif, tu fais mettre le chemin de l'image sur la derniere ligne et non sur la ligne selectionnée.

@+

 

[canard]

re le forum,

j'ai trouvé a la place de ta modif j'ai mis ça :

ActiveCell.Offset(0, 25).Value = TheFile

et apparement ça marche bien.

@+

 

[didier09]

Oups, désolé,
j'allais te proposer à la place:

Dim li As Integer
li = ActiveCell.Row

Cells(li, 26)=TheFile

ça marche aussi et c'était déjà exploité sous cette forme dans ton classeur.
Didier