[VBA]Accéder à Access via Word

Fermé

modjibe Messages postés 45 Date d'inscription vendredi 20 juillet 2007 Statut Membre Dernière intervention 25 avril 2008 - 2 août 2007 à 17:45
modjibe Messages postés 45 Date d'inscription vendredi 20 juillet 2007 Statut Membre Dernière intervention 25 avril 2008 - 3 août 2007 à 09:57

Bonjour,

j'ai tapé le bout de code suivant

Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim maTable As String
Set Conn = New ADODB.Connection
Set rsT = New ADODB.Recordset
maTable = "Ent"
With Conn
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .Open "C:\Documents and Settings\Data.mdb"
End With
With rsT
    .ActiveConnection = Conn
    .Open maTable, LockType:=adLockOptimistic
    .Fields ("Nom")
End With

Il ne me permet pas de faire ce que je veux mais j'imagine que je suis dans le bon sens. Je voudrais en fait extraire un par un les éléments contenus dans la colonne "Nom". Et chaque élement je veux les mettre dans une ListBox !

Voilà je n'ai rien trouvé avec mon ami Google...

JB

A voir également:

[VBA]Accéder à Access via Word
Supprimer une page word - Guide
Espace insécable word - Guide
Organigramme word - Guide
Word gratuit - Guide
Signature électronique word - Guide

2 réponses

Réponse 1 / 2

modjibe Messages postés 45 Date d'inscription vendredi 20 juillet 2007 Statut Membre Dernière intervention 25 avril 2008 3
3 août 2007 à 09:53

Salut,

Un peu de mieux :

Là ça marche :

Dim Conn As ADODB.Connection
Dim rsT As ADODB.Recordset
Dim fd As ADODB.Field
Dim maTable As String
Set Conn = New ADODB.Connection
Set rsT = New ADODB.Recordset
maTable = "Ent"
With Conn
    .Provider = "Microsoft.JET.OLEDB.4.0"
    .Open "C:\Documents and Settings\Data.mdb"
End With
With rsT
    .ActiveConnection = Conn
    .Open maTable, LockType:=adLockOptimistic
End With
    UserForm1.ListBox1.Clear
For Each fd In rsT.Fields
    UserForm1.ListBox1.AddItem (rsT.Fields![Numero])
Next

Mais mon For Each à la fin me revoit plusieurs fois le numéro de la première ligne et c'est tout. Il est ou le problème ?

Réponse 2 / 2

modjibe Messages postés 45 Date d'inscription vendredi 20 juillet 2007 Statut Membre Dernière intervention 25 avril 2008 3
3 août 2007 à 09:57

Le problème c'est que je me déplace de colonne en colonne au lieu de me déplacer de ligne en ligne...

Je mets la réponse dès que je l'ai

Discussions similaires

Symbole Attention dans Word

Fichier word verrouillé

Discussions similaires

Newsletters