Module VBA de Gestion d'Image avec Access 2013

Version imprimable

03/09/2017, 03h29
morobaboumar

1 pièce(s) jointe(s)

Module VBA de Gestion d'Image avec Access 2013

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
07/09/2017, 00h06
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.
08/09/2017, 00h24
morobaboumar

Remerciement

Bonsoir Membres du forum !
holala... :arf: quel coup d’œil, les ordinateurs sont innocents; c'est le manipulateur qui voudrais le forcer à faire l'impossible.
Merci infiniment. :merci:
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
13/09/2017, 23h57
EricDgn

Citation:

Envoyé par morobaboumar

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.
14/09/2017, 09h04
Invité

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

https://www.developpez.net/forums/d1...m/#post8765344
14/09/2017, 23h34
morobaboumar

Citation:

Envoyé par EricDgn

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

1 pièce(s) jointe(s)

Une solution trouvée

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

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:

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

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