XL 2010 Récup photo dans dossier

[safranien]

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

 

[sylvanu]

Bonsoir Safranien,
J’essaierais un truc de ce genre :

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"
ElseIf [M1] <> "" Then
    X_Feuil27.Shapes("Photo").Fill.UserPicture ThisWorkbook.Path & "\PDG\" & Range("M1").Value & ".JPG"
Else
    X_Feuil27.Shapes("Photo").Fill.UserPicture ThisWorkbook.Path & "\PDG\DEFAUT.JPG"
    ActiveSheet.Shapes("Photo").Fill.Solid
    ActiveSheet.Shapes("Photo").Fill.ForeColor.SchemeColor = 65
End If
End Sub

( en supposant que "Site" c'est A1.)
Mais je ne suis pas sur du traitement du Else, pas de fichier pour tester.

 

[safranien]

Bonjour Sylvanu

merci beaucoup pour ta propo que j'ai essayée mais qui me retourne une erreur. Ci-joint un fichier test avec des photos à mettre dans un dossier nommé "PDG".Dans l'onglet PDG, on retrouve en A1 la recopie du texte de la liste déroulante en P1 qui est normalement sur une autre feuille. J'ai une contrainte supplémentaire, mon fichier est forcément en option de calcul manuel, car très volumineux. Je lance les calculs manuellement puis une fois finis, j'actualise plusieurs onglets. Dans ce fichier je n'actualise que l'onglet PDG. Je simule rentrer dans une cellule pour actualiser et ça m'affiche bien la nouvelle image. J'ai utilisé l'enregistreur de macro mais il y a surement plus propre. En attendant j'utilise ça.
J'ai modifié le code et ça semble donner satisfaction. Dans ma cellule A1, ma formule dit que si il n'y a pas d'image par défaut défnie pour un site, afficher "_DEFAUT_1". Du coup, la macro a toujours qqch à récupérer en M1.

Voilà, si tu as des idées d'optimisation d'écriture, je suis preneur ^^

 

[sylvanu]

Bonjour,
Au vu du fichier, peut être est il plus simple de résoudre le problème directement sur la feuille.
En A1 on choisit ce qu'on veut P1, M1 ou L1.
Donc plus de problème de macro.

 

[safranien]

Merci Sylvanu
Je pense avoir réussi avec la macro, j'ai fait plusieurs essais et cela fonctionne.
Merci encore pour ton aide.