Attribuer des photos par macro
Bonjour,
Je reviens vers vous toujours pour le même problème, l'écriture de ma macro!
J'ai une liste de nom avec une liste de photos...
Je souhaite qu'en sélectionnant un nom dans ma liste, il me colle la photo correspondante dans le fichier. J'ai fait un test sur un nouveau fichier et je pensais réussir, mais ma macro doit être fausse à nouveau :
Sub PHOTO()
Dim cel, NM
For Each cel In Range("A1:A9")
NM = cel.Value
If cel <> "" Then
ActiveSheet.Pictures.Insert( _
"E:\DONNEES\JP03D89A\MES_DOCUMENTS\Trombi\PHOTO TROMBINO\(NM).jpg"). _
Select
Exit For
End If
Next
End Sub
Si quelqu'un avait la clé du mystère ceci m'aiderait beaucoup ^^
Merci bien
bonjour,
Essaie de remplacer ta ligne ou tu appelles la photo par ceci
ActiveSheet.Pictures.Insert( _
"E:\DONNEES\JP03D89A\MES_DOCUMENTS\Trombi\PHOTO TROMBINO\" & NM & ".jpg"). _
Select J'ai essayé mais ca ne fonctionne pas
ton problème vient d'ailleur, pourrais-tu nous poster un fichier exemple, je comprend pas trop ton truc avec la liste de nom
merci
Bonjour kiki57, Math et le forum,
Peut-être ce lien peut-il t'aider Kiki57.
http://boisgontierjacques.free.fr/pages_site/formulairebases.htm
Il propose plusieurs ex en rapport avec ton problème.
Cdlt,
Desolée pour mon silence, mais je me suis absentée quelques jours!
Je vous joins un fichier pour avoir l'idée :
EN gros, c'est pour créer un trombinoscope, je souhaiterais que dès que je rajoute un nom dans la base de données, en cliquant sur un bouton il y attribue automatiquement la photo (qui se trouve dans un fichier).
Merci bcp!
PS : Je n'arrive pas à joindre mon fichier
Bonjour kiki57,
kiki57 a écrit :Desolée pour mon silence, mais je me suis absentée quelques jours!
Je vous joins un fichier pour avoir l'idée :
PS : Je n'arrive pas à joindre mon fichier
Regarde plus haut Joindre un fichier
Cdlt,
Re,
Ce doit être ce que tu recherche ou cela s'en rapproche. Si tu as des sousis
https://www.excel-pratique.com/~files/doc/SuivantPrecedent_PHOTO.zip
Cdlt,
Je suis désolée mais j'ai vraiment du mal à comprendre les formulaires!
Et en plus ce n'est pas vraiment ce que je veux (enfin si j'ai bien compris!)
Je vous explique, on est environ 200 personnes, et il y a souvent des départs ou des nouveaux arrivants, et pour faciliter les mises à jour, je voudrais que dès que je modifie ma base de données, dans mon fichier je puisse lancer une requête qui vérifie que toutes les personnes de ma bdd soient répertoriées et que dans le cas contraire il y ajoute le nom de la personne et sa photo!
Je ne sais pas si c'est possible, mais je pense que c'est faisable!
J'ai pensé à un système de carré (avec un nom attribué à chacun,) et que si le carré est vide y attribuer la photo du même nom...
Je commence à désespérer, car je n'y arrive vraiment pas...
Bonjour tout le monde,
Ca y est j'ai trouvé la macro qui m'intéressait, elle me convient parfaitement :
Sub INSERTIONPHOTO()
Dim MonImage As String
MonImage = ActiveCell.Value
On Error Resume Next
ActiveSheet.Pictures.Insert("E:\DONNEES\JP03D89A\MES_DOCUMENTS\Trombi\PHOTO TROMBINO\" & MonImage & ".jpg").Select
End Sub
La seule chose est que je souhaite que lorsqu'aucune photo n'est trouvée il y ait un message d'erreur "Aucune photo n'est repertoriée pour cette personne"
J'ai essayé ca :
Sub INSERTIONPHOTO()
Dim MonImage As String
MonImage = ActiveCell.Value
On Error Resume Next
ActiveSheet.Pictures.Insert("E:\DONNEES\JP03D89A\MES_DOCUMENTS\Trombi\PHOTO TROMBINO\" & MonImage & ".jpg").Select
If Error Then
MsgBox "Aucune..."
End If
End Sub
Mais dans ce cas là, la msgbox s'affiche tout le tps (qu'il ait trouvé la photo ou non!)
Je suis sure que c'est très simple, mais je ne vois pas quel langage utiliser! merci bcp
Bjr kiki57,
Essai çà
MsgBox ("Aucune...")Cdlt,
Merci,
Mais le problème ne vient pas de l'affichage du message mais de la condition d'affichage du message.
Merci quand meme!