visualiser plusieur image dans un seul controle

[creolia]

Bonjour
en réalité je sais pas trop par ou commencer je recherche une solution pour afficher plusieurs images dans un seul contrôle un peu comme une listview mais pour images

je souhaiterais un seul coup d'œil de voir les images de plusieurs répertoire diffèrent sur mon disque dur ex D:/dossier/sous dossier1; D:/dossier/sous dossier; D:/dossier/sous dossier3 ect...

merci pour vos idée et conseil
à bientôt

 

[creolia]

Re : visualiser plusieur image dans un seul controle

Re bonjour yann

mais àprés avoir tous essayer malheureusement sa me conviens pas trop au final

ce que je cherche ressemple plus à une sorte de listeview dans la presentation

c'est ta dire grace à une combobox je rentre un nom Ex Toto et la cette derniere va parcourir sur mon disque dur et rapatritrier dans different sous dossier tous ce qui correspond au nom inscrit dans la combobox

dont le chemin d'accée serais

Diplome-> Formation2-> Toto.jpeg

-> Formation3-> Toto.jpeg

-> Formation4-> Toto.jpeg


j'ai mis un fichier pour une idée visuel final

merci en tous cas pour les infos

 

[YANN-56]

Re : visualiser plusieur image dans un seul controle

Bonsoir à toi et à ceux qui passeront pat là.

On peut faire une recherche par:

Dir ("C:\DOSSIER_PHOTOS\Toto.jpeg") ….. Et c.
et ajouter le résultat de la recherche dans un ListSubItems d'une ListView.

Mais encore faut-il cibler le Dossier où se trouvent ces photos.
et que l'on se soit préalablement appliqué à ce que ces dernières
portent le même nom que ceux de la liste dans ton ComboBox…!!! 😡

Je ne vois pas trop l'intérêt de cette lourdeur que je considère inutile.
Pour ma part; je ne peux pas aller plus loin dans ce sens.

Je ne doute pas que tu trouveras aide ici.

Quant à moi, je te souhaite bonne route. 🙂

Ainsi qu'une bonne fin de soirée.

Amicalement

Yann

 

[creolia]

Re : visualiser plusieur image dans un seul controle

Comprendre c'est assez simple chaque formation correspond à un dossier spécifique et tous mon programme tourne autour de cela
l'intérêt pour moi de référencer tous les diplômes de chaque agent

en tous cas merci pour l'aide apporter en espérant ce que ta fais seras utile a une autre personne à bientôt

donc retour à presque zéro si quelqu'un c'est comment remplacer les item par des images dans le sens expliquer plus haut merci beaucoup

 

[creolia]

Re : visualiser plusieur image dans un seul controle

re

j'ai bien peur ce que je demande tire sur l'impossible

es ce que quelqu'un peut m'aiguiller sur la faisabilité

merci

 

[Roland_M]

Re : visualiser plusieur image dans un seul controle

bonjour à tous

Creolia, je t'ai déjà pas mal aidé !
mais te rends tu bien compte du genre de souhaits que tu as là !
et en plus tu t'étonnes de la faisabilité ou pas !?
mais enfin, sais tu au moins ce qu'est un ordinateur ?

en informatique tout ou presque est possible !

mais tu es un peu le genre "pourquoi faire simple quand on peut faire compliqué"
c'est pour cela que tu as de moins en moins de réponses !
les forumeurs avisés s'en s'ont rendu compte !

et là pour le coup c'est un peu fort ! mais enfin !? quoi !?
à chaque appel de cette listview(ou autre) tu vas rechercher sur tout le disque dur,
puisque tu sais pas où,
pamis les milliers de fichiers présents,
des images qui correspondraient à ton personnage en formation
et ceci répété avec autant de personnes en formation !?

hormis la lourdeur démentielle ! c'est parfaitement faisable !

mais mon pauvre ami, c'est aussi, tout simplement du délire pour ne pas dire de la débilité !
et là je rejoins la secte de JOB75 !


voilà pour répondre sur la faisabilité !
bon courage !

 

[degap05]

Re : visualiser plusieur image dans un seul controle

Bonjour à tous,

Le fichier joint, que j'ai renommé "Visionneuse", est d'un spécialiste XL, peut-être Ti ou MdF. Il est sensationnel !!

Il fonctionne avec les photos dans le même répertoire et l'on peut choisir un autre répertoire. Il peut y avoir un descriptif de la photo, associé à celle-ci.

Il peut peut certainement être adapté à ton usage.

A+

 

[job75]

Re : visualiser plusieur image dans un seul controle

Bonjour le fil,

@ degap05, ça c'est beaucoup trop simple, c'est l'Ancien Testament.

Alors il y a encore plus simple :

 

[job75]

Re : visualiser plusieur image dans un seul controle

Re,

Bon on ne va pas laisser creolia comme ça avec ses p... d'images :

J'ai noté ça au post #18 :

