Accéder aux fichiers d'un dossier en VBA Access 

Bravo est respect pour cette grande démonstration tant didactique que pédagogique. Et surtout MERCI pour votre altruisme.

Cher professeur, ce tuto est, comme d'habitude, excellent, formidable et enrichissant surtout pour montrer la puissance de programmation en VBA Access (même sans tables et requêtes!!!) à gérer des dossiers et des fichiers (comme dans l'Explorateur de Windows) et ceci grâce au talent de génie de mon Cher Professeur. Seulement, je trouve que ces derniers tutos acquièrent des niveaux très élevés surtout pour des débutants (comme moi) qui ont commencé leur initiation dans ce domaine que depuis 2 mois seulement (avec le tuto 'Apprendre à programmer en VBA Access'). J'aurais demandé, après votre accord, que l'on puisse se familiariser avec les nouveaux objets spécifiques d'Access par leurs différentes propriétés et méthodes. Il est est vrai que l'aide en ligne permet d'expliquer certaines ambiguïtés ou incompréhensions mais loin d'atteindre votre talent pédagogique et votre manière d'expliquer et de simplifier (sans parler de vos petites remarques et astuces d'un niveau sans égal). Je garderais avec soin ces derniers tutos avec leur application pour un usage proche (en attendant d'acquérir un meilleur niveau). Je tiens à préciser que la difficulté que je rencontre personnellement n'est pas au niveau de la compréhension de la problématique ou de la programmation mais au niveau des syntaxes des objets et de leurs propriétés et méthodes (très nombreux et assez complexes)

Félicitations pour ce tuto très complet sur la manipulation des fichiers et leur affichage dans Access. Comme toujours : un très grand bravo :-)

bonjour Monsieur Rosseti, encore une fois merci pour toutes vos videos, vous êtes vraiment formidable, je vous prie de m'aider à avoir la réponse à mes requêtes Access qui suivent: Voici mes 5 questions : 1- Faites une requête pour calculer le bénéfice réalisé sur chaque produit. 2- Faites une requête pour calculer la TVA collectée (facturée), la TVA déductible (récupérable) et la TVA à décaisser 3- Faites une requête pour afficher le prix de revient et le bénéfice si des frais divers correspondants à 2% du prix d’achat unitaire ont été payés. 4- Faites une requête pour afficher le prix de vente unitaire nouveau qu’il faut imposer pour récupérer les frais divers afin que le bénéfice reste inchangé. 5- Faites une requête afin de donner le nombre de produits rentables et le nombre de produits non rentables, sachant qu’un produit est dit rentable si le bénéfice qu’il rapporte vaut au moins 35% de son prix d’achat (condition Vrai/Faux). NB : voici les noms des tables avec leurs champs dans les parenthèses : Table : Commandes (N° commande, code produit, quantité, code client) ; Table : Produits (Code produit, Nom produit, Code fournisseur, Prix d’achat unitaire, Prix de vente unitaire). voici mon adresse email: alsenybangoura1980@gmail.com

Bonsoir Cher professeur !! D'emblée, pas facile !! Je n'ai pas comme vous "Windows 16. etc", mais 15 ! De plus, lorsque j'essai le code, je n'obtiens point la même chose que vous !! Ce petit tuto fort sympathique et formidablement bien expliqué, va quand même me donner du travail (j'aime)...! Je vais revoir le reste et le refaire s'il en est...! Cela dit, ce fut formidable de vous suivre, et comme d'habitude un grand pouce levée !!! Bonne fin de journée et encore merci !!!

Merci pour ce super tutoriel, je voulais justement ajouter cette fonction à mon projet. Petit détail, dans le formulaire la zone "liste_fichiers" doit être en "Liste valeurs" pour la propriété "origine source". Merci mille fois encore

Excellent tuto doublé de pédagogie. Permet d'apprendre, de progresser et de débloquer nos propres applications. Merci

Très bon tuto, et professeur très pédagogue. Pas mal du tout de montrer comment manipuler des objets activeX. Je pense utiliser certaines de vos idées pour mon travail, il y a matière à réfléchir. merci bcp

Merci infiniment mon professeur

merci beaucoup! j'avais mis deux contrôles textes au lieu d'en mettre un de chaque. encore merci pour votre diligence!

Bonjour mon professeur, comme d'habitude c'est fabuleux vos tutos mon ouvert les yeux sur la puissance de programation sur access. Juste une petite remarque dans vos prochaines video faite agrandire la police du code VBA dans l'editeur de code , Merci Mer.

Merci beaucoup pour le magnifique tuto

bonsoir et merci !!! j'ai pas trop de temps, donc j'ai gardé la video sous le coude, vu que ce sont des videos de près d'une heure, et que lorsque je ne comprends pas je reviens en arrière, j'ai vite tendance à ajouter 30 minutes supplémentaires: ) :) je regarderai celà

