[Xl-2003] - Ouverture d'une requête Access via VBA Excel

Fermé
hoodoo2310 Messages postés 4 Date d'inscription lundi 16 mars 2015 Statut Membre Dernière intervention 16 mars 2015 - Modifié par hoodoo2310 le 16/03/2015 à 10:26
Bonjour,

Je vais essayer d'être la plus claire possible.
J'ai crée une basse de données de pointage de colis qui comporte 4 tables toutes les 4 liées entre elle.
Avec ces 4 tables, j'ai crée plusieurs requête afin d'obtenir des taux de pointages.
Jusque là tout va bien.


J'ai crée un fichier Excel qui me permettra de stocker tous ces taux de pointages afin de faire des analyses.
Pour 3 de mes 4 requêtes, tout se passe bien sauf pour une seule.
Je n'arrive pas à trouver le problème.


Voici la requête qui bug :


Requete = "SELECT Expedition.Date_PEC, Sum(Expedition!Colis) AS Somme_Colis, Sum(STV_R!Nbre_Colis_non_lus) AS Somme_Colis_non_lus, ((1-[Somme_Colis_non_lus]/[Somme_Colis])*100) AS Taux, Zone_Rechargement.Zone, Equipe.Equipe"
Requete = Requete & " FROM ((Expedition LEFT JOIN STV_R ON (Expedition.Date_PEC = STV_R.Date_PEC) AND (Expedition.CD = STV_R.CD) AND (Expedition.Recep = STV_R.Recep)) LEFT JOIN Zone_Rechargement ON (Expedition.CD = Zone_Rechargement.CD) AND (Expedition.Code_traction = Zone_Rechargement.Code_traction)) LEFT JOIN Equipe ON Expedition.Code_apporteur = Equipe.Code_apporteur"
Requete = Requete & " GROUP BY Expedition.Date_PEC, Zone_Rechargement.Zone, Equipe.Equipe"
Requete = Requete & " HAVING (((Expedition.Date_PEC)=" & DA & ") AND ((Equipe.Equipe) Is Null));"



With Rs
.CursorLocation = adUseClient
.Open Requete, Connexion, adOpenDynamic, adLockOptimistic
End With



Vous remerciant d'avance pour votre aide




A voir également: