Insérer une image avec le nom du fichier
Résolu/Fermé
CarineVL
Messages postés
122
Date d'inscription
samedi 7 novembre 2015
Statut
Membre
Dernière intervention
3 septembre 2023
-
19 sept. 2016 à 08:47
CarineVL Messages postés 122 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 3 septembre 2023 - 21 sept. 2016 à 12:08
CarineVL Messages postés 122 Date d'inscription samedi 7 novembre 2015 Statut Membre Dernière intervention 3 septembre 2023 - 21 sept. 2016 à 12:08
A voir également:
- Insérer une image avec le nom du fichier
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Insérer signature word - Guide
- Trouver un numéro de portable avec un nom ✓ - Forum Mobile
2 réponses
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
19 sept. 2016 à 12:50
19 sept. 2016 à 12:50
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié par cs_Le Pivert le 20/09/2016 à 11:22
Modifié par cs_Le Pivert le 20/09/2016 à 11:22
Comme ceci
@+ Le Pivert
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
20 sept. 2016 à 11:25
20 sept. 2016 à 11:25
Si tu veux avoir le nom sans .jpg à la fin change cette macro qui est en dessous de Private Sub UserForm_Initialize()
@+ Le Pivert
'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
CarineVL
Messages postés
122
Date d'inscription
samedi 7 novembre 2015
Statut
Membre
Dernière intervention
3 septembre 2023
>
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
20 sept. 2016 à 13:14
20 sept. 2016 à 13:14
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 ...)
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 ...)
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
>
CarineVL
Messages postés
122
Date d'inscription
samedi 7 novembre 2015
Statut
Membre
Dernière intervention
3 septembre 2023
20 sept. 2016 à 14:17
20 sept. 2016 à 14:17
Voilà
http://www.cjoint.com/c/FIumq6ehFhQ
@+ Le Pivert
http://www.cjoint.com/c/FIumq6ehFhQ
@+ Le Pivert
CarineVL
Messages postés
122
Date d'inscription
samedi 7 novembre 2015
Statut
Membre
Dernière intervention
3 septembre 2023
21 sept. 2016 à 08:17
21 sept. 2016 à 08:17
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
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
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié par cs_Le Pivert le 21/09/2016 à 08:26
Modifié par cs_Le Pivert le 21/09/2016 à 08:26
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à
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à
20 sept. 2016 à 09:23
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
20 sept. 2016 à 09:46
Si oui, comment procéder ?
Cordialement,
Carine