Bonjour à tous
j'utilise le code ci-dessous trouvé sur un post pour aller récupérer une photo dans un dossier logé au même endroit que mon excel et portant le même nom que celui défini en cellule A1 (nommée Site) étant une liste déroulante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Site").Value <> "" Then
X_Feuil27.Shapes("Photo").Fill.UserPicture ThisWorkbook.Path & "\PDG\" & Range("Site").Value & ".JPG"
Else
ActiveSheet.Shapes("Photo").Fill.Solid
ActiveSheet.Shapes("Photo").Fill.ForeColor.SchemeColor = 65
End If
End Sub
Comment dire que si on ne trouve pas de photo avec le nom en A1, d'aller chercher une autre photo dont le nom serait en M1 et que si M1 ="" de prendre la photo nommée "DEFAUT" ?
Merci pour votre aide
j'utilise le code ci-dessous trouvé sur un post pour aller récupérer une photo dans un dossier logé au même endroit que mon excel et portant le même nom que celui défini en cellule A1 (nommée Site) étant une liste déroulante :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("Site").Value <> "" Then
X_Feuil27.Shapes("Photo").Fill.UserPicture ThisWorkbook.Path & "\PDG\" & Range("Site").Value & ".JPG"
Else
ActiveSheet.Shapes("Photo").Fill.Solid
ActiveSheet.Shapes("Photo").Fill.ForeColor.SchemeColor = 65
End If
End Sub
Comment dire que si on ne trouve pas de photo avec le nom en A1, d'aller chercher une autre photo dont le nom serait en M1 et que si M1 ="" de prendre la photo nommée "DEFAUT" ?
Merci pour votre aide