Recherche macro pour ouvrir Access Résolu/Fermé

Question

Bonjour à tous,

Je suis à la recherche d'une macro qui depuis un classeur Excel ouvre une base Access.
Pouvez-vous m'aider?
Cdt 
Fagots

f894009 · Answer

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

fagots · Answer

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

f894009 · Answer

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+

fagots · Answer

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

f894009 · Answer

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

fagots · Answer

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

f894009 · Answer

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 ??

fagots · Answer

en réponse à la question  non
cdt

f894009 · Answer

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

fagots · Answer

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

f894009 · Answer

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

Recherche macro pour ouvrir Access

11 réponses

Discussions similaires