XL 2016 Insertion image en vba : passage de Excel à Open Office

job75

XLDnaute Barbatruc

• 26 Août 2020

• #2

Bonjour marsrtn, bienvenue sur XLD,

marsrtn à dit:

Vous auriez une idée de comment résoudre cela ?

Cliquez pour agrandir...

L'idée viendra certainement quand on verra le fichier et toute la macro

A+

 

Vote positif 0 Vote négatif

M

marsrtn

XLDnaute Nouveau

• 27 Août 2020

• #3

job75 à dit:

Bonjour marsrtn, bienvenue sur XLD,

L'idée viendra certainement quand on verra le fichier et toute la macro

A+

Cliquez pour agrandir...

Héhé, ca y est j'ai joint le fichier !! Effectivement c'est mieux comme cela !
Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Août 2020

• #4

Héhé ce fichier ne va pas du tout.

Son extension .xls ne permet pas de l'enregistrer et il y a bug à l'ouverture.

De plus le code du post #1 n'existe pas, ce n'est peut-être pas le bon fichier.

 

Vote positif 0 Vote négatif

M

marsrtn

XLDnaute Nouveau

• 28 Août 2020

• #5

Revoici le fichier en pièce jointe, chez moi il n'y a pas de bug à l'ouverte.
Le code cité dans le post#1 se trouve dans VBAProjetc/Formulaires/UserForm1
=> Ligne 455

Merci !!

 

Pièces jointes

• Outil Fiche d'Information Risque Chimique.xlsm

  129.9 KB · Affichages: 4

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 28 Août 2020

• #6

J'ai testé sans aucun problème votre code :

VB:

If el = "Vêtements de protection" Then
Set objPict = objFeuille.Pictures.Insert(ThisWorkbook.Path & "/Pictogrammes/Pictodobligation/3.jpg")

End If

L'image 3.jpg s'est bien insérée dans la cellule B13 de la feuille "4. FIRC".

Vérifiez le chemin d'accès et l'extension jpg de votre fichier image.

 

Vote positif 0 Vote négatif