Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

macro affichant les image qui st dans un répertoir

  • Initiateur de la discussion Initiateur de la discussion jojo
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

J

jojo

Guest
bonjour à tous,

j'aimerai faire une macro affichant les images qui sont dans un répertoire.

Chaque image à un nom différent, la macro doit détecter les fichiers image (jpeg uniquement), ainsi que le nom du fichier. Puis afficher l'image dans un userform (comme un diaporama).

Est ce possible?

Merci à tous
 
Re:macro affichant les image qui st dans un répert

Bonjour jojo, josé, cher michel

en pièce jointe une proposition vite fait.

salut [file name=Classeur2_20060224123709.zip size=10118]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20060224123709.zip[/file]
 

Pièces jointes

Re:macro affichant les image qui st dans un répert

merci pour le fichier mais il y a un bog

Option Explicit
Dim tablo()
Dim chemin As String
Private Sub ScrollBar1_Change()
Image1.Picture = LoadPicture(chemin & tablo(ScrollBar1))
End Sub
Private Sub UserForm_Initialize()
Dim X As Integer
Dim repertoire As String

chemin = 'le chemin ici du repertoire ou sont les image'
repertoire = Dir(chemin & '*.jpg') 'adapter le chemin

Do While Len(repertoire) > 0
X = X + 1
ReDim Preserve tablo(1 To X)
tablo(X) = repertoire
repertoire = Dir()
Loop

With ScrollBar1
.Max = UBound(tablo)
.Min = 1
.Value = 1
End With

Image1.Picture = LoadPicture(chemin & tablo(ScrollBar1))
End Sub


j'ai pouratnt modifié le chemein mais cela ne fonctionne pas pourquoi.

merci à toi
 
Re:macro affichant les image qui st dans un répert

Bonjour à tous et à tous
regarde cette base que j'avais adapter de plusieurs source internet et que j'ai proposé à une autre personne du forum il y a peu
bruno [file name=photo_pour_xld.zip size=49078]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/photo_pour_xld.zip[/file]
 

Pièces jointes

Re:macro affichant les image qui st dans un répert

salut en fait le fichier de hervé marche bien.

le souci c lorsque le chemin d'acces comporte des noms avec des espaces cela fait planter.


pourquoi??

merci à tous
 
Re:macro affichant les image qui st dans un répert

re tout le monde

jojo, un espace dans un chemin ne peut pas faire planter la macro.

soit tu nous en dis plus sur ton code (message d'erreur, détail), soit tu nous addresse une pièce jointe avec ton fichier.

salut
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
821
Réponses
5
Affichages
866
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…