Recherche macro pour ouvrir Access
Résolu
fagots
Messages postés
92
Date d'inscription
Statut
Membre
Dernière intervention
-
fagots Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
fagots Messages postés 92 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
Je suis à la recherche d'une macro qui depuis un classeur Excel ouvre une base Access.
Pouvez-vous m'aider?
Cdt Fagots
Je suis à la recherche d'une macro qui depuis un classeur Excel ouvre une base Access.
Pouvez-vous m'aider?
Cdt Fagots
A voir également:
- Recherche macro pour ouvrir Access
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Ouvrir fichier .dat - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
11 réponses
Bonjour,
Ouvrir cela veut dire accéder à la base access. ceci afin d'éxécuter certaine tache dans cette base.
Cdt
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:
A+
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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 ??
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 ??
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. 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
Je fais mon job . ce n'est certainement pas à vous d'en juger.
cdt
pourquoi avoir mis la question en résolue alors que ce n'est pas le cas. Je ne comprends pas votre motivation.
Jusqu'à présent toute mes questions ont reçu des réponses et les personnes m'ayant données celle-ci ne ce sont permis de juger et de mettre des commentaires ironiques. Bien au contraire celle-ci mon fait progresser au contraire de vous.
Fagots
Jusqu'à présent toute mes questions ont reçu des réponses et les personnes m'ayant données celle-ci ne ce sont permis de juger et de mettre des commentaires ironiques. Bien au contraire celle-ci mon fait progresser au contraire de vous.
Fagots
re,
ce que je cherche, à partir de mon classeur Excel ouvrir ma base Access afin de réaliser mes macro. Attention je sais faire à partir d'Excel lancer mes macro dans Access , mais dans ma base Access j'ai une requête de création de table qui bloque ma macro d'Excell. a moins que vous me donniez la solution pour réaliser celle-ci directement je n'ai pas d'autre moyen pour l'instant que d'ouvrir ma base Access et réaliser mes macro Access en direct sur la base.
Espérant avoir était le plus clair possible.
Cdt
Fagots
ce que je cherche, à partir de mon classeur Excel ouvrir ma base Access afin de réaliser mes macro. Attention je sais faire à partir d'Excel lancer mes macro dans Access , mais dans ma base Access j'ai une requête de création de table qui bloque ma macro d'Excell. a moins que vous me donniez la solution pour réaliser celle-ci directement je n'ai pas d'autre moyen pour l'instant que d'ouvrir ma base Access et réaliser mes macro Access en direct sur la base.
Espérant avoir était le plus clair possible.
Cdt
Fagots