Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

adodb

  1. Microsoft 365 VBA : extraire une chaine de caractères à partir d'un caractère spéciale

    Bonjour, Mon code en sas est : substr(prt.cd_prt, index(prt.cd_prt, '/') +1) as code_prt (ce code marche bien dans SAS) Je voudrais transcrire ce code dans la requête ADODB comme : right(proto.cd_protocole, index(proto.cd_protocole, '/') +1) as code_proto mais cela ne marche pas, merci pour...
  2. XL 2019 SQL ADODB avec plusieurs lignes en input

    Joyeux Noël !!! :) J'aurais une petite question. Je n'arrive pas à trouver comment indiquer dans le code plusieurs cellules de données en input pour une requête sql adodb. Voici mon code : 'Date Sub Ma_date() Dim RECSET As New ADODB.Recordset, numero_de_police Call...
  3. Microsoft 365 Différence entre 2 dates

    Bonjour, Je n'arrive pas à calculer la différence entre les deux dates, voici le code dans ma requête : power(MT_EA*(1+TX_TAUX/100),(D_EFFET - #31 / 12 / (extract(year from D_EFFET)#)) as PM_avant_mvt En fait, je souhaite calculer la différence entre la date D_EFFET et la dernière date de la...
  4. Microsoft 365 Left join sans doublons

    Bonjour, Je souhaite écrire un left join sans doublons en sql adodb (vba), mais cette ligne select distinct ne marche pas : " from DB_EVENEMENT ev1 left join DB_SUPPORT sup on ev1.IS_SUPPORT=sup.IS_SUPPORT" & _ " left join ( select distinct TX_BONUS_BRUT_DEF_CTRAT from DB_TAUX_PAB_CTRAT)...
  5. Microsoft 365 ADODB Excel

    Bonjour, Je code en VBA Adodb, je cherche à remplacer, lors de la jointure à gauche, les données manquantes par "Not Applicable". J'utilise la fonction NVL : NVL(TO_CHAR(ev4.D_EFFET), 'Not Applicable') as D_EF mais cela ne marche pas, pouvez vous m'aider s'il vous plaît ? Merci !
  6. Microsoft 365 ADODB : L'affichage des données manquantes

    Bonjour, Je n'arrive pas à afficher correctement les données après une requête adodb sql. Voici mes données en sortie : Voici les données attendues : Je pense que c'est à cause de la condition Do While Not RECSET2.EOF que les lignes affichées sont celles qui sont "alimentées" : Do...
  7. Microsoft 365 ADODB : concaténer deux valeurs

    Bonjour, Je souhaite concaténer deux valeurs, je ne comprends pas pourquoi cela ne marche pas : PRT = Trim(UCase(Worksheets(1).Range("produit")).Value) & "/" & Trim(UCase(Worksheets(1).Range("CODE_COMMERCIAL")).Value) Le résultat attendu par exemple est 35/79 Merci pour votre aide !
  8. Microsoft 365 VBA : requête liée à une liste de données

    Bonjour, Je récupère mes variable argstring3 et argstring4 via 2 liste déroulante (en cliquant sur ces liste) : argString3 = Me.Liste_Mandataire.Value , argString4 = Me.Liste_Depositaire.Value. Les variables argString3 et argString4 ont bien des valeurs, j'ai testé. Le code pour les récupérer...
  9. Microsoft 365 VBA ADODB : fonction datepart()

    Bonjour, Voici mon code pour trouver une date sur les 15 dernières années : datepart(year,ev.dt_effet)>=(datepart(year,Getdate())-15) Je reçois l'erreur suivante : Pourriez-vous m'aider s'il vous plaît ? Merci beaucoup !
  10. Microsoft 365 ADODB VBA Recordset : récupérer l'observation la plus récente

    Bonjour, Je souhaite récupérer le montant avec la date la plus récente (si on a plusieurs dates), les conditions sont dans "having" mais mon code ne marche pas : Public Sub GET_DERN_VERS(NO_POLICE As String) Dim RECSET As New ADODB.Recordset RECSET.Open "select abs(ev.mt_brut_cie)...
  11. Microsoft 365 ADODB VBA sql : First en Last

    Bonjour, Je suis en train de coder en ADODB VBA sql. Je cherche à récupérer l'observation la plus récente, le tri est effectué par date. Pourriez-vous m'indiquer un exemple avec la fonction First/Last en ADODB sql VBA, s'il vous plaît ? Merci pour votre aide !
  12. Microsoft 365 First and Last en ADODB VBA

    Bonjour, Je suis en train de coder en sql ADODB VBA. Je cherche à récupérer l'observation la plus récente (triée par date). Pourriez-vous me donner l'exemple de la fonction First/Last en ADODB VBA ? Merci beaucoup !
  13. Microsoft 365 VBA: Modifier le signe selon une condition dans adodb

    Bonjour, Dans ma requête VBA je récupère le mt_rac_brut. Si cette donnée est négative je voudrais l'afficher sans signe "-": if mt_rac_brut >0 then mt_rac_brut=mt_rac_brut; if mt_rac_brut<0 then mt_rac_brut=-mt_rac_brut. Je voudrais savoir comment on peut ajouter cette condition dans le code...
  14. XL 2019 Deux ComboBox sur une feuille

    Bonjour, Je viens de créer deux ComboBox qui affichent les listes déroulantes. Pour afficher ces listes j'ai deux requête ADODB en sql. Avec juste un ComboBox le temps de traitement est correcte. En ajoutant le deuxième ComboBox j'ai augmenté le temps d'attente à l'ouverture du fichier ...
  15. XL 2019 VBA : Erreur sur GROUP BY

    Bonjour, Je reçois une erreur : "ORA-00979 : not a group by expression." Je ne comprends pas pourquoi car j'avais sélectionné les champs du GROUP BY dans SELECT. Voici mon code : RECSET2.Open " select dossier.NO_POLICE, ev1.D_EFFET, ev1.ID_FAMILLE_PORTEF, ev1.ID_PORTEFEUILLE...
  16. XL 2019 Erreur sur sum fonction

    Bonjour, Je reçois une erreur ORA-00937 not a single-group group function. Je ne comprends pas pourquoi la fonction sum ne marche pas. Merci pour votre aide. Voici le code : RECSET2.Open " select distinct dossier.NO_POLICE, ev1.D_EFFET, ev1.ID_FAMILLE_PORTEF, ev1.ID_PORTEFEUILLE...
  17. XL 2019 test

    test
  18. XL 2019 VBA ADODB: left join

    Bonjour, Je n'arrive pas à faire la left join dans mon code VBA avec la data db_dossier sousc et db_garantie gar, par exemple. Voici mon code : Public Sub SUPP_D_ATTENTE(NO_POLICE As String) Dim RECSET As New ADODB.Recordset RECSET.Open "select rga.cd_rga as cd_rga from db_dossier...
  19. XL 2019 ADODB Concaténation des variables

    Bonjour, Je voudrais concaténer les variables dans ma clé. J'ai des doutes sur la ligne prod.cd_produit & " / " & strQ &" = " & proto.cd_protocole ". En faite, dans la colonne cd_produit j'ai des valeurs caractères comme T345, la variable strQ est aussi en caractères. En concaténant ces...
  20. Microsoft 365 Erreur Command not properly ended

    Bonjour, Je n'arrive pas à trouver pourquoi je reçois l'erreur Command not properly ended. Mon code est :
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…