Recherche macro pour ouvrir Access

Bonjour,

un classeur Excel ouvre une base Access Qu'entendez-vous par ouvrir ????

Bonjour,
Ouvrir cela veut dire accéder à la base access. ceci afin d'éxécuter certaine tache dans cette base.

Cdt

Re,

un exemple de connexion:

'pensez a ajouter:
'outil:reference DAO x.x Object Library
'ou
'Microsoft Access xx.x Object Library
Public conn As Object  'ADODB.Connection
Public rs  As Object   'ADODB.Recordset

Sub Connecte_base_Access()
    Dim Chemin_Base
  
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.recordset")
  
    Nom_base = "Equipement_test.accdb"
    Chemin_Base = ThisWorkbook.Path & "\" & Nom_base
    'chaine de connexion 2007
    'connstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Chemin_Base
    'chaine de connexion 97-2013
    connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
    'cn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};Data source=C:\Users\PC\Documents\Base de données1.accdb"
    'Connexion a la base
  conn.Open connstring
  
  Sql = "select Matricule from Redacteur order by Matricule asc"
  rs.Open Sql, conn, 3, 3
  rs.MoveFirst
  
  Do Until rs.EOF
    DoEvents
    Combo_Matricule.AddItem (rs.Fields("Matricule"))
    rs.MoveNext
  Loop
  rs.Close
End Sub

A+

Bonjour, ce bloque au niveau " conn.Open connstring"
voilà ce que j'ai copier
Sub Connecte_base_Access()
Dim Chemin_Base

Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.recordset")

Nom_base = "Carlac.accdb"
Chemin_Base = ThisWorkbook.Path & "\" & Nom_base
'chaine de connexion 2007
'connstring = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Chemin_Base
'chaine de connexion 97-2013
connstring = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)}; DBQ=" & Chemin_Base
'cn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb, *.accdb)};Data source=C:\Users\PC\Documents\Base de données1.accdb"
'Connexion a la base
conn.Open connstring

Sql = "select Matricule from Redacteur order by Matricule asc"
rs.Open Sql, conn, 3, 3
rs.MoveFirst

Do Until rs.EOF
DoEvents
Combo_Matricule.AddItem (rs.Fields("Matricule"))
rs.MoveNext
Loop
rs.Close
End Sub

merci de votre aide
Cdt

Re,

Dans l'exemple, la base est dans le meme repertoire que le fichier excel et il faut lancer le fichier excel de son repertoire pour avoir le Path

Ok mais maintenant cela bloque à
"rs.Open Sql, conn, 3, 3" pourquoi?
Cdt

Re,

Il faut dans la requete SQL mettre le nom de votre table et le ou les noms des champs de cette table
ici requete avec tri ascendant:
Sql = "select NomduChamp from MaTable order by NomduChamp asc"

Vous connaissez SQL Access ??

en réponse à la question non
cdt

Re,

Ben, vous allez faire comment pour votre job ???

Re,

l'ironie n'est pas de mise. Ce n'est pas de l'ironie ni un jugement de valeur, c'est une simple question de bon sens et je suis pret a vous aider quoi qu'il en soit. C'est vous qui voyez

l'ironie n'est pas de mise.
Je fais mon job . ce n'est certainement pas à vous d'en juger.
cdt