Discussion :

[candrau]

Bonjour,

J'essaye actuellement d'intégrer dans un userform un tableau type excel, via le tutoriel que j'ai trouvé ici. Pour l'instant, j'ai juste fait un gros copié-collé du code donné dans ce tutoriel, afin de comprendre son fonctionnement, et j'ai actuellement l' erreur de compilation suivante : "Object required", sur la ligne suivante :

Code :

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

Set rst = CurrentDb.OpenRecordset(strSql)

dans la fonction "RemplirFeuille" du tutoriel.
J'ai pourtant bien insérer la bonne référence dans mon projet, à savoir "Microsoft DAO 3.6 Object Library".
Quelqu'un aurait une idée sur ce qui ne va pas ?

[oOVaveOo]

Bonjour,
je me sers en général de ADO, mais si la logique DAO est la même, je ferai :

Code :

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

1
2
Set rst = New DAO.Recordset
rst.open strSql

ou un truc dans le genre ....

[candrau]

Cette syntaxe ne marche pas, on obtiens l'erreur :"Invalid use of new keyword". Sinon, j'ai déclaré au départ la variable rst comme dans l'exemple (j'ai pris exactement le même code), à savoir comme ça :

Code :

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

Dim rst As DAO.Recordset

[Pierre Fauconnier]

Salut.

Es-tu en VBA pour Excel? Si oui, tu ne peux pas utiliser Currentdb qui est un objet Access (sauf à avoir déclaré un objet dao.database au nom de Currentdb, ce dont je doute). Tu as donc probablement recopié un code utilisable en Access et tu essaies de le faire fonctionner en Excel. Tu dois donc l'adapter en déclarant un dbengine et une database et en les instanciant. Tu pourras alors y connecter des recordset...

De quel exemple parles-tu? Un code trouvé sur le net est rarement utilisable sans modifications.

Précise le contexte dans lequel tu utilises le code, et nous pourrons probablement mieux t'aider.

[candrau]

J'ai pris texto le tutoriel "La Mise en Forme Conditionnelle Illimité Sous Access", et effectivement, je n'ai pas fait gaffe que c'était sous access (pourtant, c'est marqué dans le titre du tutoriel....) Je vais aller faire un tour dans les FAQ pour voir les syntaxes pour déclarer ce que tu as relevé et modifier le code

[Pierre Fauconnier]

Inspire-toi de ceci

Code :

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

1
2
3
4
5
6
  Dim myEngine As New DAO.DBEngine
  Dim MyBase As DAO.Database
  Dim rst As DAO.Recordset
 
  Set MyBase = myEngine.OpenDatabase("d:\données\database1.mdb")
  Set rst = MyBase.OpenRecordset("select * from matable")