Ouverture d'une table Access depuis Excel

[Sly le globe trotter]

Bonjour le forum,

Merci pour l'aide qu'on peut trouver sur ce forum, c'est fort appréciable ! J'ai cherché à droite à gauche, dans la FAQ et le forum mais n'ai rien trouvé qui correspond à mon souci...

J'ai déjà posté sur un sujet similaire mais comme le sujet a dévié je voulais mettre à jour l'intitulé du post, pour faciliter de futurs recherches...

Je cherche à ouvrir une table Access depuis Excel. ça parait tout simple sur la papier en utilisant les librairies ADODB :

Option explicit
Const Table1 As String = "Tests bélier"

Dim Conn As New ADODB.Connection
Dim rsT As New ADODB.Recordset

With rsT
    .ActiveConnection = Conn
    .Open Table1, LockType:=adLockOptimistic
End With

ça marche très bien tant que le nom de la table ne comporte pas d'espace... mais ça plante si le nom de la table comporte un espace. Dans les bouquins ou forums que j'ai consulté, je n'ai rien trouvé à ce sujet. Auriez-vous une solution ?

Merci

 

[Bricofire]

Re : Ouverture d'une table Access depuis Excel

Bonsoir Sly le globe trotter, 🙂

Est-tu allé voir sur le Wiki de Michel XLD ?... Page 6 ?

https://www.excel-downloads.com/thr...iltres-variables-fichiers-fermes-acces.92374/

bonne soirée,

 

[Sly le globe trotter]

Re : Ouverture d'une table Access depuis Excel

Bonjour Bricofire, le forum,

Je suis effectivement allé jeter un coup d'oeil sur le wiki de MichelXLD mais n'ai rien trouvé de particulier sur l'ouverture de table dont le nom comporte un espace...

Dommage pour moi 🙁 Peut-être que quelqu'un pourra m'aider...

Merci

 

[michel_m]

Re : Ouverture d'une table Access depuis Excel

bonjour sly, Bricofire

Il faut mettre le nom de la table entre crochets

Michel_M

 

[Sly le globe trotter]

Re : Ouverture d'une table Access depuis Excel

Bonjour Michel_M, le forum,

Merci pour ces précieux conseils, celà fonctionne maintenant. C'est drôlement filou comme solution ! Je la mets ici si ça peut servir !

Const Table1 As String = "[Tests bélier"
With rsT
    .ActiveConnection = Conn
    .Open Table1, LockType:=adLockOptimistic
End With

Merci et bon we à tous
Sylvain