Discussion :

[lunedemiel90]

Bonjour,
Je souhaiterai savoir, comment alimenter automatiquement une table ou requete access vers excel sans utiliser les macro (ou en utilisant les macro)? En d'autres termes, si je change ou rajoute des données dans ma table ou requête access, il faut que les modifications se fassent également sur mes feuilles excel sans que je n'ai à importer la table (en copiant et collant).

Je vous remercie d'avance

[diki971]

Pour les tables tu fais juste une liaison avec ton serveur
les requêtes je ne sais pas...

[lunedemiel90]

Pouvez vous svp,m'expliquer comment faire cette liaison? car, je suis en stage et ,je n'ai jamais utiliser access (je découvre).

Merci

[diki971]

je suis étudiant donc tutoie moi stp
deja est ce que tu dans ta boite il utilise un serveur 2008 r?

[lunedemiel90]

ok, j'utilise un serveur 2003

[diki971]

tu vas dons l'onglet en haut a gauche "données externes"
ensuite tu choisis dans le coté "importer et lier" ---> base de données ODBC
et tu prends la deuxième option "lier..."
et tu suis les inscruction et si tu dois créer un fichier .dns regarde ca:

http://office.microsoft.com/fr-fr/ac...010200494.aspx

[lunedemiel90]

merci beaucoup, je le fais et je te tiens au courant.

[diki971]

tqt sans problème

[lunedemiel90]

bonjour,
Je reviens encore vers toi,j'ai un problème, j'ai lu l'article,mais c'est que j'ai des serveurs 2003,c'est délicat de faire certains liens.Par contre j'ai trouvé qqch d'intéressant, mais le problème est que le programme ne m'affiche que les tables, je souhaiterai avoir également les requêtes mais, je ne sais pas quoi rajouter au programme,car,je suis vraiment débutante en tout. Aidez moi svp, le programme est :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Option Explicit
 
Sub Tables_Access()
Dim appAccess As Access.Application
Dim i, j As Integer
 
'Lance une session Access
Set appAccess = CreateObject("Access.Application")
 
With appAccess
    .OpenCurrentDatabase ("C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb")
    j = 6
    For i = 1 To .CurrentData.AllTables.Count - 1
        If Left(UCase(.CurrentData.AllTables(i).Name), 4) <> "MSYS" Then
        Range("A" & j) = .CurrentData.AllTables(i).Name
    j = j + 1
      End If
    Next i
End With
'Quitte Access
appAccess.Quit
 
'Réinitialise l'objet
Set appAccess = Nothing
End Sub
 
Sub Affiche_Table()
Dim rng As Range
Dim numLigne As Integer
 
'Supprime les lignes pouvants contenir du texte
Set rng = Range("C6").CurrentRegion
rng.Delete
 
'Affiche le contenu de la table sélectionnée
'en lançant une requêtte sur la base Biblio
On Error GoTo 1:
If ActiveCell <> "" And ActiveCell.Column = 1 Then
    With ActiveSheet.QueryTables.Add(Connection:=Array("OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;" & " Data Source =C:\Program Files\Microsoft Visual Studio\vb98\Biblio.mdb"), Destination:=Range("C6"))
    .CommandType = xlCmdTable
    .CommandText = Array(ActiveCell)
    .FieldNames = True
    .RowNumbers = False
    .PreserveFormatting = True
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .AdjustColumnWidth = True
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
  End With
Else
    MsgBox "Vous devez sélectionner un nom de table", vbExclamation
End If
On Error GoTo 0
Exit Sub
 
1:
MsgBox "La table sélectionnée n'a pu être affichée", vbExclamation
 
End Sub

[diki971]

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
Sub test()
'Nom des Table
For i = 0 To CurrentDb.TableDefs.Count - 1
    If Left(CurrentDb.TableDefs(i).Name, 4) <> "MSys" Then
 
  DoCmd.TransferDatabase acExport, "Microsoft Access", _
     "C:\Users\RDurupt\Documents\Base de données2.accdb", acTable, CurrentDb.TableDefs(i).Name, CurrentDb.TableDefs(i).Name
    End If
Next
 
'Nom des requêtes
For i = 0 To CurrentDb.QueryDefs.Count - 1
Debug.Print CurrentDb.QueryDefs(i).Name
Next
 
End Sub

avec les commentaire tu vas comprendre je pense
et tu exportes les tables avec le scripte en même temps

[diki971]

et tu mets ce scripte des l'évènement ouverture donc dans l'ouverture d'Access