Bonjour a tous
 
J’ai créé un répertoire sous Excel  
 
En tapant les noms de mais amis en cellule a1 feuille répertoire
 
J’ai leur adresse tel etc. … en divers cellules (=SI(a1="";"";RECHERCHEV(a1;Base!$A$1:CU8000;2;FAUX))
Ma base de donnée et en feuille base
Cela marche très bien  
 
Problème j’aimerai que leurs photos sois insère à cote de leur nom tel etc.
En page répertoire  
 
Comment mémorise une photo avec tel personne
 
Merci par avance
Aiglon74

Bonsoir,
Range("C8" ).Select
    ActiveSheet.Pictures.Insert("C:\Documents and Settings\........\Mes documents\Mes images\basegif.gif" ).Select
 
ceci pourrait-il répondre à tes deux postes?
Cordialement

bonsoir,
ca insere bien une photo  
mais tiens pas compte du resultat de ma cellule l5
si ma cellule l5 contient le resultat 35100 alors insere la photo nome 35100.jpeg
si ma cellule l5 contient le resultat 35200 alors insere la photo nome 35200.jpeg
cordialement
 

Bonjour,
un petit effort!!! c'est bon pour les neurônes.
dim maphoto as string
maphoto = "C:\...........\" & range("I5" ).value & ".jpg"
 ActiveSheet.Pictures.Insert(maphoto ).Select  
 
Je n'ai pas testé, mais cela devrait fonctionner
Cordialement

 
 
 
 
bonjour  
 
 
j'ai essayer cette macro mais elle bloque
 
Sub Macro9()
 
Dim maphoto As String
ActiveSheet.Unprotect
 
maphoto = "c:\documents and settings\all users\macro\hysek\ne pas toucher\photos\35100.jpeg" & Range("I5" ).Value & ".jpeg"
ActiveSheet.Pictures.Insert(maphoto).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 
Cordialement

Bonsoir,
est-ce vraiment ce que tu as mis?
"c:\documents and settings\all users\macro\hysek\ne pas toucher\photos\35100.jpeg" & Range("I5" ).Value & ".jpeg"  
 
a)tes photos ont l'extension jpeg ou jpg?
 
b) En supposant que tu mettes 35100 dans I5, avec ce que as écris tu obtiens:
 
"c:\documents and settings\all users\macro\hysek\ne pas toucher\photos\35100.jpeg35100.jpeg"  
 
Il serait bien que tu indiques le message total de l'erreur et la ligne concernée. Mais corrige déjà le maphoto=....
Cordialement
 
 
 

extenttion photo  image jpeg
 
Sub Macro1()
'
 
Dim maphoto As String
ActiveSheet.Unprotect
 
maphoto = "c:\documents and settings\all users\macro\hysek\ne pas toucher\photos\35100.jpeg" & Range("l5" ).Value & ".jpeg"
ActiveSheet.Pictures.Insert(maphoto).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 
message d'erreur
 
ereur d'execution "1004"
impossible de lire la propriete insert de la classe picture
 
 je deboge
 
surligne de aune la ligne
 
ActiveSheet.Pictures.Insert(maphoto).Select

retirer le 35100.jpeg qui est en trop dans maphoto=.....

j'ai fait la modif
 
mais n'a changer
 
meme message d'erreur

Bonjour,
as-tu essayé d'enregistrer une macro avec un : insert-> image-> à partir du fichier??
en sélectionnant ton image?
Cordialement

bonjour, Seniorpapou
 
oui avec insert-> image-> à partir du fichier
ca marche  
 
mais ne tiens pas compte du resultat de ma cellule L5
Je r'appelle que je voudrais  
L5 = 35000    ouvre la photo qui porte le nom 35000
L5 = 36000    ouvre la photo qui porte le nom 35000
ect.....
 
et la je coince
 
A+     Aiglon74

Bonsoir,
as-tu écrit ceci?
maphoto = "c:\documents and settings\all users\macro\hysek\ne pas toucher\photos\" & Range("L5" ).Value & ".jpeg"  
cordialement
 

bonsoir,
 
voici la macro comme je l'est ecrit  mais elle bloque
quand je deboge  
la ligne
ActiveSheet.Pictures.Insert(maphoto).Select
et surlignée de jaune
 
 
 
Sub Macro1()
'
 
Dim maphoto As String
ActiveSheet.Unprotect
 
maphoto = "c:\documents and settings\all users\macro\hysek\ne pas toucher\photos" & Range("l5" ).Value & ".jpeg"
ActiveSheet.Pictures.Insert(maphoto).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
 
 
Aiglon74  

Bonjour,
avec
maphoto = "c:\documents and settings\all users\macro\hysek\ne pas toucher\photos\" & Range("l5" ).Value & ".jpeg"  
ca devrait fonctionner. (ajout d'un "\" apres photos)
c'est d'ailleurs ce que t'avais donné seniorpapou  

bonsoir a tous
 
toujour meme probleme
malgrés les modifs
 
aiglon74
 

Bonjour,
pour trouver le PB est-il possible de nous envoyer un.xls expurgé, ainsi qu'un .jpeg qui plante, sans que ce soit bien entendu la photo d'un ami........  
Cordialement

Comment mets tu à jour la cellule L5 et quand ?

bonsoir  
 
ca marche  mille merci  a Seniorpapou et Paul Hood
pour votre patience a tout 2
probleme resolu la photo que j'essayer etait defaillante
 
aiglon74

Lol