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



A voir également:

2 réponses

Réponse 1 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
Bonjour,

Voir ceci:

https://forums.commentcamarche.net/forum/affich-33910989-importer-une-image-a-partir-d-un-dossier-trombinoscope#5


0
CarineVL Messages postés 342 Statut Membre 9
 
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
0
CarineVL Messages postés 342 Statut Membre 9
 
Est-il aussi possible d'augmenter la hauteur de l'image ? (200 ou 300 ou 400)
Si oui, comment procéder ?
Cordialement,
Carine
0
Réponse 2 / 2
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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
0
CarineVL Messages postés 342 Statut Membre 9 > cs_Le Pivert Messages postés 8437 Statut Contributeur
 
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 ...)
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729 > CarineVL Messages postés 342 Statut Membre
 
Voilà

http://www.cjoint.com/c/FIumq6ehFhQ

@+ Le Pivert
0
CarineVL Messages postés 342 Statut Membre 9
 
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
0
cs_Le Pivert Messages postés 8437 Statut Contributeur 729
 
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à
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses