Discussion :

[spud96]

Bonjour,

J'utilise une macro pour importer des données dans une table Acess

Code :

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

1
2
3
4
For i = 15 To 50
strSQL = "INSERT INTO IMPORTSAP2009 VALUES ('" & Range("ad" & i) & "', '" & Range("ac" & i) & "', '" & Range("z" & i) & "', '" & Range("aa" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', # 01/01/2011 #, # 01/01/2011 #, " & Range("m" & i) & ", " & Range("m" & i) & ", " & Range("m" & i) & ")"
Db.Execute strSQL
Next i

Le programme me renvoie une erreur "incompatibilité de type" je pense que le probléme viens du type des champs dans la table Acess.

Le champ AB est une date et le champ m numérique . Pouvez vous m'aider sur la synthaxe à utiliser.

Merci de votre aide

[jfontaine]

Bonjour,

Et que retourne la variable strSQL ?

[spud96]

Merci de votre reponse, je ne suis pas certain d ela commentaire la variable strsql est censée excécuter l'instruction SQL c'est cette instruction qui declenche l'erreur vba .

Encore merci

[jfontaine]

C'est bien pour cela que je te demande ce que contient strSQL au moment de l'execution

Code :

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

msgbox strsql

avant db.execute

Il faudrait aussi avoir la structure de la table de destination (Champs + type)

[spud96]

merci de ton aide
voici le code complet de la macro

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
Sub INSERTB2011()
Dim Db As DAO.Database
Dim strSQL As String
Dim derlign As Long, i As Long
 
'connexion à la base
Set Db = DAO.OpenDatabase("D:\Base\BaseP&L.mdb", False, False)
 
'
For i = 15 To 50
strSQL = "INSERT INTO IMPORTSAP2009 VALUES ('" & Range("ad" & i) & "', '" & Range("ac" & i) & "', '" & Range("z" & i) & "', '" & Range("aa" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', '" & Range("ab" & i) & "', # 01/01/2011 #, # 01/01/2011 #, " & Range("m" & i) & ", " & Range("m" & i) & ", " & Range("m" & i) & ")"
Db.Execute strSQL
Next i
 
'deconnexion de la base
Db.Close
 
End Sub

Et je joins la structure de la table

Encore merci

[AlainTech]

Tu ne réponds toujours pas à la question:
Que contient la variable strSQL juste avant le Db.Execute?
jfontaine t'a donné l'instruction à insérer dans ton code.
Si tu veux pouvoir faire un copier/coller du résultat, utilise l'instruction

Code :

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

Debug.Print strSQL

et regarde dans la fenêtre d'exécution de l'éditeur VBA (Ctrl+G).