Discussion :

[morobaboumar]

Bonjour membres du forum !

Est il possible de concevoir un module vba de gestion d'image avec Access 2013.
J'ai essayé de concevoir un formulaire selon l’explication du Tutoriel simple de Thierry GASPERMENT mais aucune image ne s'affiche dans le contrôle d'image de mon formulaire "FrmGestionImage".
Quelle est mon erreur ?

Donner moi s'en les solutions.

Je vous remercie infiniment.

- pièce jointe

Cordialement

[EricDgn]

Bonjour,
Oui, les ordinateurs sont stupides.
Ainsi ils ne devinent pas que le fichier indiqué PlumeEncreOumar.jpg est en fait le fichier PlumeEncreOumar.jpeg !?
Un E vous manque et rien ne va plus!
Bonne continuation.

[morobaboumar]

Bonsoir Membres du forum !
holala... quel coup d’œil, les ordinateurs sont innocents; c'est le manipulateur qui voudrais le forcer à faire l'impossible.
Merci infiniment.
Après avoir fait la rectification avec le E manquant, tout baigner correctement.

Permettez moi de vous poser la question à savoir quel est le Control Active X qui permettrait
d'animer un Gif animé, et un autre Control X de visualiser une vidéo dans formulaire Access 2013 ?

Cordialement

[EricDgn]

quel est le Control Active X qui permettrait d'animer un Gif animé, et un autre Control X de visualiser une vidéo dans formulaire Access 2013 ?

Il est possible de mettre le gif animé dans un Web Control. Une explication et un exemple dans ce post (en anglais) mais qui donne une animation assez lente.
Une autre solution sur ce post (en français), mais il faut installer sur le pc la dll requise.
Je n'ai pas testé ces solutions.
Cordialement.

[Invité]

Bonjour,
C'est de l'excel mais pour le webbroser ça change rien!

https://www.developpez.net/forums/d1...m/#post8765344

[morobaboumar]

Il est possible de mettre le gif animé dans un Web Control. Une explication et un exemple dans ce post (en anglais) mais qui donne une animation assez lente.
Une autre solution sur ce post (en français), mais il faut installer sur le pc la dll requise.
Je n'ai pas testé ces solutions.
Cordialement.

Bonsoir EricDgn !
Merci infiniment à vous, ainsi que tous les membres du forum!
Je reviens vous informer que la solution que vous m'avez suggérée ne marche pas pour le moment.
Car après l'avoir essayée sur la version 2013; 2003; 2000 d'Access, je ne retrouve pas l'active x Gif89 Class du (Gif89.dll)
que j'ai introduit dans le chemin conseillé "\windows\system";

"Installer le composant Gif89
1. Téléchargez le fichier Gif89.zip
2. Décompactez ce fichier dans un dossier temporaire de votre disque dur.
Vous obtiendrez 5 fichiers :
Gif89.dll (le fichier gérant les Gif animés),
Gif89.rtf (la documentation originale de Gif89.dll, en anglais),
Gif89fr.rtf (la documentation traduite - librement - en français par votre serviteur),
install.bat (le fichier d'installation)
uninst.bat (le fichier de désinstallation)
4. Copiez le fichier Gif89.dll dans votre dossier \windows\system
5. Double-cliquez sur le programme install.bat
Le programme d'installation ne fait qu'inscrire la DLL dans la base de registre de Windows.
La commande est \windows\system\regsvr32 \windows\system\gif89.dll (à aménager si votre installation est différente)".
Je souhaiterais savoir que faut-il faire ?
Est ce que nom de l'active x de ce "Gif89.dll" change selon les différentes version Access ?
Si oui lequel choisir ?
Cordialement

[morobaboumar]

Bonjour Membres du forum!
1°) Je viens de trouve une solution d'animation de Gif avec le Webbroswer.

Code :

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

1
2
3
4
5
Private Sub Form_Load()
    DoCmd.Maximize
    Me.ocxWebBrowser.Object.Navigate CurrentProject.Path & "\Gorille.gif"
    Me.WebBrowserOumar.Object.Navigate CurrentProject.Path & "\OUMAR _ANIME.gif"
End Sub

Code :

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

1
2
3
Private Sub ocxWebBrowser_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Me.ocxWebBrowser.Object.Document.Body.Scroll = "no"
End Sub

Code :

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

1
2
3
Private Sub WebBrowserOumar_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
    Me.WebBrowserOumar.Object.Document.Body.Scroll = "no"
End Sub

- Pièces jointes
Quelles autres solutions pourrait-on avoir ?
2°) Côté de l'active x pour visualiser une ou des vidéo(s) dans un formulaire access ?

Cordialement