Manipuler les données Access depuis Excel

Bonjour.

J'ai le plaisir de vous présenter ce tutoriel :

Manipuler les données Access depuis Excel

Dans cet article vous allez apprendre à manipuler avec le VBA Excel les données des bases Access avec la technologie ADODB. Des exemples vous permettront de comprendre le fonctionnement de cette technologie ainsi que les fonctions présentées, qui couvrent une large gamme de besoins

Vous pouvez apporter vos avis dans cette discussion.

Bonne lecture.;)

Bonjour,

Merci beaucoup pour ces fonctions grandement utiles pour qui veux piloter une bdd depuis Excel.

J'essayais depuis quelques temps de faire fonctionner un fichier Xl avec une base "mbd", c'est chose faite, grâce à toi!

Merci beaucoup!

A bientôt.

Bonjour,

Tout d'abord un grand merci pour ce tuto !!!! Une aide bien précieuse pour moi qui n'est pas un novice, mais non plus un expert de VBA.

Je souhaite faire une vérification dans un champ si une référence existe :
Dans le champ OF, j'ai 400 lignes avec des références uniques.

J'ai placé dans Option Explicit :

Code:

---

1 2	Public OF_NUMBER As Long Public ID_USI60 As Long

---

Puis

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39

Sub VERIF_OF_USI60()   'On réinitialise Result_Enr_Info Result_Enr_Info = 0   ' Ouvre une connexion: If ADO.Cnn_Initialise(Cnn1, "I:\070_IND\03_Fabrication\09_Muret\500 - ARCHIVES\BDD_LIEBHERR1_V1.5.accdb") = True Then     ' Initialisation du traitement ADO avec transaction: ADO.Cnn_Debut AvecTransaction     If Not ADO.Enr_Info(Cnn1, "REF_USI60_V1", "OF='" & NumOF & "'", valeur, "ID") = 0 Then ID_USI60 = ADO.Enr_Info(Cnn1, "REF_USI60_V1", "OF='" & NumOF & "'", valeur, "ID") Else MsgBox "Aucune donnée trouvée." End If       'J'AI TESTE AUSSI CECI... 'ID_USI60 = ADO.Enr_Info(Cnn1, "REF_USI60_V1", "OF='" & NumOF & "'", valeur, "ID") 'If ID_USI60 = 0 Then 'MsgBox "La valeur du champ est : " & ID_USI60 'MsgBox ("Dans Verif_USI60, la valeur de ID_USI60 : " & ID_USI60) 'Else ' MsgBox "Aucune donnée trouvée." ' MsgBox ("Dans Verif_USI60, la valeur de ID_USI60 : " & ID_USI60) 'End If     'On ferme la transaction 'ADO.Cnn_Fin SansMessage ADO.Cnn_Fin AvecMessage   End If   End Sub

---

Malgré des test dans tous les sens... J'ai toujours cette erreur si, et uniquement si, l'OF n'existe pas dans mon champ OF :
Pièce jointe 665131

En fait, je n'arrive pas à trouver une solution pour que Enr_Info, si il ne trouve pas de valeur, cela ne déclenche pas d'erreur.

Sinon crée une requete sous ACCESS, puis en VBA y faire appel pour voir si l'OF existe et si oui je récupére son ID.... Mais là aussi, ça dépasse mes compétences...

Merci à tous pour vos retours.

Salut

