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
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
Je ne te permet pas de t'avancer de la sorte... nul besoin de langage... juste besoin de code et d'imageBonjour à 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 pense que pour me dire ça tu as sorti ta boule de cristalPS : je doute personnellement assez que l'espagnol soit la langue que frederio maîtrise le "mieux".