Discussion :

[marcelisa2]

Bonjour,
J'ai mis en place une liaison entre excel et ma base access.
Pour ouvrir certaine table j'utilise le début de code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
    Dim accObj As Object
    'Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim sql, ruptureBL, ruptureMark As String
 
    ' Ouvrir la base de données
 
    strChemin = ActiveWorkbook.Path & "\Outil RecoCOMEX.accdb"
 
    Set accObj = CreateObject("Access.Application")
 
    accObj.OpenCurrentDatabase (strChemin)
 
    Set db = accObj.CurrentDb
    Set rst = db.OpenRecordset("TR_reporting date", dbOpenDynaset)......

Le problème que j'ai, c'est qu'à chaque fois que j'ouvre la base access, il lance le formulaire access (F_Home) de démarrage.
Je voudrais éviter qu'il se lance.
Comment dois je faire? merci par avance pour votre aide.

[78chris]

Bonjour

Pourquoi encore utiliser cette méthode alors que PowerQuery qui existe depuis 2010 peut accèder à Access de façon simple ?

[Invité]

Bonjour le fil

@78chris, je ne suis pas d'accord avec toi pour une fois.
on peut vouloir utiliser cette méthode pour un tas de bonnes raisons, une en particulier est que l'on possède une base Access, mais on veut utiliser les USF Excel
Pourquoi vouloir systématiquement utiliser à tout prix PQ...

@marcelisa2, ce n'est pas comme cela que l'on fait des connexions DAO, voir un exemple ICI

A+

[78chris]

Bonjour Bruno

Bonjour le fil

@78chris, je ne suis pas d'accord avec toi pour une fois.
on peut vouloir utiliser cette méthode pour un tas de bonnes raisons, une en particulier est que l'on possède une base Access, mais on veut utiliser les USF Excel

Je me suis laissée emporté cas dans la grande majorité des cas, les demandeurs veulent juste récupérer des données.

Il est cependant dommage de ne pas profiter des possibilités d'Access en Formulaires de saisie bien plus aboutis qu'Excel pour gérer les données d'une base (bien construite ) où, à part les contrôles de cohérences de données, on n'a quasi rien à coder...

[marcelisa2]

Merci beaucoup à 78chris et BrunoM45 pour le retour.
Je vais regarder la solution proposée par BrunoM45 et vous tiens au courant
Bonne journée

[Thumb down]

Bonjour,
Ça n'engage que moi, mais utiliser Dao dans Excel me paraît une abomination !

Si l'idée est d'importer des données dans Excel il y a, comme le préconise Chris, Power query !

Si ta version est avant 2010 tu as Query Deff.

Si tu veux mettre à jour un base Access utilises ADO et pas DAO!

[marcelisa2]

Rebonjour,
je me retrouve avec une erreur 3343 lorsque je suis sur l'instruction Set daoDB

Code :

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

1
2
3
4
5
6
7
8
9
....
strDBName = "Outil_Reco.accdb"
'get path / location of the database, presumed to be in the same location as the host workbook:
strMyPath = ActiveWorkbook.Path
'set the string variable to the Database:
strDB = strMyPath & "\" & strDBName
 
'If you open a database object without specifying a workspace, it will exist within the default workspace. First assign the database reference to an object variable:
Set daoDB = DBEngine.OpenDatabase(strDB)....

Y a t-il une référence manquante?

[marcelisa2]

je précise que j'ai déjà comme référence

Merci pour votre aide

[Thumb down]

J'ai donné mon appréciation sur le fait d'utiliser Dao dans Excel !

Préjugés non; expérience oui!

Code :

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

1
2
3
4
5
6
7
Sub Test()
With CreateObject("Adodb.Connection") 'Access
    .Open "Provider=Microsoft.ACE.OLEDB.16.0;Data Source=C:\Myrep\DBTest.accdb;"
'    .Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Myrep\DBTest.accdb;"
         rang("A1").CopyFromRecordset .Execute("Select * From My Table")
    .Close
End With

Tu peux trouver ici une réponse d'un expert qui reste toujours d'actualité 😜
https://www.developpez.net/forums/d7...n/#post4607890

je ne cherche pas de réponse déjà vue ce poste!

Du reste je n'y ai pas trouvé d'experts! en revanche il me semble évident d'utilise DAO sous Access et je ne vois pas pourquoi il en serait différent sur le Forum ACCESS!

sur le forum VB.NET il n'aurait pas été question De DAO!

Pour conclure,si le demandeur souhaite importer des données Access vers Excel je réédites ce que j'ai dit plus haut le mieux c'est power query !

Utiliser DAO c'est une aberration dans Excel !

[marcelisa2]

Bonjour à tous,
j'essaye d'ouvrir une table en mode ADO pour essayer mais je bute sur l'ouverture de la table. Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim Cnn1 As ADODB.Connection
strChemin = ActiveWorkbook.Path & "\Outil_Reco.accdb"
 
 Set Cnn1 = New ADODB.Connection
    With Cnn1
    .Provider = "Microsoft.ACE.OLEDB.16.0;"
    .ConnectionTimeout = 30
    .Mode = adModeShareExclusive
    .Open "Data Source=" & strChemin & ";"
    End With
 
 Set Rst = New ADODB.Recordset
 Rst.Open "TR_reporting date", cnnl  ' => j'ai un code erreur 3001
 ....
    reportingdate = Rst.Fields(0)
    period_month = Rst.Fields(6)
    Year = Rst.Fields(7)
    Year1 = Rst.Fields(8) ....

Merci pour votre aide

[Thumb down]

Bonjour,
Jamais d'espace dans le nom d'une table, d'un champ!
Si non il faut [encadrer] par des [crochet]
Rst.Open "[TR_reporting date]", cnnl

[marcelisa2]

Bonjour,
même en mettant des crochets pour encadrer mon nom de table, j'ai toujours l'erreur 3001.
une solution à mon problème?

[marcelisa2]

rebonjour,
j'avais fait une erreur sur la commande cnn1. Cela fonctionne correctement.
Je vais vérifier l'ensemble de mon programme avant de clore cette discussion.

[marcelisa2]

Merci à tous.
Cela répond complètement à mon besoin. je clôture cette discussion.