Vu qu'il ne s'agit que de lire le contenu de la table, il serait peut-être plus judicieux d'utiliser PowerQuery.
Il y a un connecteur pour les bases access (Menu "Données", "Obtenir des données", "A partir d'une base de données", "A partir d'une base de données Microsoft Access".
Je n'ai pas utilisé ce connecteur mais j'imagine que comme les autres, tu vas ensuite être invité à choisir la table où se trouve les données, puis il faudra travailler ton jeu de donnée pour ne garder que ce qui t'intéresse.

Une fois les données filtrées, ça va te créer un tableau sur une feuille du classeur. Tu pourras en VBA rafraichir cette table (un coup d'enregistreur pour avoir le code de base), puis récupérer le contenu du tableau pour alimenter ta logique.

++
Qwaz

Bonjour Quaz,

Citation:

---

Je n'ai pas utilisé ce connecteur mais j'imagine que comme les autres, tu vas ensuite être invité à choisir la table où se trouve les données, puis il faudra travailler ton jeu de donnée pour ne garder que ce qui t'intéresse.

---

Non seulement avec Power Query tu peux connecter une table mais également une requête. C'est tellement plus simple que de passer par du VBA

Merci Qwazerty et Philippe,

Arff, j'ai enfin trouvé...

Je lui dis de chercher dans mon champ NUMBER_OF alors que le champ s'appelle OF_NUMBER...


Merci pour vos messages

Salut

@Philippe T. : ah ben c'est top en effet, je te remercie pour ce complément d'info

J'imagine que tu ne peux pas partager ton fichier?

Pour ce qui est de Power Query, il est intégré dans Excel et "assez" facile à prendre en main pour des opérations basiques. Et puis la communauté est là pour filer un coup de main si besoin (il y a même un forum dédié).

Coté utilisateur, c'est transparent (peut-être un paramétrage à faire sur les postes).
@Philippe T. : Je dis ça à cause de la gestion de confidentialité, tu pourras peut-être dire si ça pose problème pour ce type de source.

Coté utilisation, comme je te disais dans mon message précédent, tu délègues juste à PQ le rapatriement des données et leur filtration. Dans ton code VBA tu fais la mise à jour du tableau obtenu, ça déclenche automatiquement le rapatriement et la filtration, et quand le code VBA reprend la main tu exécutes ce que tu as besoin de faire à partir des données que tu vas prendre dans le tableau à jour... Vraiment ça vaut le coup de te pencher dessus.
Tu peux même intégrer cette mise à jour à un code existant, exécuté par un bouton ou autre...


[Edit]
Sinon pour ton problème de BOF-EOF, il faudrait peut-être contrôler le nombre d'enregistrement avant de passer à l'analyse du contenu.

Autre chose, il serait bien d'ouvrir un nouveau message plutôt que de "polluer" celui de Laurent vu que le problème ne vient pas du tuto en lui-même. Tu peux faire référence à cette discussion dans ton nouveau message pour que les gens fassent le lien
[/Edit]

++
Qwaz

Citation:

---

Envoyé par vba_lieb

je n'arrive pas à trouver une solution pour que Enr_Info, si il ne trouve pas de valeur, cela ne déclenche pas d'erreur.

---

Bonjour,
Vous pouvez dans un premier temps compter le nombre d'enregistrements qui correspondent à votre requête, avec l'argument "Compte" de la fonction Enr_Info.
Il sera renvoyé 0 si rien n'est trouvé, et cela ne déclenchera pas d'erreur.
Exemple pour savoir si l'utilisateur "OTT_L" est habilité (dans la table User de la base 1):

Code:

---

1 2 3 4 5

If ADO.Enr_Info(Cnn1, "User", "[User] = 'OTT_L' ", Compte, "User") = 0 Then MsgBox "Pas habilité" Else MsgBox "habilité" End If

---

Autre technique : mettre "On Error Resume Next" avant la fonction Enr_Info, puis restaurer avec "Err.Clear" et "On Error GoTo 0".

Bonne programmation.

Bonjour,

Citation:

---

Par contre connais pas Power Query....
En fait j'ai réellement besoin d'utiliser VBA car j'ai associé à Excel des boutons pour l'exécution de script afin d'automatiser de nombreuses taches dont les personnes utilisant la solution ont des difficultés avec l'informatique.

---

Mais j'utilise également le VBA pour juste faire un refresh (une ligne de code)

@Quaz

Citation:

---

@Philippe T. : Je dis ça à cause de la gestion de confidentialité, tu pourras peut-être dire si ça pose problème pour ce type de source.

---

Pour ignorer le niveau de confidentialité par VBA ThisWorkbook.Queries.FastCombine = True. Ligne à placer avant le Refresh

Bonjour,

Mince j'ai édité mon message puis je viens de voir vos réponses...

En fait j'avais fait une inversion dans le nom du champ (voir mon message que j'ai édité...)

Bon en tout cas vous tiens au courant de mes progressions. Au moins j'aurai buché le fonctionnement :?

Ohoh, je testerais ça rapidement, si ça peut éviter une manip de paramétrage à mes utilisateurs... Encore merci

++
Qwaz

Bonjour Quaz,

Citation:

---

Ohoh, je testerais ça rapidement, si ça peut éviter une manip de paramétrage à mes utilisateurs... Encore merci

---

C'est effectivement efficace.
C'est grâce à J.P. (jurassic pork) que je connais cette instruction. Dans cette discussion Problème de requête sur des ordinateurs autres que celui sur lequel j'ai créé celle-ci

Merci tous,

je teste et vous tiens au courant.

Par contre là aussi, j'ai une erreur si pas de data trouvée....
Je l'utilise pour regarder par rapport à un ID (le champ s'appelle ID_OF qui est la clé primaire) la foncion Enr_Info afin de voir si il y a une date écrite. Et si oui, je l'envoi dans mon TextBox de mon Userform (J'utilise les UserForm de Excel)

Si il trouve aucune date, alors malgré avoir cherché... J'ai toujours un message d'erreur à la fin.

Pièce jointe 665361

Je suis pas novice en VBA Script, mais pas un cador aussi :)

Code:

---

1 2 3 4 5 6

'On place la date de début des opérations si existant sinon, sinon place le symble "-" If ADO.Enr_Info(Cnn1, "TABLE_TACHES_OF", "ID=" & ID_OF, valeur, "DATE_DEBUT") = "" Then TextBox15 = "-" Else TextBox15 = ADO.Enr_Info(Cnn1, "TABLE_TACHES_OF", "ID=" & ID_OF, valeur, "DATE_DEBUT") End If

---

Pièce jointe 665362

Je teste dans tous les cas avec "On Error Resume Next" avant la fonction Enr_Info, puis restaurer avec "Err.Clear" et "On Error GoTo 0"

et je vous tiens tous au courant.

