Discussion :

[Invité]

Bonjour a tous, voici jai un probleme pour delete une table et la réimporter.

c'est la commande docmd qui me pose problème. (j'ai mis en gras ou ca bloque)

si quelqu'un"un pourrais me donner des conseils , merci de votre comprehension

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
61
62
63
64
65
Dim objConnection
 
Dim strConnODBC
 
Dim strSce, strDest
 
Dim arrTables, i
 
DIM query
 
Set objConnection = CreateObject("ADODB.Connection")
 
set ars = CreateObject("ADODB.Recordset")
 
objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=S:\COUTVPF\ImportTablePDM.mdb"
 
set ars = CreateObject("ADODB.Recordset")
 
 
 
' Chaîne de connexion ODBC
 
strConnODBC = "ODBC;DSN=PDMTEST;APP=Microsoft Office 2003;WSID=PC0905-6;DATABASE=PDM;Trusted_Connection=Yes"
 
 
 
' Créer liste des tables à importer
 
arrTables = Array( "Circuit", "Concurrence", "Entrees", "Programmes_Salles", "Films", "Salles", "Resultat_Journalier", "Format")
 
 
 
' Boucler sur les tables et les importer une par une
 
For i = LBound(arrTables) To UBound(arrTables)
 
 
 
    strSce = arrTables(i)
 
    strDest = Replace(strSce, ".", "_")
 
 
 
        If vbYes = MsgBox("Importer la table " & strDest & "?", vbYesNo, "Import de  PDM") Then
 
 
'*******************Problème ICI *************************************
               On Error Resume Next
 
                DoCmd.DeleteObject acTable, strDest
 
                On Error GoTo 0
 
 
 
                On Error Resume Next
 
                DoCmd.TransferDatabase acImport, "Base de données ODBC", strConnODBC, acTable, strSce, strDest
 
                On Error GoTo 0
'******************* fin Problème ICI *************************************
        End If
 
Next

L'erreur que j'ai
Objet requis "docmd"

source= erreur d'executions Microsoft Vbscript

Edit : J'ai essayer plusieurs syntaxes toujours rien ...