Discussion :

[meolimo]

Bonjour.

je travail sur un projet TCD sur Excel pour l entreprise où je travail. Nous sommes plusieurs employés et sommes configurés en réseau. Mon tableau qui s'incrémente de plusieurs enregistrements par jour, contient maintenant 62 865 enregistrements et il fonctionne très bien mais devient très lourd.

Dans un souci d’efficacité, j ai copié l'ensemble des informations dans une table Access (2003).

A partir d’un autre Workbook Excell, via VBA, je procède à la création d’une requête paramétrée, sql qui puise ses infos sur ma table Access et par la suite j affiche le résultat sur un tableau sur une feuille de mon Workbook tout ca fonctionne très bien; sur mon poste de travail, sur lequel est installé Access et Excel.

Par contre quand je tente de procéder avec le même Workbook mais cette fois ci, sur un autre poste de travail d’un confrère qui lui n’a pas Access d’installé, le processus ne semble pas possible.

Selon vous, est-ce possible à réaliser même si le poste de travail n’est pas muni d’Access.

Espérant avoir été claire et concis.

Merci à l avance

[User]

Bonsoir,

Par quelle librairie passes-tu pour interroger la base Access depuis Excel ?

DAO, ADO... ?

Il faut bien penser à la référencer sous Excel.

Cdlt,

[meolimo]

Bonsoir,

Par quelle librairie passes-tu pour interroger la base Access depuis Excel ?

DAO, ADO... ?

Il faut bien penser à la référencer sous Excel.

Cdlt,

Bonjour et merci User de prendre un peu de ton temps pour m assister, je passe par ADO je pourrai vous en fournir un peu plus lundi car mon fichier est au travail.

donc a plus

[User]

Bonjour,

Avec plaisir

Pour visualiser ou ajouter des références sous Excel faire :

Dans l'éditeur de macros (Alt+F11):
Menu Outils
Références

Cdlt,

[meolimo]

Bonjour,

Avec plaisir

Pour visualiser ou ajouter des références sous Excel faire :

Dans l'éditeur de macros (Alt+F11):
Menu Outils
Références

Cdlt,

Voici la portion de mon code qui utilise une variable DAO.Database

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
20
21
22
23
24
25
26
27
28
Sub FillCombo()
 
 
 
Dim db As DAO.Database
Dim rec As DAO.Recordset
Dim SQL As String
Dim temp
 
'ici je cache la longue procedure de creation de la requête SQL paramétrée
'******************
 
 
curshname = ActiveSheet.Name
Set db = DAO.OpenDatabase(PathStringReseau, False, False)
 
Set rec = db.OpenRecordset(SQL, DAO.dbOpenSnapshot)
 
With rec
    If rec.RecordCount > 0 Then
        rec.MoveLast
        rec.MoveFirst
        temp = rec.RecordCount
 
        Sheets("FeuilTest").Range("Tableau1").Clear
        Sheets("FeuilTest").Range("A7").Select
        derlign = Selection.End(xlDown).Row
        Sheets("FeuilTest").Range("A7:A" & derlign).Clear

Il me reste a valider, le comportement sur le poste de travail de mon collègue en m'assurant qu'Excel comporte bien les références appropriées.

;-)

[meolimo]

Voici la portion de mon code qui utilise une variable DAO.Database

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
20
21
22
23
24
25
26
27
28
Sub FillCombo()
 
 
 
Dim db As DAO.Database
Dim rec As DAO.Recordset
Dim SQL As String
Dim temp
 
'ici je cache la longue procedure de creation de la requête SQL paramétrée
'******************
 
 
curshname = ActiveSheet.Name
Set db = DAO.OpenDatabase(PathStringReseau, False, False)
 
Set rec = db.OpenRecordset(SQL, DAO.dbOpenSnapshot)
 
With rec
    If rec.RecordCount > 0 Then
        rec.MoveLast
        rec.MoveFirst
        temp = rec.RecordCount
 
        Sheets("FeuilTest").Range("Tableau1").Clear
        Sheets("FeuilTest").Range("A7").Select
        derlign = Selection.End(xlDown).Row
        Sheets("FeuilTest").Range("A7:A" & derlign).Clear

Il me reste a valider, le comportement sur le poste de travail de mon collègue en m'assurant qu'Excel comporte bien les références appropriées.

;-)

Bonjour finalement le problème de référence résolu, l'appli fonctionne très bien et ce même si sur le poste de travail, Access n'est pas configuré et est manquant.