Appel d'Access depuis Excel 2010.

Version imprimable

26/06/2012, 18h47
BugFactory

Appel d'Access depuis Excel 2010.
Bonjour,

Nous avons des macros VBA Excel qui ne fonctionnent plus depuis notre passage à Excel 2010 et j'essaye de les réparer. Le code suivant en particulier est problématique :
Code:

1 2 Dim Aapp As Access.Application Set Aapp = CreateObject("Access.application")
J'obtiens en effet l'erreur "Erreur de compilation:Type défini par l'utilisateur non défini" sur la première ligne.

J'ai essayé de copier le fichier MSACC.OLB depuis un autre poste (je ne l'ai pas trouvé dans C:\Program Files\Microsoft Office\Office14\) et de l'ajouter aux références, mais ça n'a fait que changer l'erreur en "Erreur d'exécution '429':Un composant ActiveX ne peut pas créer d'objet" sur la deuxième ligne.

Je n'ai pas trouvé MSACC.OLB dans C:\Program Files\Microsoft Office\Office14\.

Quelqu'un sait-il comment faire pour utiliser Access.Application depuis Excel 2010, où quel est son équivalent si il a été remplacé?

Doit-on avoir Access installé pour pouvoir utiliser Access.Application? Par ailleurs, plus loin se trouve la ligne :

Code:

Aapp.OpenCurrentDatabase ("c:\temp\" & tmp & ".mdb")

A-t-on besoin d'Access pour exécuter cette ligne?

Merci d'avance.
26/06/2012, 21h59
ctac_

Bonjour,

Oui, pour utiliser Access depuis XL, il faut avoir Access.

Cordialement

ctac
27/06/2012, 15h03
Chnoucky

Par contre, pas besoin pour utiliser le DAO ou ADO. Ils permettent de faire des requetes de DB via excel.

(developpez.net a d'excelents tuto là dessus)

J'utilise EXCEL 2010 sans ACCESS.

Ce code marche sans probleme.

Code:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Private Sub AffichLstFactures()
    Dim WS              As Worksheet
    Dim i               As Long
    Dim Connexion       As New ADODB.Connection
    Dim rs              As New ADODB.Recordset
    Dim Req             As String
 
    If SheetExists("MFactures") Then
        Application.DisplayAlerts = False
        ThisWorkbook.Worksheets("MFactures").Delete
        Application.DisplayAlerts = True
    End If
 
    Set WS = ThisWorkbook.Worksheets.Add
    WS.Name = "MFactures"
 
    Connexion.Open "DSN=MS Access Database;DBQ=M:\commun\DIMITRI\BDD\BASE1.mdb;"
 
    Req = Req + "SELECT Ventes.Code_Vente, Ventes.DateVente, Nom, Prénom,  Total "
    Req = Req + "FROM Personnes INNER JOIN "
    Req = Req + "("
    Req = Req + "SELECT *"
    Req = Req + "FROM Ventes LEFT JOIN "
    Req = Req + "("
    Req = Req + "SELECT  Code_Vente , SUM(TotalLigne) AS Total "
    Req = Req + "FROM LigneVentes "
    Req = Req + "GROUP BY Code_Vente"
    Req = Req + ") "
    Req = Req + "AS NewTable ON NewTable.Code_Vente = Ventes.Code_Vente "
    Req = Req + "ORDER BY Ventes.DateVente ASC"
    Req = Req + ") "
    Req = Req + "AS NewTable2 ON Personnes.Code_Personne = NewTable2.Code_Personne"
 
 
    Set rs = Connexion.Execute(Req)
 
    With WS
        .Cells(2, 1).CopyFromRecordset rs
        For i = 2 To Fin(WS)
            .Cells(i, 2).NumberFormat = "DD/MM/YYYY"
            .Cells(i, 3) = RTrim(.Cells(i, 3))
            .Cells(i, 4) = RTrim(.Cells(i, 4))
            .Cells(i, 5) = Cdbl(Cells(i, 5))
        Next i
    End With
    Connexion.Close
    Set Connexion = Nothing
End Sub

12/07/2012, 09h44
BugFactory

Merci pour vos réponses, j'ai demandé un poste avec Access et ça marche.