XL 2019 Comment créer un moteur de recherche IMAGE

frederio

XLDnaute Impliqué
Bonjour a tous

c est problème : ne marche pas photo

Vous Connais comment faire ? merci
 

Pièces jointes

  • formulee.xlsm
    21.9 KB · Affichages: 35
  • 2020-04-03_20-03-58.jpg
    2020-04-03_20-03-58.jpg
    106.2 KB · Affichages: 27
Dernière édition:

frederio

XLDnaute Impliqué
Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo errores

rutaimagen = "C:\Users\frederio\Desktop\formula\photo_2.jpg\" & Sheets("descripcion").Range("F2").Value
ActiveSheet.Shapes("photo").Fill.UserPicture (rutaimagen)
Exit Sub

errores:
ActiveSheet.Shapes("foto").Fill.UserPicture ("C:\Users\frederio\Desktop\formula\photo.jpg")
MsgBox ("empleado no encontrado")


End Sub
 
C

Compte Supprimé 979

Guest
Re,

Lo siento, no había visto tu primer mensaje con el archivo y el código ;)

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo errores
  ' Posible sintaxis si "photo_2.jpg" es una imagen
  'rutaimagen = "C:\Users\frederio\Desktop\formula\photo_2.jpg\" & Sheets("descripcion").Range("F2").Value
  ' Esta bien
  rutaimagen = "C:\Users\frederio\Desktop\formula\photo_2.jpg"
  ' Esta bien
  ActiveSheet.Shapes("foto").Fill.UserPicture (rutaimagen)
  Exit Sub

errores:
  ActiveSheet.Shapes("foto").Fill.UserPicture ("C:\Users\frederio\Desktop\formula\photo.jpg")
  MsgBox ("empleado no encontrado")
End Sub
 

frederio

XLDnaute Impliqué
ne marche pas changer photo


Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errores
' Posible sintaxis si "photo_2.jpg" es una imagen
'rutaimagen = "C:\Users\frederio\Pictures\Nouveau dossier\photo_2.jpg\" & Sheets("descripcion").Range("F2").Value
' Esta bien
rutaimagen = "C:\Users\frederio\Pictures\Nouveau dossier\photo_2.jpg"
' Esta bien
ActiveSheet.Shapes("foto").Fill.UserPicture (rutaimagen)
Exit Sub

errores:
ActiveSheet.Shapes("foto").Fill.UserPicture ("C:\Users\frederio\Pictures\Nouveau dossier\photo.jpg")
MsgBox ("empleado no encontrado")
End Sub


 

Pièces jointes

  • Copie de formulee-7.xlsm
    78.3 KB · Affichages: 9
Dernière édition:
C

Compte Supprimé 979

Guest
Re,

Ahora que sé cuál es tu preocupación, esta funciona
Tendrás que cambiar la ruta de acceso

VB:
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim sRuta As String, sImagen As String
  On Error GoTo errores
  ' Definir el camino/la ruta a las fotos.
  sRuta = "E:\Users\NonoZ\Documents\Mes Docs EXCEL\_Excel-Downloads\Frederio\Imagen\"
  ' Obtén el nombre de la imagen
  sImagen = Sheets("chercher").Range("D4") & ".jpg"
  ' Esta bien
  ActiveSheet.Shapes("foto").Fill.UserPicture (sRuta & sImagen)
  Exit Sub

errores:
  ActiveSheet.Shapes("foto").Fill.UserPicture (sRuta & sImagen)
  MsgBox ("empleado no encontrado")
End Sub

;)
 

jmfmarques

XLDnaute Accro
Bonjour à tous
Vous voudrez bien m'excuser, mais à force de traductions (au demeurant incertaines) entre une langue (au demeurant supposée) et l'autre, vous allez lentement mais sûrement vers ce qui ressemblera à du n'importe quoi.
PS : je doute personnellement assez que l'espagnol soit la langue que frederio maîtrise le "mieux".
 
C

Compte Supprimé 979

Guest
Bonjour à tous
Vous voudrez bien m'excuser, mais à force de traductions (au demeurant incertaines) entre une langue (au demeurant supposée) et l'autre, vous allez lentement mais sûrement vers ce qui ressemblera à du n'importe quoi.
Je ne te permet pas de t'avancer de la sorte... nul besoin de langage... juste besoin de code et d'image
PS : je doute personnellement assez que l'espagnol soit la langue que frederio maîtrise le "mieux".
Je pense que pour me dire ça tu as sorti ta boule de cristal
"ruta" et "imagen" qui sont utilisé dans le code sont de l'espagnol...

NO COMMENT
 

Membres actuellement en ligne

Statistiques des forums

Discussions
311 725
Messages
2 081 943
Membres
101 849
dernier inscrit
florentMIG