Bonjour a tous
Voici un code qui insert une image
quand le nom de celle ci est inscrit dans L5
mais elle s'insert dans la cellule du dernier clic de la souris
et moi je voudrais l'insert en B2
et au format (dimension) de celle ci
Sub Macro1()
maphoto = "c:\" & Range("L5") & ".jpg"
If Dir(maphoto) <> "" Then
ActiveSheet.Pictures.Insert(maphoto).Select
Else
MsgBox "dessin 3D manquant"
End If
End Sub
Si quelqu'un a une idée
Merci par avance
Aiglon74
Voici un code qui insert une image
quand le nom de celle ci est inscrit dans L5
mais elle s'insert dans la cellule du dernier clic de la souris
et moi je voudrais l'insert en B2
et au format (dimension) de celle ci
Sub Macro1()
maphoto = "c:\" & Range("L5") & ".jpg"
If Dir(maphoto) <> "" Then
ActiveSheet.Pictures.Insert(maphoto).Select
Else
MsgBox "dessin 3D manquant"
End If
End Sub
Si quelqu'un a une idée
Merci par avance
Aiglon74