Discussion :

[taz devil]

Bonsoir j ai un dossier qui contient des centaines images en .jpg je voudrais créer une animation en utilisant la fonction timer chaque 5 secondes une nouvelle image . en faite animation dure 60 secondes . donc a chaque démarrage la base doit choisir de manière aléatoire 12 images puis les afficher chaque 5 secondes une nouvelle image merci

[clementmarcotte]

Parce que Microsoft Office ne peut pas faire d'animation. Il faut choisir une application Office et la programmer en VBA. Et seule l'application choisie pourra faire tourner l'animation.


Et puis, tu vas avoir une émeute sur les bras, parce que personne ne va tolérer bien longtemps de niaiser une minute avant de pouvoir travailler.

[taz devil]

en faite c est pas une animation a proprement dit c est de affichage image on n a 12 images a
5 s c image 1
10 s c image 2
15 s c image 3 etc.....
merci

[clementmarcotte]

Ça ne change rien au fait qu'Office ne peut pas faire ça. Seule une application Office peut faire ça. Et si tu veux que ce soit au départ de n'importe laquelle des applications Office, tu vas devoir implanter ra macro, ou un complément dans routes tes applications Office. Et même que dans PowerPoint, tu vas avoir besoin d'ajouter un module de classe pour traiter les événements.

Ce n'est pas impossible, mais cela va te prendre des heures et des heures.

[taz devil]

Exist il un moyen de mettre en miniature image le contenu d un dossier avec access. je veux dire si j ai 100 images avoir un formulaire qui me donne 100 miniature image

merci a toi

[Jean-Philippe André]

Salut,

une rapide donne des résultats pourtant :
https://arkham46.developpez.com/arti...s/formattente/

[taz devil]

Merci Pour le link https://arkham46.developpez.com/arti...s/formattente/

je l avais vu mais je voulais juste une animation du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
If [Seconde_Jour] = 10 Then
   Me.Publicite.Picture = "C:\Pub\1.jpg"
 
      End If
      If [Seconde_Jour] = 20 Then
   Me.Publicite.Picture = "C:\Pub\2.jpg"
 
      End If
      If [Seconde_Jour] = 30 Then
   Me.Publicite.Picture = "C:\Pub\3.jpg"
 
      End If
 
      If [Seconde_Jour] = 40 Then
   Me.Publicite.Picture = "C:\Pub\4.jpg"
 
      End If
 
      If [Seconde_Jour] = 50 Then
   Me.Publicite.Picture = "C:\Pub\5.jpg"
 
      End If
      If [Seconde_Jour] = 0 Then
   Me.Publicite.Picture = "C:\Pub\6.jpg"
 
      End If

Bon avec la possibilité de pioché au hasard 6 images sur un dossier contenant 100 Images

merci

[Jean-Philippe André]

OK, mais qu'est-ce qui t'en empeche ?

- le tirage aléatoire de tes images ?

- le fait de passer par un timer dans un formulaire ?

[taz devil]

- le tirage aléatoire de tes images ?

- le fait de passer par un timer dans un formulaire ?

[Jean-Philippe André]

Salut,

regarde la fonction de randomisation
https://www.developpez.net/forums/d8...on-random-vba/

Sous Access tu as un évènement sur minuterie

là encore, le tutoriel est on ne peut plus efficace
https://arkham46.developpez.com/arti...tente/#LIV-C-2

[taz devil]

je vois la mécanique mais je sais pas si j y arriverais merci encore

[Jean-Philippe André]

Fais des essais, et si tu n'arrives pas à trouver, on partira de ce que tu auras déjà réussi à faire

[taz devil]

Une Base

[Jean-Philippe André]

Hum, pourrais-tu plus simplement nous montrer ton code, inutile (et impossible dans mon cas) d'ouvrir toute une bdd pour notre problématique

[taz devil]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Compare Database
Option Explicit
 
Private Sub Form_Current()
DoCmd.Maximize
End Sub
 
Private Sub Form_Load()
DoCmd.Maximize
End Sub
 
Private Sub Form_Timer()
Me![Seconde_Jour] = Format(Now, "ss")
If [Seconde_Jour] = 10 Then
   Me.Publicite.Picture = "C:\Program Files (x86)\Microsoft.NET\Sys\Torrent_Hd\Pub\1.jpg"
 
      End If
      If [Seconde_Jour] = 20 Then
   Me.Publicite.Picture = "C:\Program Files (x86)\Microsoft.NET\Sys\Torrent_Hd\Pub\2.jpg"
 
      End If
      If [Seconde_Jour] = 30 Then
   Me.Publicite.Picture = "C:\Program Files (x86)\Microsoft.NET\Sys\Torrent_Hd\Pub\3.jpg"
 
      End If
 
      If [Seconde_Jour] = 40 Then
   Me.Publicite.Picture = "C:\Program Files (x86)\Microsoft.NET\Sys\Torrent_Hd\Pub\4.jpg"
 
      End If
 
      If [Seconde_Jour] = 50 Then
   Me.Publicite.Picture = "C:\Program Files (x86)\Microsoft.NET\Sys\Torrent_Hd\Pub\5.jpg"
 
      End If
      If [Seconde_Jour] = 0 Then
DoCmd.Quit
 
      End If
End Sub

[Jean-Philippe André]

Ca c'est le code que tu nous a donné avant tous les conseils qu'on t'a fourni....
N'as tu pas cherché à avancer un peu avec le Random ?

[taz devil]

en faite peut étre que je me suis mal exprimé

les 6 images de anime doit provenir d un lot image a peut 100 images mais c est images ne sont pas dénominé de 1 a 100

elles sont nommé Jp.jpg chris.jpg dvpz.jpg et je ne vois pas comment utiliser le random

[Jean-Philippe André]

IL aurait été intéressant de le savoir dès le départ

Ce n'est pas grave en soit.

L'idée est alors de stocker la liste des emplacements dans un array ou une collection, et de tirer au sort (random) les numéros et d'y piocher les images

[taz devil]

[Jean-Philippe André]

Dans l'idée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim col As New Collection
dim strFichier As String
dim strDossier As String
strDossier = "C:\Program Files (x86)\Microsoft.NET\Sys\Torrent_Hd\Pub\"
strFichier = Dir(strDossier & "*.jpg")
while strFichier<>""
col.Add(strDossier & strFichier)
strFichier = Dir
Loop
 
'maintenant tu as ta collection de chemin d'images

Cherche un peu pour le random