Defilement image user

Fred0o

XLDnaute Barbatruc

• 14 Novembre 2010

• #2

Re : Defilement image user

Bonsoir Bruno,

Tout d'abord, je ne comprends pas bien ce que tu veux faire. Ensuite, je me suis aperçu en analysant ton code, qu'il n'a aucune chance de fonctionner. En effet, il est incomplet et fait appel à des Sub ou Fonctions qui ne sont pas définies dans ce classeur.

Ce code définit et affecte des variables qui ne sont pas utilisées et en utilise d'autres qui ne sont ni définies ni affectées !

Tu as un With Sheets("Feuil1") sans End With et sans qu'aucune instruction ne l'utilise.

Quant à la Sub Attente, j'attends que tu m'explique où la trouver...

Donc, si tu expliques clairement ce que tu souhaites faire, quelles images afficher (Quel nom d'image, dans quel répertoire), comment les afficher (où et combien de temps), alors nous pourrons peut-être t'aider. Mais là, j'avoue que je sèche lamentablement.

Bonne soirée.

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 14 Novembre 2010

• #3

Re : Defilement image user

Re-bonsoir,

Voilà tout de même une proposition. Ce que j'ai compris de ta demande et du code : On fait défiler 3 images en boucle dans la boite de dialogue.

Ce code fonctionne si tu as le images nommées respectivement "Image1.jpg", "Image2.jpg" et "Image3.jpg" dans le même répertoire que ton fichier EXCEL.

A+

 

Pièces jointes

• BRUNO62_V1.zip

  26.4 KB · Affichages: 145

Vote positif 0 Vote négatif

mth

XLDnaute Barbatruc

• 14 Novembre 2010

• #4

Re : Defilement image user

Bonsoir le fil 🙂

Juste pour saluer Fredo0, et dire que tout fonctionne également parfaitement sur 2007 (sympa ton fichier Fredo0 🙂 🙂 )

Bonne soirée à tous,

m

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 15 Novembre 2010

• #5

Re : Defilement image user

Bonsoir à toi également mth,

Bises.

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 15 Novembre 2010

• #6

Re : Defilement image user

Bonjour Fred0o,

Merci,pour tout.
Mais lorsque je lance l'application.
Je recontre une erreur "53" ( Image1.Picture = LoadPicture(chem & img))

Si, la feuil1 est cachée. Cela fonctionnera t-il ?

a+

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 15 Novembre 2010

• #7

Re : Defilement image user

Bonjour Bruno,

L'erreur 53 signifie que le fichier est introuvable. Pour que le programme fonctionne, il te faut mettre les fichiers nommés "Image1.jpg" ... "Image3.jpg" dans le où se trouve le fichier EXCEL qui lance la macro, car c'est là que le programme va les chercher à travers l'instruction

VB:

 chem = ActiveWorkbook.Path & "\"

Donc tu as 2 solutions : soit tu mets tes fichiers image dans ce dossier, soit dans le programme, tu définis le répertoire dans lequel sont contenus tes fichiers. Si par exemple tes fichier sont dans le répertoire "C:\Dossier Images\", tu tapes l'instruction :

VB:

 chem = "C:\Dossier Images\"

A+

 

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 15 Novembre 2010

• #8

Re : Defilement image user

Bonsoir Fred0o,

Merci, pour ces explications.
J'ai essayé de modifier et adapter le chemin, à chaque fois "erreur".
Les images se trouvent dans le doc en feuille 1.
J'ai consulté d'autres sites et en autre celui ci-dessous pour trouver une combinaison à mon problème et rien n'y fait.

Vous aimez utiliser VBA avec Excel.

Je n'arrive pas à trouver la solution.
a+

 

Pièces jointes

• BRUNO62_V1.xls

  42 KB · Affichages: 79

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 15 Novembre 2010

• #9

Re : Defilement image user

Bonsoir BRUNO,

Tu viens de me donner la solution !

Si les images se trouvent en Feuil1, ce n'est pas le même code. Le problème dans tout ça, c'est que tu nous a fourni un code qui n'a rien à voir avec ton besoin. Dommage pour toi.

Je fais la correction et la poste lorsque je l'ai terminée.

A+

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 15 Novembre 2010

• #10

Re : Defilement image user

Re-bonsoir.

Euuuh désolé, je n'y arrive pas. 😱

Le meilleur moyen à mon avis, est de sauvegarder tes images sous leur nom Image1, 2, 3 dans le répertoire et de tester la macro.

A moins qu'un vrai pro des USF ne passe par là....

Bonne soirée.

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 15 Novembre 2010

• #11

Re : Defilement image user

Bonsoir

A Voir et surtout à améliorer

 

Pièces jointes

• Transfert Image vers USF V002.zip

  27.3 KB · Affichages: 60

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 15 Novembre 2010

• #12

Re : Defilement image user

Bonsoir Banzai64,

Merci, pour la pièce jointe.
L'idée du départ était de voir défiler les images stockées dans la feuille1.



a+

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 15 Novembre 2010

• #13

Re : Defilement image user

bonsoir

Si

L'idée du départ était de voir défiler les images stockées dans la feuille1.

Cliquez pour agrandir...

A voir

 

Pièces jointes

• Transfert Image vers USF V004.zip

  27.6 KB · Affichages: 55

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 16 Novembre 2010

• #14

Re : Defilement image user

salut

autre exemple avec un contrôle ImageList; voir, dans la liste de ses propriétés, (Personnalisé).
Les images choisies sont chargées dans le classeur une fois pour toutes donc pas de problème si elles sont supprimées du disque.

 

Pièces jointes

• Défilé D'Images (USF).xls

  48.5 KB · Affichages: 126

Vote positif 0 Vote négatif

B

BRUNO62

XLDnaute Occasionnel

• 16 Novembre 2010

• #15

Re : Defilement image user

Bonjour Banzai64, Fo_rum

Merci, à vous.
C'est exactement ce que je recherchais. Trop fort !

Bonne journée
A+

 

Vote positif 0 Vote négatif