Insérer une image avec le nom du fichier
Résolu
CarineVL
Messages postés
342
Statut
Membre
-
CarineVL Messages postés 342 Statut Membre -
CarineVL Messages postés 342 Statut Membre -
Bonjour,
Merci de m'indiquer comment insérer une image dans excel AVEC LE NOM de ce fichier figurant au bas de cette image (ou éventuellement tout le chemin).
Cordialement,
Carine
Merci de m'indiquer comment insérer une image dans excel AVEC LE NOM de ce fichier figurant au bas de cette image (ou éventuellement tout le chemin).
Cordialement,
Carine
2 réponses
-
-
Merci de votre réponse.
Cela fonctionne très bien, j'importe effectivement l'image avec le nom du fichier.
2 petites questions:
Pourquoi ajoute-t-il en dernier une image vide dans laquelle se trouve un message "Impossible d'afficher l'image liée ...." alors que toutes les images sont bien présentes
Dans les onglets créés, il y a "Retour sommaire" indiqué en A1.
je ne vois pas très bien à quoi sert cette cellule car rien ne se passe lorsqu'on clique sur cette cellule ...
Je marque ma question comme résolue.
Encore merci..
Carine -
-
-
Comme ceci
Private Sub UserForm_Initialize() CommandButton2.Enabled = False ComboBox1.AddItem ("50") ComboBox1.AddItem ("80") ComboBox1.AddItem ("100") ComboBox1.AddItem ("200") ComboBox1.AddItem ("300") ComboBox1.AddItem ("400") ComboBox1.ListIndex = 0 ' a adapter 1er index End Sub
@+ Le Pivert-
Si tu veux avoir le nom sans .jpg à la fin change cette macro qui est en dessous de Private Sub UserForm_Initialize()
'céation d'onglets Sub Creation_Sheet() Dim montexte As String Dim Nb_Ligne, Nb_Sheet, i Nb_Ligne = Sheets("Sommaire").Cells(Rows.Count, 1).End(xlUp).Row Nb_Sheet = Sheets.Count If Nb_Ligne = Nb_Sheet Then Exit Sub For i = 2 To Nb_Ligne Sheets.Add After:=Sheets(Sheets.Count) NettoieCode creer_macro montexte = Sheets("Sommaire").Cells(i, 1) Sheets("Sommaire").Cells(i, 1) = Left(montexte, Len(montexte) - 4) 'enleve .jpg ActiveSheet.Name = Sheets("Sommaire").Cells(i, 1) Next i Sheets("Sommaire").Select End Sub
@+ Le Pivert -
Re,
Je ne suis pas experte dans les macros ...
Je n'arrive pas à retrouver ce qui est indiqué dans les macros ...
J'ai regardé ce qu'il y avait dans tous les modules mais je ne retrouve pas ce qui est qui est en dessous de Private Sub UserForm_Initialize()
Merci de m'indiquer la marche à suivre .... (pour la néophyte ...) -
-
Merci beaucoup ... Cela fonctionne très bien ...
Pour mon "édification" personnelle..., j'aurais quand même bien voulu savoir comment on arrive à Private Sub UserForm_Initialize()
Entretemps j'avais encore cherché et passé en revue tous ces modules dans visual basic sans retrouver cette partie de programmation ...
Très cordialement,
Carine -
C'est dans le module de l'UserForm.
Pour y accéder afficher l'Userform en cliquant dessus dans la partie haut gauche de l'éditeur
ensuite double cliquer sur un commandbutton
Voir ceci qui est plus explicite en image:
https://silkyroad.developpez.com/VBA/UserForm/
Voilà
-
