Macro pour Fichier Photo sous excel

un grand merci , Bravo pour l'appli

Bonjour,

désolé de remonter un vieux sujet

lermite222, bravo pour votre appli,

ça fait un moment que je cherche comment créer un catalogue d'images à partir d'un répertoire

je ne connait pas la programmation VBA mais j'ai réussi à combiner la version V3 (avec zoom) et la version modifié avec l'ajout de texte

mon souci, c'est que le texte que je veux ajouter en bas de l'image, correspond au nom du fichier

exple mon chemin est : c:\....\nomimage.jpg donc je veux que le texte à insérer soit "nomimage"

est ce que vous pouvez m'aider ?

merci d'avance

Bonjour,
J'ai dû un peu me replonger dans l'appli, c'était plus tout frais à ma mémoire :-)
Dans le module Images tu recherche la fonction insere_image_ratio()
Dans le bas de la sub, modifie l'affichage du texte comme suit...

        If AffiTexte Then
Dim TB
            TB = Split(Sheets("Data").Cells(NumImage, 1).Value, "\")
            With ActiveSheet.Cells(Lig, Col)
                .Font.Size = SizeTexte
                .Font.Color = ColorTexte
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlBottom
                .ShrinkToFit = True
                .Value = TB(UBound(TB))
            End With
            Incr LigText
        End If

A+
...

Si tu ne veux pas l'extention du fichier...

     .Value = Left(TB(UBound(TB)), Len(TB(UBound(TB))) - 4)

après avoir posté hier mon message, j'ai continué à me casser la tête

j'y suis arrivé en fin de compte

ci dessous ce que j'ai fait (je sais ça fait trop amateur)

j'ai copié le chemin dans une une autre colonne et j'ai effectué dessus une formule (trouvé sur le net) pour extraire le nom de l'image. ça marche parfaitement

mais votre solution est plus pro

merci pour votre aide

If AffiTexte Then
With Cells(Lig, Col)
.Font.Size = SizeTexte
.Font.Color = ColorTexte
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.ShrinkToFit = True
End With
Sheets("Data").Cells(NumImage, 6) = Split((Left((Sheets("Data").Cells(NumImage, 1).Value), Len((Sheets("Data").Cells(NumImage, 1).Value)) - 4)), "\")(UBound(Split((Left((Sheets("Data").Cells(NumImage, 1).Value), Len((Sheets("Data").Cells(NumImage, 1).Value)) - 4)), "\")))
ActiveSheet.Cells(Lig, Col).Value = Sheets("Data").Cells(NumImage, 6)
Incr LigText
End If

pourquoi vous ne publiez pas une version 4 de votre appli avec ce rajout ?

Merci pour Ton aide,
La réponse de lermite22 correspond plus à mes besoins.
Mais sachant que tu est doué en VBA tu peux sans doute m'aider :
A savoir est il possible de mettre du texte sous les photos en automatique à partir d'un Fichier ? comme une référence ou un prix par exemple?

Re,

Bien sûr que tu peux, mais lermite serait plus à même de te répondre où insérer le code.
Il connait son programme...
En regardant vite fait je dirait que c'est dans le Sub insere_image_ratio du module Images où tu retrouves Cells(Lig, Col).Select
En dessous ajoute Cells(Lig, Col).value= "ton_texte" (ou une variable ou une cellule contenant ton texte).
Ajoute le format de cellule désiré (surtout le positionnement du texte), et il faudra sans doute que tu modifies la hauteur de la cellule (après son calcul) pour que ton image ne masque pas le texte.

eric

OK, je suis vraiment un débutant sur le sujet :
Aussi est il possible de faire en sorte que le choix de la liste puisse être à partir d'une liste de référence sous excel comme pour la macro ci dessous:

Sélection du chemin en colonne C

Sub machin()
Dim Sh As Shape

For Each Sh In Worksheets("Feuil1").Shapes
If Sh.Type = msoPicture Then Sh.Delete
Next
Application.Goto Reference:="Image_Bt"
For Each c In Selection
fich = c.Offset(0, 2).Value
ligne = c.Row
ActiveSheet.Pictures.Insert(fich).Select 'ouverture Image_Bt
With Selection.ShapeRange
.LockAspectRatio = msoTrue 'conserver les proportion
.Height = 60 'hauteur de l'image - un tit qcq chose pour qu'elle soient séparée
.Left = 40 'à gauche colonne A (sinon tu calcules avec la largeur de colonne des colonnes
.Top = c.Top + 1 'et positionner verticalement
End With
Next c
End Sub


Pour le Texte il serait en colonne D et comment ajouter le format de Cellule pour le positionnement du texte et comment modifies la hauteur de la cellule (après son calcul) pour que ton image ne masque pas le texte

J'en demande beaucoup, je sais

Merci de ta précieuse aide

Désolé mais par respect pour le travail de lermite c'est à lui de faire évoluer son programme dans le sens où il l'entend.
C'est plus qu'une adaptation à un cas particulier que tu demandes, tes idées et propositions d'évolutions l'intéresseront probablement.
Ne t'inquiète pas, il vient très régulièrement... ;-)

eric

OK Je comprends, Je connais mal les usages , alors je vais attendre lermite

Merci encore

OK, je suis vraiment un débutant sur le sujet :
Aussi est il possible de faire en sorte que le choix de la liste puisse être à partir d'une liste de référence sous excel comme pour la macro ci dessous:

Sélection du chemin en colonne C

Sub machin()
Dim Sh As Shape

For Each Sh In Worksheets("Feuil1").Shapes
If Sh.Type = msoPicture Then Sh.Delete
Next
Application.Goto Reference:="Image_Bt"
For Each c In Selection
fich = c.Offset(0, 2).Value
ligne = c.Row
ActiveSheet.Pictures.Insert(fich).Select 'ouverture Image_Bt
With Selection.ShapeRange
.LockAspectRatio = msoTrue 'conserver les proportion
.Height = 60 'hauteur de l'image - un tit qcq chose pour qu'elle soient séparée
.Left = 40 'à gauche colonne A (sinon tu calcules avec la largeur de colonne des colonnes
.Top = c.Top + 1 'et positionner verticalement
End With
Next c
End Sub


Pour le Texte il serait en colonne D et comment ajouter le format de Cellule pour le positionnement du texte et comment modifies la hauteur de la cellule (après son calcul) pour que ton image ne masque pas le texte

J'en demande beaucoup, je sais

Merci de ta précieuse aide

RE,

J'ai l'impression que tu n'as même pas ouvert le fichier que j'ai mis au post 1...
eric

re,

Si j'ai bien vu ta macro , mais je ne peux pas avec sortir plusieurs photos en automatique ou alors je n'ai pas compris le fonctionnement, désolé,

La macro de lermite est très adapté pour moi, sauf que je ne peux pas la mixer avec la tienne car je n'ai pas les connaissances suffisantes.
Si lermite le permet, tu peux me donner un coup de main?

On est pas loin de la solution finale.

Bonjour,

Si j'ai bien vu ta macro , mais je ne peux pas avec sortir plusieurs photos en automatique ou alors je n'ai pas compris le fonctionnement, désolé,
Il suffit de savoir lire :
' Sélectionner les cellules contenant un lien vers une image et appeler la macro
' AffImage les affichera sur le lien ou dans la colonne de gauche ou de droite

eric

Ca fait très longtemps que je me dis que je devrais la reprendre tout remplacer par un formulaire.
Et aussi remplacer les objets images par des rectangles (il y a un bug sur 2007 pour les images récupérées par un lien internet)
Au début c'était un truc tout simple, mais au fur et à mesure des ajouts pour les demandes successives elle commence à ne plus ressembler à rien :-s
Reste à trouver le temps, bientôt peut-être.. ;-)
Je regarderai pour la partie que tu me signales
eric

Merci pour ton aide, vraiment,

J'arrive donc a mettre du texte sous les photos, mais cela fonctionne uniquement si j'ai une seul colonne. Si j'ai plusieurs colonne les textes ne suivent plus, il y a le même texte sur toute la colonne.
Tu peux y jeter un Coup d'oeil,

Merci

De plus Comme j'ai dit à Eric Je n'ai pas les compétence pour mixer son Fichier avec le tien aussi cela te gêne si il accepte d'y jeter un coup d'oeil également?

Merci pour ton aide, cette appli va me faire gagner beaucoup de temps, et c'est ce qui manque chez les petits artisans

RE,

En ouvrant ta Macro j'ai vu que tu as laissé des indices, Non?

Il est donc possible de ce servir de la liste qui est sur la feuille data, c'est exactement ce dont j'ai besoin,
J'ai besoin que ta macro ne génère pas la liste sur la feuille data, car je peux la remplir par extraction. J'ai donc besoin que ton appli puisse utiliser cette feuille data remplis par moi et extraire les photos selon ta macro sous image ( qui est super)

Pour moi le langage VBA est du chinois alors comment faire? ou mettre exit fonction?

Merci Mike,

c'est pas exactement ce que je recherche, mais cela pourra sans doute me servir pour d'autre applications

Merci encore