Pour info, j'ai trouvé mon souci sur mon précédent message... Honte à moi, je cherchais dans la table GENERAL_OF alors qu'elle s'appelle OF_GENERAL

Merci pour votre aide

Bonjour,

Citation:

---

je teste et vous tiens au courant.
Par contre là aussi, j'ai une erreur si pas de data trouvée....

---

Pourquoi faire simple quand on peut faire compliqué

Avez-vous essayé la solution avec Power Query ?
Vous créez votre requête dans Access et vous connectez ensuite cette requête depuis Power Query
Cela ne vous prendra pas plus de 5 minutes pour créer cette requête et encore quelques minutes pour intégrer le code VBA pour effectuer l'actualisation de la requête

Bonjour à tous

A noter qu'avec PowerQuery on peut même mettre en source de requête du SQL donc c'est simple et ouvert...

Citation:

---

Envoyé par Philippe Tulliez

Bonjour,

Pourquoi faire simple quand on peut faire compliqué

Avez-vous essayé la solution avec Power Query ?
Vous créez votre requête dans Access et vous connectez ensuite cette requête depuis Power Query
Cela ne vous prendra pas plus de 5 minutes pour créer cette requête et encore quelques minutes pour intégrer le code VBA pour effectuer l'actualisation de la requête

---

Bonjour,,
Bon j'ai trouvé mon erreur, ... Au lieu de ID= c'etait plutot ID_OF qui est le nom du champ correct...

Code:

---

If ADO.Enr_Info(Cnn1, "TABLE_TACHES_OF", "ID_OF=" & ID_OF, valeur, "DATE_DEBUT") = "" Then

---

Sinon, pour Power Query, je connais pas un exemple ?

Bonjour,

Citation:

---

Sinon, pour Power Query, je connais pas un exemple ?

---

Power Query, intégré à Excel depuis la version 2016

Onglet [Données], cliquer sur la commande Obtenir les données et choisir dans la liste déroulante A partir d'une base de données et ensuite A partir d'une base de données Microsoft Access
Sélectionner le fichier Access et puis dans la boîte de dialogue Navigation, choisir la table ou la requête à importer et si l'on ne doit pas transformer les données, on peut tout de suite sélectionner la commande Charger

Illustration
Pièce jointe 665401

Merci tous pour vos réponses.

Par contre je n'arrive pas à utiliser Enr_MAJ pour utiliser la fonction CréationUniquement

En fait je voudrais rajouter à ma table OF_GENERAL un enregistrement en indiquant le numero de mon OF dans le champ NUMBER_OF et le nombre de pieces dans le champ QTS_LIVREE

Merci pour votre retour.

Bonjour,

Voici ma requete :

Pièce jointe 665656

J'ai crée une boucle pour rechercher une valeur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

For Boucle_Tache = 1 To NB_LIGNE_REQUETE MsgBox ("Verif ligne : " & Boucle_Tache)   If Enr_Info(Cnn:=Cnn1, StrTableSource:="Requete_TACHES", _ SQLWhere:=("ID_TACHES=" & Boucle_Tache), _ TypeInfoEnr:=Valeur, StrNomChamp:="REF_TACHE") = 751 Then   choix = MsgBox("Une expédition a déja été effectué pour cet OF !" & Chr(10) & Chr(10) & "Voulez-vous ajouter une nouvelle expédition ?", 36, "Confirmation") 'On ne veut pas rajouter d'expédition, donc je quitte If choix = vbNo Then GoTo FIN_PROCEDURE End If   If choix = vbYes Then MsgBox "Vous avez cliqué sur Oui !", 64 End If End If Next Boucle_Tache

---

Par contre comment faire pour lui dire de rechercher une tache 751 dans chacune des lignes dont ID_OF serait 2 (pour info mon 2 est dans une variable qui s'appelle ID_OF)


En fait dans SQLWhere:=("ID_TACHES=" & Boucle_Tache), comment rajouter "ID_OF=" & ID_OF
J'ai essaye avec And et ça marche pas

Code:

---

SQLWhere:=("ID_TACHES=" & Boucle_Tache And "ID_OF=" & ID_OF)

---

J'ai aussi tente avec ceci mais toujours en erreur :

Pièce jointe 665657

Code:

---

1 2 3

If Enr_Info(Cnn:=Cnn1, StrTableSource:="Requete_TACHES", _ SQLWhere:=("ID_TACHES=" & Boucle_Tache) & ("ID_OF=" & ID_OF), _ TypeInfoEnr:=Valeur, StrNomChamp:="REF_TACHE") = 751 Then

---

Mettre 2 conditions dans SQLWhere:= je cherche depuis 2 jours en vain.

Un petit tuto pour divers scénarios avec un ou plusieurs conditions sur ce travail déja remarquable serait cool :)

Merci pour votre aide !!!

Bonjour,
Pourquoi ne pas poser la question directement sur le forum Access ?

Re,

Ok je croyais que concernant le sujet, fallait poster ici.

C'est chose faite : https://www.developpez.net/forums/d2...-2-conditions/

Merci pour votre accompagnement

Au plaisir de vous lire