macro

Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement dans l'onglet
Dim Haut As Double 'déclare la variable Haut
Dim Gauche As Double 'déclare la variable Gauche
Dim Chem As String 'déclare la variable Chem

'si le changement se fait ailleurs que la cellule A1 ou si on effface A1, sort de la procédure
If Target.Address <> '$A$1' Or Range('A1').Value = '' Then Exit Sub

Haut = Range('A10').Top 'définit la variable Haut
Gauche = Range('A10').Left 'définit la variable Gauche

'ATTENTION !!! Tu dois à adapter le chemin ci dessous à ton cas
Chem = 'C:\\\\\\\\Documents and Settings\\\\\\\\Fred\\\\\\\\Mes documents\\\\\\\\PHOTO\\\\\\\\' 'définit la variable Chem

'suppression de l'ancienne photo
On Error Resume Next 'gestion de l'erreur si l'image n'existe plus
ActiveSheet.Shapes('Imag').Select 'sélectionne l'image nommée 'Imag'
If Err.Number = -2147024809 Then GoTo suite 'en cas d'erreur va à la balise 'suite'
Selection.Delete 'le supprime

suite: 'balise

'insertion de la nouvelle image correspondant à A1
On Error Resume Next 'gestion d'erreur en cas d'incohérance éditée en A1
ActiveSheet.Pictures.Insert(Chem & Range('A1').Value & '.jpg').Select 'insère l'image
If Err.Number = 1004 Then GoTo fin
Selection.Name = 'Imag' 'renomme l'image
Selection.Top = Haut 'position verticale de l'image
Selection.Left = Gauche 'position horizontale de l'image
Range('A1').Select 'sélectionne la cellule A1 (et désélectionne l'image)
Exit Sub 'sort de la procédure

fin: 'balise
MsgBox 'La valeur indiquée ne correspond pas à une image du dossier ''Photo''.' 'message
End Sub

Cliquez pour agrandir...