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

[marsrtn]

Bonjour à tous,

j'ai ouvert un fichier plein de macro venant d'excel.
Ca bug au moment d'insérer une image via un formulaire.

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

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

Merci !

 

[job75]

Bonjour marsrtn, bienvenue sur XLD,

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

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

A+

 

[marsrtn]

Bonjour marsrtn, bienvenue sur XLD,

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

A+

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

 

[job75]

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.

 

[marsrtn]

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 !!

 

[job75]

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

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.