Requetes

[hoss]

Salut à tous,
Je suis en train d'utiliser MS Query pour faire des requêtes sous excel . J'ai enregistré les requêtes ds une macro dont voici le code.
Je souhaite faire plusieurs requetes pour les autres champs de ma table toto1506. Est ce qu'il y a un moyen d'automatiser cette requête.
Merci bcp
hoss
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;CollatingSequence=ASCII;DBQ=C:\WINNT\Profiles\S566622\Bureau;DefaultDir=C:\WINNT\Profiles\S566622\Bureau;Deleted=1;Driver={Micr" _
), Array( _
"osoft dBase Driver (*.dbf)};DriverId=533;FIL=dBase 5.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=600;SafeTransactions=0;Stat" _
), Array("istics=0;Threads=3;UserCommitSync=Yes;")), Destination:=Range("B1"))
.Sql = Array( _
"SELECT toto1506.Fisc, Sum(toto1506.NBCONT)" & Chr(13) & "" & Chr(10) & "FROM toto1506 toto1506" & Chr(13) & "" & Chr(10) & "GROUP BY toto1506.Fisc" _
)
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = True
.SaveData = True
End With

 

[hoss]

Salut tout le monde
J'ai pensé à changer des choses ds mon code, mais j'ai une erreur du type
Erreur d'exécution '1004' Erreur générale ODBC..
Voici mon nouveau code.
Merci de votre aide a tous
---------
Sub MacroTEST()
Dim CHAMP_in, CASE_in As Variant
Dim Message, Title, Default

' Définit le message.
Message = "Entrez un champ"
Title = "InputBox Demo" ' Définit le titre.
Default = "PRODUCT" ' Définition la valeur par défaut.
' Affiche le message, le titre et la valeur par défaut.
CHAMP_in = InputBox(Message, Title, Default)


Message1 = "Entrez une case"
Default = "A1"
CASE_in = InputBox(Message1, Title, Default)
' Utilise le fichier d'aide et le contexte.
' Le bouton Aide est ajouté automatiquement.
'MyValue = InputBox(Message, Title, , , , "DEMO.HLP", 10)

' Affiche la boîte de dialogue sur la position 100, 100.
'MyValue = InputBox(Message, Title, Default, 100, 100)


With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;CollatingSequence=ASCII;DBQ=C:\WINNT\Profiles\S566622\Bureau;DefaultDir=C:\WINNT\Profiles\S566622\Bureau;Deleted=1;Driver={Micr" _
), Array( _
"osoft dBase Driver (*.dbf)};DriverId=533;FIL=dBase 5.0;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=600;SafeTransactions=0;Stat" _
), Array("istics=0;Threads=3;UserCommitSync=Yes;")), Destination:=Range("A1"))
.SQL = Array( _
"SELECT toto1506.CHAMP_in, Sum(toto1506.NBCONT)" & Chr(13) & "" & Chr(10) & "FROM toto1506 toto1506" & Chr(13) & "" & Chr(10) & "GROUP BY toto1506.CHAMP_in" _
)
.FieldNames = True
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery = False
.SavePassword = True
.SaveData = True
End With

End Sub