Code VBA pour exécuter une requête Access (avec image)
Qu'est-ce que c'est ?Ce code VBA vous permet d'exécuter le Accès à partir de n'importe quel outil compatible avec VBA, tel que MS Excel, Word, etc.Pourquoi ?Vous pouvez éviter d'ouvrir la base de données et d'exécuter la requête manuellement ; ce code s'exécutera même à partir d'un fichier Excel. sans ouvrir la fenêtre d'accès DB manuellement.Si vous utilisez la fonction Importer Accéder aux résultats des requêtes comme indiqué dans l'article précédent, vous obtenez même les résultats de la requête vers Excel, le tout en un seul clic.Code VBA pour importer les données d'une table ou d'une requête Access vers ExcelComment utiliser le code VBA pour exécuter une requête Access ?
Étape 1: Copiez-collez le code ci-dessous dans votre module.
Dim myDB As Database
Set myDB = OpenDatabase("C:\MYDATABASE.mdb") Mentionnez le chemin d'accès à la base de données et remplacez "MYDATABASE" par le nom de votre base de données Access.
myDB.Execute "myQuery" (ma requête) Remplacez 'myQuery' par le nom de votre requête Access
myDB.close N'utilisez cette option que si vous souhaitez fermer la DB.
Étape 2: Cliquez sur le bouton Exécuter ou sur F5 pour exécuter la requête Access.
2 réponses
Bonjour Anson, essaie de savoir comment, mais je n'y arrive pas….. (aaarggggghhh)
J'ai un simple MDB (accessDB) avec une table LoginUserDB
Il y a 3 champs : UserName UserShortName LastLogIn
UserShortName = un champ de date, les deux autres (UserName & UserShortName) sont des champs de texte
Quelle sera la meilleure façon, si je veux rechercher tout :
Nom d'utilisateur = anson.antony
et mettez à jour tout cela, le champ : UserShortName à XXX
et le champ LastLogIn to Format(Now, « DD.MM.YYYY ») (date réelle)
Désolé de vous déranger, mais j'ai testé des manières tellement différentes sans résultat….
Merci d'avance
Pierre
Résolu = Merci et désolé !