(...) l'intérêt pour moi de référencer tous les diplômes de chaque agent

Alors supposons que le dossier "Image" contient des sous-dossiers "Formation1", "Formation2", etc... et que chacun de ces sous-dossiers contient des fichiers (JPEG ou autres) au nom des agents "TATA" "TITI" "TOTO" "TUTU".

Le fichier ci-joint donne les noms des dossiers qui contiennent ces fichiers, avec cette macro :

Private Sub CommandButton1_Click()
Dim cel As Range, i As Integer, s
Application.ScreenUpdating = False
Rows("3:500").ClearContents
With Application.FileSearch
  .LookIn = "C:\Image" 'chemin d'accès du dossier "Image"
  .SearchSubFolders = True
  For Each cel In Range("A2", Range("IV2").End(xlToLeft))
    .Filename = cel & "*"
    If .Execute > 0 Then
    For i = 1 To .FoundFiles.Count
      s = Split(.FoundFiles(i), "\")
      Cells(i + 2, cel.Column) = s(UBound(s) - 1) 'affiche le nom du dossier contenant le fichier trouvé
    Next
    End If
  Next
End With
End Sub

A+

 

[job75]

Re : visualiser plusieur image dans un seul controle

Re,

Si l'on préfère le tableau dans l'autre sens, ce fichier (2).

A+

 

[Roland_M]

Re : visualiser plusieur image dans un seul controle

re

job75, si je puis me permettre,

Application.FileSearch n'existe plus après 2003 !

voir plutôt . . . avec CreateObject("Scripting.FileSystemObject")

Dim FSO As Object, SourceFolder As Object, SubFolder As Object, FileItem As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SourceFolder = FSO.GetFolder(SourceFolderName)
'. . . exemple . . .
F$ = "C:\mes documents\fichier.ext"
Lecteur$ = FSO.GetDriveName(F$) ' ="C:"
NomFich$ = FSO.GetBaseName(F$) ' ="fichier"
Extent$ = FSO.GetExtensionName(F$) ' ="ext"
FichExt$ = FSO.GetFileName(F$) ' ="fichier.ext"
RepFich$ = FSO.GetAbsolutePathName(F$) '="C:\mes documents\fichier.ext"
Chemin$ = Left(RepFich$, InStrRev(RepFich$, "\")) '="C:\mes documents\"
Chemin$ = Left(RepFich$, InStr(RepFich$, FichExt$) - 1) '=idem

 

[job75]

Re : visualiser plusieur image dans un seul controle

Salut Roland,

Merci pour l'info, c'est important si creolia travaille sur Excel 2007.

Perso je n'ai encore jamais utilisé "Scripting.FileSystemObject", je vais regarder ça mais peut-être que d'autres adapteront facilement ma macro.

A+

 

[job75]

Re : visualiser plusieur image dans un seul controle

Re,

J'ai déjà trouvé ça sur le web, ça peut servir :

Un complément FileSearch pour Excel 2007 - Club des décideurs et professionnels en Informatique

A+

 

[job75]

Re : visualiser plusieur image dans un seul controle

Bonjour le fil, le forum,

Finalement voici une solution très très simple, mais bien éloignée de ce que voulait creolia.

Il faut bien sûr avoir renseigné au préalable la colonne A et la ligne 2.

Les macros dans le code de la feuille :

Private Sub CommandButton1_Click()
Dim derlig As Integer, dercol As Byte, i As Integer, j As Byte
Application.ScreenUpdating = False
Range("B3:IV65536").ClearContents
derlig = Range("A65536").End(xlUp).Row
dercol = Range("IV2").End(xlToLeft).Column
For i = 3 To derlig
  For j = 2 To dercol
    If Dir("C:\Image\" & Cells(2, j) & "\" & Cells(i, 1) & "*") <> "" Then Cells(i, j) = "X"
  Next
Next
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target <> "X" Then Exit Sub
Dim fichier$
Cancel = True
fichier = "C:\Image\" & Cells(2, Target.Column) & "\" & Cells(Target.Row, 1) & ".JPG"
If Dir(fichier) = "" Then MsgBox "Aucune photo...": Exit Sub
SendKeys "o" 'ou "y" si version anglaise, évite l'alerte
ThisWorkbook.FollowHyperlink fichier
End Sub

Edit : à la place de "*" dans la 1ère macro, on peut aussi mettre ".JPG" s'il n'y a que des images.

A+

 

[creolia]

Re : visualiser plusieur image dans un seul controle

Bonjour à tous en particulier Job75 Roland M même s'il à trouver mon projet débile est présent pour relever mes débilites et me proposer si gentille ment des solutions et degap05


merci a vous tous je vais essayer chacune de vos idée avec la plus grande attention


et vous tenir au courant à bientôt

 

[creolia]

Re : visualiser plusieur image dans un seul controle

j'ai oublier précisez je suis sous Excel 2003