Archiver les données en Visual Basic Access 

Merci infiniment mon cher Abdelaziz. L'intérêt est de pouvoir récupérer les fichiers d'un dossier pour archiver les informations en base de données et ainsi les manipuler par le code VBA. La petite cerise sur le gâteau est en effet de générer un diaporama à la volée grâce à la fonction Timer et l'instruction DoEvents. En somme, l'application peut générer le diaporama que vous souhaitez en pontant sur un dossier de votre choix et ce, de façon complètement automatisée. Vos retours sont précieux. Je vous souhaite une très bonne journée.

Cher professeur, lors de la saisie et de l'exécution de ce merveilleux programme, j'ai relevé les remarques suivantes : 1- Pour initialiser (vider) la liste_fichiers, il faut supprimer les items en commençant par le dernier jusqu'au premier (bouton parcourir) .... mais, pour initialiser la table archive, on supprimé les enregistrements depuis le premier jusqu'au dernier (bouton archiver) !!! Pourquoi cette différence? 2- Lors de l'archivage des nom des images et des textes associés dans la table archive, on prépare le texte à stocker (extension remplacée, recherche d'un fichier texte, ouverture de fichier et stockage du contenu) alors que le test pour détecter s'il s'agit d'un fichier image est postérieur à cette préparation. Pourrait-on anticiper ce test (et avoir 2 tests IF imbriqués)? 3- Lors de l'exécution du diaporama, pour relancer l'affichage (après arrêt), pourrait-on afficher l'image suivante au lieu de recommencer depuis la première. A vrai dire, j'ai essayé de le faire mais en vain : j'ai paramétré la procédure selon le numéro de l'image à afficher en substituant les méthodes MoveFirst et MoveNext par Move(Numero). Alors que je suis arrivé à remplacer les 2 boutons par un seul (en alternant la propriété caption entre Lancer et arrêter)

Bonjour mon Cher Abdelaziz, 1) Oui en effet parce que j'utilise la propriété ListCount de la zone de liste pour savoir sur combien d'éléments boucler. Problème, à chaque passage, un élément est supprimé. Donc si nous partions du premier élément, ListCount du départ n'étant plus vrai, la boucle irait au delà des bornes de la zone de liste et le code générerait une erreur. En revanche, concernant le parcours des enregistrements, nous utilisons une boucle Do While qui permet de poursuivre le traitement tant que la fin n'est pas atteinte. Donc le critère est dynamique et vérifié à chaque passage de la boucle, contrairement à la précédente. 2) Oui tout à fait le test est postérieur mais justifié car préalablement ces informations sont utilisées pour tenter d'accéder en séquentiel au potentiel fichier texte du même nom, pour récupérer le descriptif de l'image. Mais vous avez raison, le code peut être amélioré par exemple en intégrant le If de l'accès aux fichiers texte dans le If des images, on évite ainsi des traitements inutiles si le dossier comporte d'autres types d'images. Donc remarque très judicieuse, comme toujours 3) Oui remarque intéressante. Ici nous repartons de la première car au clic sur le bouton, nous sortons de la boucle pour décharger proprement toutes les variables objets et fermer la connexion aux données et ainsi libérer les ressources. De fait, la connexion est perdue et nous devons repartir du premier enregistrement. Pour relever ce défit, je pense qu'il faudrait un délai qui ne soit jamais atteint par la boucle du diaporama comme 100 000. Le Do Events rendant la main, le code continue de s'exécuter en conservant en mémoire la connexion aux données et l'enregistrement en cours, tout en permettant de libérer le processeur. Au redémarrage, on recale le délai sur une valeur normale. Donc la variable delai doit être publique. J'espère avoir répondu comme vous le souhaitez à vos questions mon Cher Abdelaziz. C'est un plaisir chaque fois de constater à quel point vous êtes précis, pointu et cherchez à toujours améliorer et aller au-delà. Je vous souhaite une très bonne journée.

Bonjour ma chère Patricia. C'est une application particulière pour Access et comme à chaque occasion, je suis ravi que sa mise en oeuvre vous ait plus. Je vous remercie beaucoup de me gratifier de vos messages en retour.

