Microsoft 365 Insérer une image

A

AnthO56

XLDnaute Nouveau
Bonjour,

Je suis sur un projet professionnel, j'ai un fichier de création de Devis. J'y ai déjà apporté beaucoup de modifications afin de l'adapter à mes besoins.

Cependant, dans mon cahier des charges j'ai besoin d'insérer une Images d'illustration de chaque produit (dans la base produits) dernière colonne.
Evidemment, cette image doit être reportée dans les Devis générés (Devis EN et Devis FR).

Si une personne bien aimable serait disponible pour m'aider dans cette démarche.

Je joins donc une version du fichier. Je ne parviens pas à le joindre (trop volumineux)

"lien supprimé, site à risque" Avec toutes mes excuses je ne savais pas que Uptobox était aussi risqué.

Voici le fichier hébergé sur mon compte One-Drive.

Projet_V4_Eng_Include.xlsm

1drv.ms 1drv.ms

En vous remerciant.
 
Dernière édition:
Trier par date Trier par votes
Dudu2

Dudu2

XLDnaute Barbatruc
Bonjour,

Soit tu connais le nom de la Shape Image dans la Base produits.
VB: 
Dim Image as Shape
Set Image = ThisWorkbook.Worsheets("Base produits").Shapes(<nom image>)

Soit tu ne connais pas le nom de la Shape Image dans la Base produits mais tu connais la cellule dans laquelle l'image se trouve.
VB: 
Dim Image as Shape
Set Image = ImageEnCellule(ThisWorkbook.Worsheets("Base produits").Range(<cellule source de l'image>))

VB: 
'--------------------------------------
'Recherche d'une image dans une cellule
'--------------------------------------
Private Function ImageEnCellule(Cellule As Range) As Shape
    Dim oShape As Shape

    For Each oShape In Cellule.Parent.Shapes
        If oShape.Type = msoPicture Then
            If oShape.TopLeftCell.Address = Cellule.Address Then
                Set ImageEnCellule = oShape
                Exit Function
            End If
        End If
    Next
    Set ImageEnCellule = Nothing
End Function

Ensuite tu la copies où il faut, par exemple positionnée dans une cellule.
VB: 
If Not Image Is Nothing Then
    Image.Copy
    ThisWorkbook.Worsheets("DEVIS FR").Range(<cellule destination de l'image>).Select
    ThisWorkbook.Worsheets("DEVIS FR").Paste
End If
 
Vote positif 0 Vote négatif
James007

James007

XLDnaute Barbatruc
Vote positif 0 Vote négatif
A

AnthO56

XLDnaute Nouveau
Dudu2 à dit:
Bonjour,

Soit tu connais le nom de la Shape Image dans la Base produits.
VB: 
Dim Image as Shape
Set Image = ThisWorkbook.Worsheets("Base produits").Shapes(<nom image>)

Soit tu ne connais pas le nom de la Shape Image dans la Base produits mais tu connais la cellule dans laquelle l'image se trouve.
VB: 
Dim Image as Shape
Set Image = ImageEnCellule(ThisWorkbook.Worsheets("Base produits").Range(<cellule source de l'image>))

VB: 
'--------------------------------------
'Recherche d'une image dans une cellule
'--------------------------------------
Private Function ImageEnCellule(Cellule As Range) As Shape
    Dim oShape As Shape

    For Each oShape In Cellule.Parent.Shapes
        If oShape.Type = msoPicture Then
            If oShape.TopLeftCell.Address = Cellule.Address Then
                Set ImageEnCellule = oShape
                Exit Function
            End If
        End If
    Next
    Set ImageEnCellule = Nothing
End Function

Ensuite tu la copies où il faut, par exemple positionnée dans une cellule.
VB: 
If Not Image Is Nothing Then
    Image.Copy
    ThisWorkbook.Worsheets("DEVIS FR").Range(<cellule destination de l'image>).Select
    ThisWorkbook.Worsheets("DEVIS FR").Paste
End If
Cliquez pour agrandir...

Bonjour,

Merci beaucoup pour cette aide.

As tu eu l'occasion de voir comment est composé mon fichier ? J'avoue avoir besoin d'un peu plus de précisions.

En fait, dans l'onglet "base produits" j'ai une liste de produits avec une référence par ligne (liste non exhaustive) elle est à compléter (environ 120 références). En dernière colonne, je souhaiterais y mettre une image correspondant à chaque référence produit.

Dans l'onglet "base devis" c'est là que je rentre les quantités désirées pour chaque produit ainsi que le client ect... Ce qui génère le devis en Français dans l'onglet "Devis FR" et en Anglais dans l'onglet "Devis EN"

C'est dans ces deux derniers onglets (Devis FR et Devis EN) que les images de la colonne "images" correspondant à chaque produit de l'onglet "base produits" doivent venir aussi s'intégrer.

En clair, même avec le code donné je ne vois pas comment m'y prendre pour l'adapter à mon fichier.

Bien cordialement.
 
Vote positif 0 Vote négatif
A

AnthO56

XLDnaute Nouveau
MJ13 à dit:
Bonjour à tous

Attention quand même avec Uptobox qui se sert de notre ordi pour générer de la cryptomonnaie!

blog.ipswitch.com

Comment détecter et bloquer le « cryptomining » sur votre réseau

Le cryptojacking consiste à détourner les ressources informatiques d'un tiers pour miner des cryptomonnaies. Pour les pirates, l'avantage est clair :
blog.ipswitch.com
Cliquez pour agrandir...
Bonjour,

Merci de l'info.

J'avoue avoir opté pour la facilité étant donné que mon fichier était trop volumineux pour être intégré directement sur le forum.

Cela dit, je peux le mettre sur one drive si cela est plus convenable.

Cordialement.
 
Vote positif 0 Vote négatif
MJ13

MJ13

XLDnaute Barbatruc
Sinon, essaie un autre comme transfernow ou OneDrive, pourquoi pas. :)

Je viens de faire un test avec transfernow que je retirerai après le test. Bon, après le test, par contre Windows smart screen empêche le téléchargement!

Du coup, essaie avec Onedrive, Microsoft devrait l'accepter. ;)

Tu peux aussi supprimer ce qui n'est pas indispensable dans ton fichier pour qu'il diminue de taille et que tu puisses le télécharger sur le site.

Et retire le lien dans ton premier message, sinon, c'est David qui va le faire.

Dernier test en désactivant smartcreen sur mon PC. Et là, avec transfernow, cela fonctionne. Ensuite je remets SmartScreen sur mon PC.
 
Dernière édition:
Vote positif 0 Vote négatif
A

AnthO56

XLDnaute Nouveau
MJ13 à dit:
Sinon, essaie un autre comme transfernow ou OneDrive, pourquoi pas. :)

Je viens de faire un test avec transfernow que je retirerai après le test. Bon, après le test, par contre Windows smart screen empêche le téléchargement!

Du coup, essaie avec Onedrive, Microsoft devrait l'accepter. ;)

Tu peux aussi supprimer ce qui n'est pas indispensable dans ton fichier pour qu'il diminue de taille et que tu puisses le télécharger sur le site.

Et retire le lien dans ton premier message, sinon, c'est David qui va le faire.

Dernier test en désactivant smartcreen sur mon PC. Et là, avec transfernow, cela fonctionne. Ensuite je remets SmartScreen sur mon PC.
Cliquez pour agrandir...
Dès que je suis de retour à la maison, j'héberge le fichier sur One Drive.

Merci à toi.
 
Vote positif 0 Vote négatif
Dudu2

Dudu2

XLDnaute Barbatruc
Bonjour

En clair, même avec le code donné je ne vois pas comment m'y prendre pour l'adapter à mon fichier.

Il y a si peu de choses à adapter et c'est tellement simple que je ne vois vraiment pas comment t'aider davantage. Désolé.
Il va falloir que tu fasses le tout petit effort nécessaire. Ou alors fais-toi aider sur place par quelqu'un qui connait un peu le VBA.
Bonne chance.
D.
 
Vote positif 0 Vote négatif
A

AnthO56

XLDnaute Nouveau
Dudu2 à dit:
Bonjour

En clair, même avec le code donné je ne vois pas comment m'y prendre pour l'adapter à mon fichier.

Il y a si peu de choses à adapter et c'est tellement simple que je ne vois vraiment pas comment t'aider davantage. Désolé.
Il va falloir que tu fasses le tout petit effort nécessaire. Ou alors fais-toi aider sur place par quelqu'un qui connait un peu le VBA.
Bonne chance.
D.
Cliquez pour agrandir...

Ce qui est évident pour certains ne l'est pas forcément pour d'autres.

Merci quand même du temps que tu as bien voulu me consacrer.

Bonnes fêtes de fin d'année.

Cordialement.
 
Dernière édition:
Vote positif 0 Vote négatif
MJ13

MJ13

XLDnaute Barbatruc
Bonjour à tous

Voici un extrait de ton fichier pour insérer une image dans la cellule contenant la référence de l'image (nom de dossier et nom de fichier).

J'utilise aussi la Windows Images acquisition librarie (Wiaut2.dll).

Ensuite, à toi de voir comment l'exploiter.

Par contre, qelque chose m'échappe, je ne comprend as pourquoi ton fichier est si lourd, il devrait faire moins de 1 Mo.
 

Pièces jointes

  • Test_Ins_Img.xlsm
    33.5 KB · Affichages: 15
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

A
  • Question
XL 2016 Excel: insérer des données provenant d’une image
Réponses
2
Affichages
324
Arno_1111
A
T
  • Résolu(e)
XL 2010 VBA - Insérer une image
Réponses
2
Affichages
486
Titi456
T
E
  • Question
XL 2013 Insérer dans un USF une image qui est dans une feuille
2 3 4
Réponses
50
Affichages
2 K
patricktoulon
patricktoulon
I
  • Question
Autres Classements pour un cross d'établissement scolaire
Réponses
1
Affichages
406
jcf6464
jcf6464
T
  • Question
Microsoft 365 Insérer une image à fond transparent à format png dans un Userform
2
Réponses
18
Affichages
2 K
patricktoulon
patricktoulon
N
  • Question
Microsoft 365 Insérer une image dans un Userform
Réponses
2
Affichages
2 K
Naaave
N
X
  • Résolu(e)
XL 2016 Souci pour mettre un nombre dans une cellule en croisant colonne et ligne.
2
Réponses
16
Affichages
531
Xender
X
D
  • Résolu(e)
Microsoft 365 Déplacer et redimensionner une image dans une feuille protégée
Réponses
12
Affichages
764
sylvanu
sylvanu
Grim's Art Design
  • Question
XL 2016 code VBA pour insérer une image
Réponses
2
Affichages
620
Grim's Art Design
Grim's Art Design
T
  • Résolu(e)
XL 2010 VBA - Bouton insérer une image ou un pdf dans un groupe de cellules fusionnées
Réponses
4
Affichages
1 K
kiki29
kiki29

Membres actuellement en ligne

17 membres et 284 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 201
Messages
2 086 164
Membres
103 149
dernier inscrit
Deepkneec