Microsoft 365 Insérer une image

AnthO56 · 30 Décembre 2019

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.

Erreur

1drv.ms

En vous remerciant.

James007 · 30 Décembre 2019

Bonjour,

Au bas de cette page ... tu peux consulter une dizaine de sujets très similaires au tien ... 😉

AnthO56 · 30 Décembre 2019

Bonsoir,

Merci pour votre retour,

Cependant j'ai cherché avant de poster...

Je précise que je ne demande pas que l'on me fasse le boulot. Mais de l'aide à mettre en place cette modification.

Cordialement.

James007 · 30 Décembre 2019

Re,

Dans ce lien, tu trouveras un fichier test qui illustre une technique simple ...

XL 2013 - Insérer une image

Bonjour le forum, Me voudrais insérer une image selon le numéro avec une case à cocher ou Avec un menu déroulant C'est quoi le plus facile et une exemple me ferais grand plaisir, mais pas de VBA Merci d'avance. Laeti ;-)

www.excel-downloads.com

En espèrant que cela t'aide

Dudu2 · 31 Décembre 2019

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

MJ13 · 31 Décembre 2019

Bonjour à tous

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

Comment détecter et bloquer le « cryptomining » sur vot

Le cryptojacking consiste à détourner les ressources informatiques d'un tiers pour miner des cryptomonnaies. Pour les pirates, l'avantage est

blog.ipswitch.com

James007 · 31 Décembre 2019

MJ13 à dit:
Bonjour à tous

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

Comment détecter et bloquer le « cryptomining » sur vot

Le cryptojacking consiste à détourner les ressources informatiques d'un tiers pour miner des cryptomonnaies. Pour les pirates, l'avantage est

blog.ipswitch.com

Bonjour MJ13

Merci beaucoup pour le tuyau ...!!!

AnthO56 · 31 Décembre 2019

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

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.

AnthO56 · 31 Décembre 2019

MJ13 à dit:
Bonjour à tous

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

Comment détecter et bloquer le « cryptomining » sur vot

Le cryptojacking consiste à détourner les ressources informatiques d'un tiers pour miner des cryptomonnaies. Pour les pirates, l'avantage est

blog.ipswitch.com

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.

MJ13 · 31 Décembre 2019

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.

AnthO56 · 31 Décembre 2019

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.

Dès que je suis de retour à la maison, j'héberge le fichier sur One Drive.

Merci à toi.

Dudu2 · 31 Décembre 2019

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.

AnthO56 · 31 Décembre 2019

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.

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.

MJ13 · 2 Janvier 2020

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.

Microsoft 365 Insérer une image

AnthO56

XLDnaute Nouveau

Erreur

James007

XLDnaute Barbatruc

AnthO56

XLDnaute Nouveau

James007

XLDnaute Barbatruc

XL 2013 - Insérer une image

Dudu2

XLDnaute Barbatruc

MJ13

XLDnaute Barbatruc

Comment détecter et bloquer le « cryptomining » sur vot

James007

XLDnaute Barbatruc

Comment détecter et bloquer le « cryptomining » sur vot

AnthO56

XLDnaute Nouveau

AnthO56

XLDnaute Nouveau

Comment détecter et bloquer le « cryptomining » sur vot

MJ13

XLDnaute Barbatruc

AnthO56

XLDnaute Nouveau

Dudu2

XLDnaute Barbatruc

AnthO56

XLDnaute Nouveau

MJ13

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Microsoft 365 Insérer une image

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency