Microsoft 365 VBA - Insertion image depuis un dossier extérieur, suivant une valeur d'une cellule à partir d'une liste déroulante.

Arthur EXL · 3 Juin 2021

Bonjour,

Après avoir consulté plusieurs forums et effectué quelques tests avec le peu de connaissances que j'ai en VBA, je me tourne vers vous

Mon Objectif : insérer une image depuis un dossier spécifique, dans une cellule spécifique, en fonction du texte dans une cellule.
Je m'explique : j'ai créer un fichier qui me permet de retrouver un équipement à partir du secteur dans lequel il se trouve (listes en cascade), le tout en VBA.

L'ordre de saisi est le suivant : Secteur > Equipement > Sous-Equipement
De plus, le code vient réécrire en dessous les sélections, ainsi que des informations en plus (pas encore présentes mais se sont les deux colonnes vides).

Je voudrais que si on sélectionne l'équipement "M21 Ventilateur" par exemple, ça me fasse apparaître l'image correspondante, dans une cellule spécifique, et que si par la suite on vient sélectionner une sous-équipement "Armoire Electrique" par exemple, ça remplace l'image du M21 Ventilateur par celle de l'armoire..

J'espère avoir été simple et claire dans mes explications, et que vous pourrez m'aider pour mon projet

Merci par avance de toute pistes ou réponses. Si besoin je peux partager le fichier pour une meilleure compréhension ...

Cordialement,

Arthur

Lolote83 · 4 Juin 2021

Re bonjour,
Ca y est, de nouveau accès au site. Du coup, voici un nouveau code qui permet d'insérer une image et de l'agrandir/réduire au contenu H8:I22
Bien sur, le chemin et nom d'image sont à adapter à ton besoin

VB:

Sub Cmd_AfficheImage2_Cliquer()
    Application.ScreenUpdating = False
    On Error Resume Next
    xNomGénériqueImage = "MonImage"
    ActiveSheet.Shapes.Range(Array("" & xNomGénériqueImage & "")).Delete
    xRépertoireImage = "C:\Users\toto\Pictures\"             'A adapter
    xFichierImage = "fenetre2.jpg"                               'Nom d'image a afficher
    Nf = xRépertoireImage & "\" & xFichierImage
    If Dir(Nf) <> "" Then
        Set C = Range("H8").MergeArea
        With ActiveSheet...

Lolote83 · 3 Juin 2021

Bonjour,
Va faire un tour ici, tu devrais trouver ton bonheur
Lien = http://boisgontierj.free.fr/pages_site/lesimages.htm
@+ Lolote83

Arthur EXL · 3 Juin 2021

Bonjour Lolote83, je regarde ca merci

Arthur EXL · 3 Juin 2021

Re
Alors j'ai essayé plusieurs méthodes à partir de ton lien, notamment avec le afficheImage.
Ca ne fonctionne pas. Je me demandais, étant donné que le dossier de stockage se trouvant sur un serveur, est-ce que ca peu poser problème ?
Début de l'adresse : \\sfrrms051.eu.xxx/xx....

Et est-ce qu'il y a des modifications à apporter dans les codes proposés dans le lien (hormis changer l'adresse du dossier :s) ?

Merci d'avance.

Etoto · 3 Juin 2021

Arthur EXL à dit:
Re
Alors j'ai essayé plusieurs méthodes à partir de ton lien, notamment avec le afficheImage.
Ca ne fonctionne pas. Je me demandais, étant donné que le dossier de stockage se trouvant sur un serveur, est-ce que ca peu poser problème ?
Début de l'adresse : \\sfrrms051.eu.xxx/xx....

Et est-ce qu'il y a des modifications à apporter dans les codes proposés dans le lien (hormis changer l'adresse du dossier :s) ?

Merci d'avance.

Bonjour,

Je pense que le mieux c'est que les images soient stocké dans les SSD ou HDD de ton ordinateur.

Arthur EXL · 3 Juin 2021

Etoto à dit:
Bonjour,

Je pense que le mieux c'est que les images soient stocké dans les SSD ou HDD de ton ordinateur.

Le problème c'est que le fichier excel doit pouvoir s'utiliser sur différent PC donc obligé de passer par un serveur...

Etoto · 3 Juin 2021

Arthur EXL à dit:
Le problème c'est que le fichier excel doit pouvoir s'utiliser sur différent PC donc obligé de passer par un serveur...

Et OneDrive ? Cela peut-être top surtout que tu as Office 365, lui il a un chemin pour relier à l'ordinateur.

Arthur EXL · 3 Juin 2021

Etoto à dit:
Et OneDrive ? cela peut-être top surtout que tu as Office 365.

Impossible aussi, c'est un serveur d'usine on peut pas passer par un drive. C'est un serveur local, pas de wifi sinon risque de vol de données