Bonjour, et merci pour le tutoriel, mais néanmoins j'ai une petite préoccupation. En execeutant le code permettant de récupérer les noms de fichier dans la zone de liste, mon ordinateur affiche "ActiveX can't create the object "... Je suis entré dans le code chercher d'éventuelles erreurs, il y en avait pas, et avec quelques recherches je me suis rendu compte que le service "activex installer (axinstsv)" n'apparaît pas dans la liste des services windows de mon pc je sais pas pourquoi. Depuis lors je fais des recherches sur comment installer et/ou activer ce service mais pas de réponse à ce sujet... Une réponse de votre part me serait d'une grande aide. Merci encore pour vos nombreuses formations...

Merci Stéphane pour ce super tuto un peu hard par moment mais très complet et très intéressant Peut-on utiliser la même méthode sur Excel vba dans les grandes lignes ? Encore merci passionnant Jean Pierre

Bravo pour ce cours qui me fait beaucoup avancer dans mon apprentissage de Vba Access. J'aimerais juste apporter une remarque sur la vidéo. La taille à l'écran du code est quasiment illisible sur un smartphone ou une tablette ou même en projection sur un écran de télévision. A moins qu'il y ait une possibilité de réglage ?

Un grand merci Mr. Stéphane pour ces tutos bien clairs et droits au but. Une question SVP: J'ai une BD et des codes vba pour supprimer des tables , importer des fichiers (.xml) et remplacer les tables supprimées, sans perdre les relations. J'aimerais savoir si je pourrais appliquer votre méthode de choix des fichiers xml , les importer, remplacer les tables , sans devoir à chaque fois mettre tous les xml dans le même chemin en les renommant toujours par les noms présents dans le code. (l'importation se fait presque tous les jours). Encore bravo et merci

Vous êtes une perle ! Ma question est au sujet des dossiers parcourus, la fenêtre qui affiche les fichiers garde en mémoire ces derniers. Est-ce qu'il y a un moyen de les effacer a chaque fois qu'on clique a nouveau sur parcourir ? Merci beaucoup pour votre super beau travail

Bonjour Un grand merci pour ce super Tuto, effectivement plein de pédagogie. Cela m'a bp aidé dans de nombreuses BDD. Toutefois, je souhaiterais vous demander un petit coup de pouce sur ACCESS : je souhaiterais intégrer des photos que j'ai prises et qui sont enregistrées sur le disque. Existe t-il un code VBA permettant d'aller chercher des fichiers sur mon disque et de les importer directement dans des champs au format Pièce jointe? (Sans avoir a passer par l'invite ACCESS pas très élégant et surtout pas pratique pour l'utilisateur, via le clic droit, puis ajouter, puis aller chercher la photo, etc ....) Un seul clic sur un bouton pour importer la photo dans lue champ correspondant) Merci par avance.

bonjour. du travail toujours clair et galvanisant. j'ai tout suivi à la lettre mais j'ai ce message "membre de méthode ou de données introuvable et Picture dans la ligne de code img.Picture=nom_fichier est en surbrillance. j'ai pourtant coché toutes les 6 préférences. explication? ceci se passe sur l'évènement sur clic de la zone de liste. Pour un fichier texte, pas de problème.

Merci pour ce tuto très utile et bien expliqué, j'ai essayé de l'appliquer est ce qu'on peut faire des états avec code VBA Access ?

salut stephane. Dans cette partie du code(img.Visible = True), il me fait une erreur: variable img inconnue, . Que faire, car vous ne l'avez pas declarer au debut

Bonjour Cher professeur, quand j’exécute le code du chemin d'accès taille, date de création, date de modification Access m'affiche que j'ai fait une errer d’exécution "53" fichier introuvable que doit-je faire ? Merci mon professeur pour tous vos efforts :)

bonjour Monsieur , encore une fois merci pour toutes vos videos,,je vous prie de m'aider à avoir la réponse à cette erreur qui se déclenche juste aprés l'évenement click sur le btn Parcourir : Cette erreur se produit lorsqu’un événement ne peut pas être exécuté parce que l’emplacement de la logique correspondante est introuvable. Par exemple, si la propriété OnOpen d’un formulaire est définie sur la valeur =[Field], cette erreur se produit, car un nom de macro ou d’événement doit être exécuté lorsque cet événement se produit.

Merci beaucoup pour votre aide et vos efforts mais j'ai un problème c'est que les nom des fichier ne s’affiche pas dans liste fichiers j’espère que je peau trouver une Réponse et encore merci chère professeur

Bonjour , Merci Pour la Video Svpppp !!! J'ai besoin d'aide Je suis debutant access Je veux Cree un dossier dans Disc C via access et cree Un Lien A Ce dossier Pour Que J'evite Champ Piece Jointe Pour ne pas Alourdir La base de Donne

Je vous remercie beaucoup pour cette formation. Pouvez-vous m"aider, je cherche à ouvrir un chier PDF à une page bien précise. Encore une fois merci.

bonjour et merci beaucoup pou les vidéos. J'ai aimé votre vidéo qui permet de charger un dossier contenant des fichiers. J'ai un soucis , je veux charger un fichier excel et ensuite créer une table avec les données de ce fichier excel. S'il te plait je veux de l'aide

Bonjour monsieur, en m'inspirant de ce que vous avez fait je voudrais savoir à quelles catégories appartiennent les boutons "Parcourir " et "Ouvrir" ainsi que les actions associées Merci d'avance!

Merci pour cette vidéo ! Malheureusement, je ne peux achever l'application : je rencontre un problème incompréhensible... J'ai cherché une solution durant tout l'après-midi, mais en vain. En effet, bien que mon paramétrage soit strictement identique au vôtre (selon les indications données), vba refuse de reconnaître les instructions "get". GetExtensionName, ni GetFile. J'en suis bien marri. J'ai vérifié dans l'explorateur d'objets et ces instructions n'y sont pas connues. Pas de solution proposée sur le net. La fonction réparation d'Office ne règle pas ce problème. J'ai alors pensé à réinstaller Office 2019, mais peut-être quelqu'un aura-t-il une idée pour m'aiguiller et m'éviter de passer par cette solution extrême (qui serait d'ailleurs peut-être inutile...). Sinon, votre vidéo est claire et agréable, comme de coutume :-)

