SQL et VBA problème de guillemets [Fermé]

Signaler
-
Bonjour,

Je voudrais exécuter une requête SQL avec du VBA, et cette requête intégrerait des variantes de mon code utilisées plus tôt.

Function AA()

Dim xlApp As Excel.Application
Dim Ste1 As String
Dim Ste2 As String
Dim Ste3 As String
Dim Sql As String

Set xlApp = CreateObject("Excel.Application")

With xlAp
.Visible = True


FiletoOpen = .Application.GetOpenFilename("xls Files (*.), *.xls")

.Workbooks.Open FiletoOpen

' VERIFICATION BON FICHIER : a remplir


Ste1 = .Range("H1").Value
Ste2 = .Range("H2").Value
Ste3 = .Range("H3").Value

'Enregistrer le fichier

.ActiveWorkbook.SaveAs FileName:= _
"Importation ZCARA", _
FileFormat:=xlOpenXMLWorkbook


.Quit


End With
________________________


J'ai ensuite essayé les deux lignes suivantes mais aucune ne va ...

Sql = "DELETE * FROM [Table] WHERE "([Champ] = ste1 or ste2 or ste3)";"

DoCmd.RunSQL "DELETE * FROM [Table] WHERE ([Champ] = ste1 or ste2 or ste3);"




merci !!!!!