Manipulation d'image via macro

[Kobal]

Bonjour à tous !
Je reviens encore vous embêter car j'ai un problème, encore une fois.
Je conçoit actuellement un fichier contenant plusieurs onglets, tous créés "dynamiquement" via un bouton du premier onglet.
Bon, la création du feuillet marche, j'arrive à y importer du code, tout va bien. Seul détail, j'aimerai que le titre de chaque onglet créé reprenne les 2 images présentes sur ma page de "création", au même endroit et aux même dimensions.
Et là, ça coince.
J'ai parcouru un peu le forum, j'ai trouvé des méthodes d'insertion de données à partir d'un chemin "en dur", à partir du disque dur, mais cela ne me va pas, puisque ces images sont déjà dans le classeur, et je ne veux pas les avoir "hors" du classeur.
Pour compliquer un peu, le titre est dans une grande cellule fusionnée.
Bref, si vous avez une idée, une piste... ça m'aiderait bien 🙂
Merci d'avance !

P.S.:Je vous joint un petit classeur montrant l'exemple. (sauf qu'ici, les images sont agrandies alors que dans le vrai, les images sont rétrécies)

 

[news]

Re : Manipulation d'image via macro

Bonjour à tous du forum,

un exemple comment modifier le code:

Sub AjoutFeuille()

Dim wsNew As Worksheet, wsSynthese As Worksheet
Dim Nom As String
Dim Plage As Range
Dim Code As String
Dim NextLine As String
Dim oOLE As OLEObject

With ActiveworkSheet
    Rows("1:1").Select
    Selection.Copy
End With

Set wsSynthese = ActiveSheet

Nom = InputBox("nom du feuillet à ajouter", "ajouter un feuillet") 'saisie du nom du feuillet à ajouter

Set wsNew = ActiveWorkbook.Worksheets.Add(, Sheets(Worksheets.Count)) 'ajout du feuillet en dernière position
wsNew.Name = Nom 'Nom du feuillet entré

wsNew.Activate
    Range("A1").Select
    ActiveSheet.Paste

End Sub

 

[Kobal]

Re : Manipulation d'image via macro

Mince, c'est tout simple en fait !
Merci beaucoup !
(bon du coup, ça me crée des erreurs maintenant, mais à d'autres endroits, je vais fouiller ça)
Bonne soirée 🙂

edit: erreur corrigée, l'ajout d'image semble avoir décalé l'index des OLEobjects (j'ajoutais un bouton au feuillet créé). Tout roule maintenant !