XL 2019 Comment créer un moteur de recherche IMAGE

[frederio]

Bonjour a tous

c est problème : ne marche pas photo

Vous Connais comment faire ? merci

 

[frederio]

???

 

[Compte Supprimé 979]

Hi Frederio

You can use Google translate for your request
As it stands, we cannot understand what you want

 

[frederio]

bonjour a tous

c est problème

 

[Compte Supprimé 979]

Re,

Quoi toi utiliser pour code !?

 

[frederio]

Je suis travail faute avec code

 

[Compte Supprimé 979]

Re,

Toi devoir donner code... pour nous aider 😉

 

[frederio]

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

 

[Compte Supprimé 979]

Re,

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

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]

ne marche pas

 

[Compte Supprimé 979]

Re,

¿Tiene una imagen "photo_2.jpg" en la ruta "C:\Users\frederio\Desktop\formula\"

 

[frederio]

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

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

 

[Compte Supprimé 979]

Re,

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

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

Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.

Accepter les cookies de tiers

😉

 

[jmfmarques]

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".

 

[Compte Supprimé 979]

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