Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Manipulation d'image via macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Kobal
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
K

Kobal

Guest
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)
 

Pièces jointes

Trier par date Trier par votes
Re : Manipulation d'image via macro

Bonjour à tous du forum,

un exemple comment modifier le code:

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
 
Vote positif 0 Vote négatif
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 !
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
  • Résolu(e)
Microsoft 365 Décompte via plusieurs fichiers CSV
Réponses
12
Affichages
951
WTF
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
784
job75
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
G
  • Question Question
XL 2019 Mettre en page des graphiques Excel automatiquement dans un rapport Word puis PDF
Réponses
0
Affichages
969
GANDAT
G
A
  • Résolu(e)
XL 2016 Décompte de valeurs précises avec bornage
Réponses
11
Affichages
2 K
albuqs
A
  • Question Question
XL 2021 import-informations-classeurs-fermes
2 3
Réponses
40
Affichages
4 K
Usine à gaz
J
  • Question Question
XL 2016 Création de macros diverses
Réponses
0
Affichages
1 K
Jérôme57
J
M
  • Question Question
Microsoft 365 faire une synthèse dans un classeur à partir d'un nombre aléatoire d'onglets
Réponses
5
Affichages
1 K
chris
L
  • Résolu(e)
XL 2019 Tri sur plusieurs feuilles via macro
Réponses
2
Affichages
2 K
lolo72
L
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
9 K
Scorp0211
S
M
  • Question Question
XL 2013 VBA : Remplir un tableau nommé et insérer lignes via formulaire
Réponses
1
Affichages
3 K
fanfan38
N
  • Question Question
XL 2016 Nommer un onglet a partir d'une cellule référencée dans furmule SI
Réponses
2
Affichages
2 K
number13baby
N
B
  • Question Question
Comment copier par une macro une colonne et coller dans le tableau d'une autre feuille
Réponses
10
Affichages
5 K
bidouill
B
D
  • Question Question
Modifier plusieurs fichiers excel(2010) au sein d'un unique répertoire via Macro
2
Réponses
20
Affichages
3 K
DDD
D
N
  • Question Question
XL 2013 RESOLU - MACRO Copier/Coller les cellules d'une ligne en fonction d'un critère
Réponses
9
Affichages
5 K
Kantarus
H
  • Question Question
Optimisation avec filtre élaboré suivant sélection d'une zone de liste
Réponses
1
Affichages
1 K
Robert
T
  • Question Question
XL 2010 Macro permettant la saisie automatique d'anciennes données
Réponses
1
Affichages
933
bbb38
M
  • Question Question
Optimisation macro
Réponses
4
Affichages
991
Mistral13200
M
W
  • Question Question
XL 2010 Bug affichage avec MFC et figer les volets
Réponses
6
Affichages
3 K
Wise3
W
  • Question Question
[VBA] - PLANNING - Extraire rationnellement les infos d'un tableau à 2 dimensions
2
Réponses
17
Affichages
4 K
Kotov
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…