Affichage de photo par le chemin d'accès

[antoine0207]

Bonjour,

J'ai une photo à afficher et j'ai dans une case son chemin d'acces

Je ne maitrise pas tres bien les macros d'excel mais je connais mieux la maniere d'utiliser VBA d'access

J'aimerai, à la mise a jour d'une cellule (car la cellule est remplie par access), que la photo s'affiche (si je le fait a l'ouverture de la feuille, elle ne sera pas affichée)

je ne sais pas comment créer un événement VBA à la mise a jour (peut etre une indacation ou un lien ?)

et je ne connais pas tres bien la syntaxe d'excel pour afficher une photo

Merci pour toute réponse

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

il n'y a pas de moyens pour afficher l'image par le chemin d'acces sur excel ?

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

personne a le temps de me glisser un pitit lien ?

j'ai déja fait l'aide d'excel, les faq et google ...... et rien ....

 

[Celeda]

Re : Affichage de photo par le chemin d'accès

Bonjour,

C'est dommage, j'avais vu ce matin,Chris qui était sur les promenades du Forum et qui est la es Doctor en ACCESS;

Par contre, as-tu été un peu trainer dans les archives, soit en t'y rendant directement, soit en tapant dans le bouton Recherche : image chemin acces repertoire. IL me semble, mais n'étant pas très douée pour les codes, qu'il existe pas mal de fichiers ou de messages qui disent comment afficher une image d'un répertoire mais dans ton cas avec une actualisation d'access...😱 😕 ; peut-être aller voir dans le forum de Chris sur self.access si des procédures peuvent être mises en place ou alors attendre que quelqu'un qui pratique les deux (excel et access, et il y en a sur ce forum) puisse avoir le temps de se pencher sur ta question.


Dans tous les cas, fais comme moi, pratique le DIL :



ne pas Désespérer,
ne pas s'Impatienter,
ne pas Lacher

😛

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

Merci beaucoup pour ta réponse
ça remonte le moral

en fait le coté access du probleme n'est justement pas un probleme (c'est juste pour expliquer que je ne peux pas faire autrement que d'afficher la photo a partir du chemin)


je vais refouiner en recherche

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

Je ne trouve pas ....
si quelqu'un a une piste

je commence vraiment a désespérer

 

[Kobaya]

Re : Affichage de photo par le chemin d'accès

salut antoine,

mets ce code dans le module de code de la feuille où se trouve la cellule raffraichie par Access :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.AddressLocal(False, False) = "A1" Then
        ' traitement voulu
    End If
End Sub

si tu veux plus d'explications, n'hésites pas...

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

merci je vais essayer

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

j'ai mis le code dans
outil
macro
visual basic editor
explorateur d'objet
VBAproject
microsoft excel objets
feuil1

c'est bien ça ?

parce que j'hésite avec
VBAproject
Feuille

et
VBAproject
Module

vu que tu me parle de feuille et de module

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

apperemment c'est bon car quand je raffraichis la cellule il me dit que mon code a une erreur

reste plus qu'a coriger le code

je te remercie du fond du coeur de t'etre interressé a moi

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

mon code c'est

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.AddressLocal(False, False) = "AD2" Then
        Image1.Picture = LoadPicture(AD2)
Image1.Visible = True
    End If
End Sub

en sachant que dans AD2 j'ai le chemin de l'image
et que je veux l'afficher dans une image que j'ai crée et qui s'appelle Image1

il me dit "objet requis" et le débogueur pointe sur " Image1.Picture = LoadPicture(AD2)"
une explication ?

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

je pense que l'erreur vient du AD2

sous quelle forme dois je le mettre ?

 

[Kobaya]

Re : Affichage de photo par le chemin d'accès

voili, voilou :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.AddressLocal(False, False) = "AD2" Then
        If Not IsEmpty(Target.Value) Then
            Image1.Picture = LoadPicture(Range("AD2").Value)
            Image1.Visible = True
        End If
    End If
End Sub

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

Merci beaucoup pour ce code, il a l'air de faire ce qu'il faut malheuresement quand je mets a jour ma cellule mon image ne bouge pas et il me dit "erreur 424 objet requis"
en pointant

Image1.Picture = LoadPicture(Range("AD2").Value)

je trouve pas ou ça coince

soit j'ai mis le code au mauvais endroit (il est dans le dossier "microsoft ecel objets") ( et donc pas dans "module" ni "feuilles")

soit il ne trouve pas image1 (objet requis ?)
mon image1 et une image que j'ai crée avec "insertion image à partir du fichier"
je l'ai ensuite renommée image1 via le cadre en haut a gauche ??

Quelqu'un voit ou je me suis trompé ?

 

[antoine0207]

Re : Affichage de photo par le chemin d'accès

vous croyez que je n'aurais pas du créé l'image comme ça ?

soit j'ai mis le code au mauvais endroit (il est dans le dossier "microsoft ecel objets") ( et donc pas dans "module" ni "feuilles")

soit il ne trouve pas image1 (objet requis ?)
mon image1 et une image que j'ai crée avec "insertion image à partir du fichier"
je l'ai ensuite renommée image1 via le cadre en haut a gauche ??