Discussion :

[GeorgesAntoineC]

Bonjour à tous,

j'ai un problème dans mon code...

Je veux importer un tableau Excel dans une table Access. Je veux simplement que Access écrase l'ancienne table avec le même nom et prend l'importation comme nouvelle donnée. Par contre, lorsque j'utilise la fct DoCmd.TransferSpreadsheet, Access fait un ajout à l'ancienne information...Bref, ça m'amène des doublons.

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
20
21
22
23
24
25
 
Public Function ImportToAccess_Q()
'Importation de la table Q
 
On Error GoTo ErrorHandler
 
    Dim Table_Q As String
    Dim CheminAccesQ As String
 
    CheminAccesQ = "\\...chemin d'accès...\"
    CheminAccesQ = CheminAccesQ & "Table_Q.xlsx"
    Table_Access_Q = "Table_Q"
 
    'Importation dans la table Access
    DoCmd.TransferSpreadsheet transfertype:=acImport, spreadsheettype:=acSpreadsheetTypeExcel12, tablename:=Table_Access_Q, FileName:=CheminAccesQ, hasfieldnames:=True
 
ErrorHandlerExit:
        Exit Function
 
ErrorHandler:
        MsgBox "Error number: " & Err.Number _
        & "; Description: " & Err.Description
        Resume ErrorHandlerExit
 
End Function

Est-ce que vous pouvez m'aider, merci!

[tee_grandbois]

bonsoir,
il n'y a pas d'option pour l'écrasement des anciennes données, il faut vider la table avant l'importation:

Code :

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

1
2
' vidage de la table:
Currentdb.Execute("Delete * from " & Table_Access_Q)

[GeorgesAntoineC]

Merci pour la réponse !

Ça me faire penser à une autre question, est-ce qu'un utilisateur qui n'a pas access va être en mesure d’exécuter cette ligne de code (comportant une section SQL).

Sinon j'avais penser à lui faire un dépôt Excel, simplement le lier à cette table.

Cordialement,

[tee_grandbois]

Ça me faire penser à une autre question, est-ce qu'un utilisateur qui n'a pas access va être en mesure d’exécuter cette ligne de code (comportant une section SQL).

Quel est le sens de ta question ?
sauf si il utilise un runtime un utilisateur n'ayant pas Access ne pourra pas ouvrir cette application ...

[GeorgesAntoineC]

Les utilisateurs normalement n'ayant pas Access et pas de runtime, par contre utilisant un système d'exploitation Windows, disposent d'un "viewer" il me semble.

Ils peuvent ouvrir le formulaire et naviguer la donnée, mais il ne peuvent faire aucune fonction SQL ou encore dédié à Access.

Bref, j'ai fait quelques tests dans le passé et ça fonctionnait, mais peut-être je me trompe et ça changé avec le nouveau Access.

[tee_grandbois]

bonsoir,
Si c'est un viewer, je ne pense pas qu'il puisse exécuter quoique ce soit (comme tout viewer, d'ailleurs)