conversion access et VBA

  • Initiateur de la discussion Initiateur de la discussion alex60
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

alex60

XLDnaute Occasionnel
Bonjour à tous,

Voilà mon problème du jour, je remercie par avance tout ceux qui vont s'intéresser à mon problème.
Voilà j'ai une petite requette Access que je voudrais transformer en language VBA pour faire une macro.

la requête :

SELECT CLINOF_SDELIVERYD.ITMREF_0, Sum(CLINOF_SDELIVERYD.QTY_0) AS SommeDeQTY_0
FROM CLINOF_SDELIVERYD
WHERE (((CLINOF_SDELIVERYD.CREDAT_0)>#1/1/2008#))
GROUP BY CLINOF_SDELIVERYD.ITMREF_0
HAVING (((CLINOF_SDELIVERYD.ITMREF_0) Like "000*"));

encore merci.
 
Re : conversion access et VBA

Bonjour,
sans fichier, ce n'est pas facile mais ça doit se rapprocher de cela :
Code:
  MyRequete = "SELECT CLINOF_SDELIVERYD.ITMREF_0, Sum(CLINOF_SDELIVERYD.QTY_0) AS SommeDeQTY_0 " & _
                "FROM CLINOF_SDELIVERYD " & _
                "WHERE (((CLINOF_SDELIVERYD.CREDAT_0) > #1/1/2008#)) " & _
                "GROUP BY CLINOF_SDELIVERYD.ITMREF_0 " & _
                "HAVING (((CLINOF_SDELIVERYD.ITMREF_0) Like '000*'))"
 
Re : conversion access et VBA

merci de votre réponse, mais cela ne fonctionne pas, il m'indique " erreur de compilation" ci joint la requete

Sub Maj_Liste_Articles_Composants()
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=IFX3;UID=X3;PWD=TIGER;DBQ=INO-SRV2.DOMINOFR.COM;DBA=R;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfA" _
), Array("llSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0;")), Destination:= _
Range("A1"))
.CommandText = Array( _
"SELECT CLINOF_SDELIVERYD.ITMREF_0, Sum(CLINOF_SDELIVERYD.QTY_0) AS SommeDeQTY_0 " & Chr(13) & "" & Chr(10) & "FROM CLINOF_SDELIVERYD " & Chr(13) & "" & Chr(10) & "WHERE (((CLINOF_SDELIVERYD.CREDAT_0) > #1/1/2008#)) " & Chr(13) & "" & Chr(10) & "GROUP BY CLINOF_SDELIVERYD.ITMREF_0 " & Chr(13) & "" & Chr(10) & "HAVING (((CLINOF_SDELIVERYD.ITMREF_0) Like '000*'))"
.Name = "Lancer la requête à partir de IFX3"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False

End Sub

Salutation
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
0
Affichages
1 K
Réponses
1
Affichages
2 K
Réponses
2
Affichages
1 K
J
Réponses
1
Affichages
1 K
MrExcel
M
P
  • Question Question
Réponses
2
Affichages
4 K
Philippe Boudier
P
Retour