Etoto · 3 Juin 2021

Arthur EXL à dit:
Impossible aussi, c'est un serveur d'usine on peut pas passer par un drive. C'est un serveur local, pas de wifi sinon risque de vol de données

Has bas un serveur local ça peut aller, quand tu disais "serveur" je pensais à un serveur externe.

Arthur EXL · 3 Juin 2021

Etoto à dit:
Has bas un serveur local ça peut aller, quand tu disais "serveur" je pensais à un serveur externe.

Autant pour moi j'ai manqué de précision, c'est effectivement un serveur local.
Une idée pour moi problème ?

Etoto · 3 Juin 2021

Aucune idée malheureusement et je finis ma journée, alors j'espère que quelqu'un pourra trouver une solution.

Lolote83 · 3 Juin 2021

Bonsoir.
Il est vrai que le lien fourni donne énormément d'informations.
Tu dis

Alors j'ai essayé plusieurs méthodes à partir de ton lien, notamment avec le afficheImage.

Or si je regarde le AfficheImage, cela correspond à des images internes et non externes.
Je pense plutôt qu'il faudrait que tu cibles ceci (Toujours sur le lien fourni) en milieu de page ....

Si tu cliques sur les fichiers soulignés, tu auras les exemples a télécharger et voir celui qui correspond le plus à tes besoins.
Maintenant, sans fichier joint, il est difficile pour nous de faire plus et même si on avait ton fichier, on a pas les photos associées.
Essaye de voir de ce coté là.
@+ Lolote83

Arthur EXL · 4 Juin 2021

Lolote83 à dit:
Bonsoir.
Il est vrai que le lien fourni donne énormément d'informations.
Tu dis

Or si je regarde le AfficheImage, cela correspond à des images internes et non externes.
Je pense plutôt qu'il faudrait que tu cibles ceci (Toujours sur le lien fourni) en milieu de page ....
Regarde la pièce jointe 1107429
Si tu cliques sur les fichiers soulignés, tu auras les exemples a télécharger et voir celui qui correspond le plus à tes besoins.
Maintenant, sans fichier joint, il est difficile pour nous de faire plus et même si on avait ton fichier, on a pas les photos associées.
Essaye de voir de ce coté là.
@+ Lolote8J

Bonjour @Lolote83 ,

Je pense qu'il y a un problème, c'est que moi ma liste n'est pas une liste que l'on créée avec l'option "validation des données", mais c'est une liste VBA.
Je met mon fichier en PJ pour bien comprendre.
Et lorsque j'écris le code, il ne se passe rien, je me demande si le code lit bien ce qu'il y a dans la cellule de la liste.

Dranreb · 4 Juin 2021

Bonjour
Si le cadre contient un OLEObject Image, on devrait pouvoir l'affecter à sa propriété Picture
.Picture = LoadImage(CheminNomFic)
Remarque: pour mettre en CurDir un tel dossier, la séquence ChDrive/ChDir ne marche pas, il faut utiliser l'API SetCurrentDirectoryA

XL 2013 - Ouvrir une fenetre d'ouverture de fichier avec le chemin du classeur courant

Bonjour tout le monde :) je me permets de vous embêter car je ne trouve pas la solution à mon problème malgré mes recherches Je souhaite via vba permettre à l'utilisateur de selectionner un fichier excel qui me permettra de faire plein de trucs avec je souhaiterai que le chemin proposé par...

www.excel-downloads.com

Lolote83 · 4 Juin 2021

Re bonjour ARTHUR EXL,

Voici ton fichier en retour avec un bouton "Afficher une image" et le code fourni au post#12 un peu modifié
Je ne suis pas rentré dans ton code, mais il faudra donc modifier dans le module 5 le nom du chemin relatif aux images que tu souhaites afficher ainsi que le nom de l'image.
Aujourd'hui, je n'arrive pas a retourner sur le site de Boisgontier (bugg) pour ajuster une image au contenu H8:I22
Dans tous les cas, si je met en dur pour le moment un chemin ainsi qu'une image, elle s'affiche.
Bon courage pour la suite
@+ Lolote83

Microsoft 365 VBA - Insertion image depuis un dossier extérieur, suivant une valeur d'une cellule à partir d'une liste déroulante.

Arthur EXL

XLDnaute Nouveau

Lolote83

Lolote83

XLDnaute Barbatruc

Arthur EXL

XLDnaute Nouveau

Arthur EXL

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Arthur EXL

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Arthur EXL

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Arthur EXL

XLDnaute Nouveau

Etoto

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

Arthur EXL

XLDnaute Nouveau

Pièces jointes

Dranreb

XLDnaute Barbatruc

XL 2013 - Ouvrir une fenetre d'ouverture de fichier avec le chemin du classeur courant

Lolote83

XLDnaute Barbatruc

Pièces jointes

Discussions similaires