Discussion :

[laurent_ott]

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.

[pijaku]

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.

[vba_lieb]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public OF_NUMBER As Long
Public ID_USI60 As Long

Puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Qwazerty]

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

[Philippe Tulliez]

Bonjour Quaz,

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

[vba_lieb]

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

[laurent_ott]

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 VBA :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

Bonjour,

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

@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

[vba_lieb]

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

[Qwazerty]

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

++
Qwaz