Bonjour Marcus et merci beaucoup pour ce message. J'aborde en détail les notions d'objets, de propriétés et de méthodes dans la playlist VBA Excel : ru-vid.com/group/PLpQBnWleLAavqfeZM5cd7Bh0MDa9saJly Comme le VBA reste identique à part quelques objets propres aux applications, je ne reprends en effet pas ces notions dans la playlist VBA Access.

Bonjour Joël. Oui vous avez tout à fait raison et c'est bien mieux. Disons que la boucle For Each était l'occasion de petites révisions car il s'agit de notions que j'ai avancées en VBA Excel mais que je n'ai pas reprises en VBA Access pour ne pas faire de doublons.

Merci

Bonjour. Je vous remercie beaucoup pour ce message en retour. J'aimerais vous aider personnellement mais je reçois de très nombreuses demandes d'aide chaque jour. Il m'est impossible de m'impliquer pour chacun faute de temps. J'en suis vraiment désolé et j'espère que vous comprendrez.

Bonjour Joean Joean, la base de données est bien la même. On repart du formulaire conçu pour accéder aux fichiers. Quant aux fichiers du sous dossier pour l'archivage, il est nouveau. Je transcris la vidéo pour le site dans la journée et toutes les sources seront ainsi disponibles au téléchargement.

Voici le lien : www.bonbache.fr/archiver-les-donnees-en-visual-basic-access-178.html

Infiniment merci pour faire l'application

Je vous en prie

Bonjour The Winner, comme je vous le disais la fois dernière, je projette de faire une formation à ce sujet mais pas dans l'immédiat faute de temps. Du coup, n'ayant pas étudié la problématique, je n'ai pas encore la solution à votre souci. Je suis désolé.

Bonsoir Rom Lef, je pense que c'est parce qu'elle vient d'être mise en ligne. RU-vid met un certain temps avant de restituer la qualité originale, en tous cas je l'espère.

ah d'accord, j'ai peu être ouvert trop vite la vidéo dans ce cas, attendons ! merci, vous encoder en 720p a chaque fois ?

Encodée en HD en tous cas oui en effet.

c'est bon apparemment, mon téléphone portable me propose la lecture en 720p donc fallait certainement être patient.... merci beaucoup

Je vous en prie, merci à vous pour ce retour

Bonjour. Projet très intéressant, Access est le logiciel dédié pour ce type d'application car il permettra d'archiver et d'articuler les données entre elles et de les manipuler sur un formulaire avec une carte graphique. Il faudra nécessairement du VBA. Ce projet est ambitieux et nécessitera du travail.

merci, puisque vs m'avez dis que c'est possible de le faire mais ça reste toujours dificile, on est dans un ONG qui se préoccupe de l'environnement, ils cherche à repartir via une carte les oiseaux, mais aussi, on a besoins d'un application pour suivre le reboisement de cet environnement: superficie, type du sol(terrain), type d'arbre conserné, espace couvré, arbre survecu, survecu ou non etc.. si vs vs concentrer sur ce type de progé ça peut nous servir .. au nom de saveForest

C'est passionnant et fort ambitieux. Me concernant malheureusement, j'ai trop peu de temps pour pouvoir m'engager dans un tel développement, car malheureusement il faut bien gagner sa vie. J'en suis fort désolé.

Bonjour Monsieur et merci pour votre retour. Je ne connais pas Delphi mais vous pouvez réaliser une exportation universelle au format CSV. J'utilise ces techniques pour ensuite importer mes données dans une base SQL Server ou MySql, soit par une macro : www.bonbache.fr/exporter-des-donnees-access-dans-un-tableau-excel-97.html, soit par le code VBA : www.bonbache.fr/importer-et-exporter-des-donnees-en-vba-excel-145.html

Bonjour, il s'agit du site www.bonbache.fr/ mais la page sera disponible dans la journée, le temps que je transcrive la formation en HTML. J'ajouterai le lien directement dans le descriptif de la vidéo.

Voici le lien : www.bonbache.fr/archiver-les-donnees-en-visual-basic-access-178.html

Merci monsieur Rossetti

Je vous en prie