Discussion :

[titeZ]

Bonjour,

J'en suis presque a bout de nerf

j'ai une question qui est tellement bete que je ne trouve d'aide nulle part

Je suis dans excel, j'ai une table dans une base access et je souhaite coller les données de la table d'access sur la feuille excel dans laquel je suis!

Alors j'ai plein de tutoriel sur des connexions a droite ou a gauche mais j'ai simplement besin d'un copier coller!

Une idée ?
Merci.

[Jean-Pierre49]

Bonjour

Une seule solution : Le Recordset (faire une requête Ds la table access)



Un exemple

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
                            Dim BaseSource              As Database
                            Dim RQ                      As Recordset
                            Dim Cellule                 As Range
                            Dim CompA                   As Long
 
    Set BaseSource = DBEngine.Workspaces(0).OpenDatabase("TaBaseAccess.mdb")
 
    Set RQ = BaseSource.OpenRecordset( _
        "SELECT * (ou les champs de TaTabeAccess)  FROM TaTabeAccess WHERE Conditions eventuelles ;" _
        , dbOpenDynaset)
 
    Set Cellule = Range("A1")
    For CompA = 0 To RQ.Fields.Count - 1 ' recupere les entetes de champs
        Cellule.Offset(0, CompA).Value = RQ.Fields(CompA).Name
    Next CompA
    Range("A2").CopyFromRecordset RQ ' recupere les valeur de ta requete
 
    RQ.Close
    Set RQ = Nothing
    BaseSource.Close
    Set BaseSource = Nothing

Bon courage

[titeZ]

Merci de ton aide Jean pierre
J'ai cependant un soucis Set RQ = BaseSource.OpenRecordset( _
"SELECT * FROM TBL_RAPPROCHEMENT", dbOpenDynaset)
incompatibilité de type

[Jean-Pierre49]

Oui j'ai oublié


La reference a cocher : Microsoft DAO 3.6 Object Library

[titeZ]

oui oui j'ai modifié en effet
j'aurais du rajouter un post au lieu de modifier l'ancien
c'est une autre erreur qui a lieu

[titeZ]

c'est bon merci
cela fonctionne
Il fallaitr que j'ajute DAO.Database a la place de database

merci a toi