Afficher une photo suivant la valeur partielle d'une cellule
Bonjour le forum,
Tout d'abord merci de m'accueillir sur votre site. Je suis novice.
J'ai un répertoire avec des photos ex Bastide 706065 (fournisseur+n°commande).
Voici ma macro qui va chercher et coller sur une fiche Excel la photo dont le numéro de commande ici 706065 est en cellule "B23".
Sub PHOTO_Click()
' AFFICHAGE DE LA PHOTO
Dim chemin As String
Dim nomimage As Variant
Dim image As Variant
chemin = "D:\Répertoire\2020\ANOMALIES\Photos Litiges\"
nomimage = Range("B23")
image = ".jpg"
ActiveSheet.Shapes.AddPicture Filename:=chemin & nomimage & image, linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=672, Top:=0, Width:=732, Height:=503
End Sub
Si dans le répertoire je nomme ma photo 706065 la photo est trouvée et collée mais si je la nomme Bastide 706065 j'ai un message d'erreur.
Je cherche une formule du type nomimage= "*" & Range("B23")
Si quelqu'un a la solution,
Merci d'avance.
Bonjour,
Voici un essai :
Sub PHOTO_Click()
' AFFICHAGE DE LA PHOTO
Dim dossier$, cpt$, ext$, fichier$
dossier= "D:\Répertoire\2020\ANOMALIES\Photos Litiges\"
cpt = Range("B23")
ext = ".jpg"
fichier = dir(dossier& "*" & cpt & ext)
if fichier <> "" then
fichier = dossier & fichier & ext
ActiveSheet.Shapes.AddPicture Filename:=fichier, linktofile:=msoFalse, _
savewithdocument:=msoTrue, Left:=672, Top:=0, Width:=732, Height:=503
else
msgbox "Image introuvable"
end if
End SubCdlt,
Merci 3GB de m'avoir accordé un peu de ton temps,
Je vais tester cela et te tiens au courant.
Bonne soirée.
Après quelques ajustements (fichier= dossier & fichier) : j'ai simplement supprimé le & ext
Et...
Tout fonctionne correctement!!!.... Génial!!!...
15 jours sans trouver la solution... et toi 3GM tu me l'apportes sur un plateau...
Merci infiniment et longue vie au site.
Merci de ce retour rapide et chaleureux !
Bonne continuation à toi Carl !
Encore merci 3GB...Au plaisir.
En tout cas, j'étais ravi d'avoir donné un coup d'pouce (toi aussi apparemment^^).
A bientôt sur le fil peut-être !