Merci Stéphane j'ai retrouvé mon erreur. Mais j'ai un autre soucis.j'ai trouvé ce code sur internet et il va marche vachement bien pour ouvrir un fichier excel et copier les données dans une table dans la base de donnée access.Il faut juste copier le code dans la partie module de vba et juste mettre le nom de votre table et le tour est joué. Public Function fOpenFiles() As String 'Nécessite la référence microsoft office x.x object library Dim Dialogue As FileDialog Dim Fichier As Variant Set Dialogue = FileDialog(msoFileDialogOpen) With Dialogue .AllowMultiSelect = True .ButtonName = "Ouvrir" .InitialFileName = "*.xls" .Filters.Clear .Filters.Add "Tableur Microsoft Excel", "*.xls" .InitialView = msoFileDialogViewList .Title = "Veuillez sélectionner les fichiers ..." If .Show Then For Each Fichier In .SelectedItems fOpenFiles = fOpenFiles & Fichier & ";" Next End If End With If Len(fOpenFiles) > 0 Then fOpenFiles = Left(fOpenFiles, Len(fOpenFiles) - 1) End If Set Dialogue = Nothing End Function '------------------------------------------------------------ ' importer_DATA_1_importer ' '------------------------------------------------------------ Public Function importer_DATA_1_importer() On Error GoTo importer_DATA_1_importer_Err DoCmd.TransferSpreadsheet acImport, 8, "Table_Person", fOpenFiles(), True, "" importer_DATA_1_importer_Exit: Exit Function importer_DATA_1_importer_Err: MsgBox Error$ Resume importer_DATA_1_importer_Exit End Function Mais mon 1er problème est que il ouvre la boite OUVRIR pour selectionner le fichier 2 fois. tu selectionnes une 1ère fois, il te reaffiche la meme boite de choisir encore. Je n'arrive pas a voir ou se trouve l'erreur. Mon 2eme problème est au lieu de fonction pour l'appeler dans un formulaire, je voudrais le transformer en private sub, lors du click d'un bouton qu'il execute le code et m'affiche le chemin et le nom du fichier dans une boite preparée a cet effet

bonjour j'ai aimé le tuto, mais je n'arrive pas récupérer les fichiers PDF

Super