Microsoft 365 Valeur d'une liste dans la requête ADODB

laurent950 à dit:

Re,

ici Dim TabRes() As String
Paracerque Public Sub GET_GROUPE_GESTION_CIBLE(ByRef strQ As String)

VB:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    If Not Intersect(Target, Range("C6")) Is Nothing Then
        Call CLICK_BTN_INFOS_CONTRAT
    End If

    Dim TabRes() As String
    If Target.Value = [E15].Value Then
        ReDim TabRes(0 To UBound(Split([Target], ",")))
        For i = LBound(TabRes) To UBound(TabRes)
            TabRes(i) = Split(Split([Target], ",")(i), "-")(1)
        Next i
    End If
    MsgBox TabRes(0)
    GET_GROUPE_GESTION_CIBLE TabRes(0)
End Sub

Public Sub GET_GROUPE_GESTION_CIBLE(ByRef strQ As String)
    Dim cnn_Pegase As ADODB.Connection 'Connexion Pegase
    Dim RECSET As New ADODB.Recordset
        Call CONNEXION_PEG("select", "test", "PEG")
    RECSET.Open "select serv.lb_long||' (AT: '||pers.s_nom||' '||pers.s_prenom||')' as groupecible from db_tiers as ti, dr_collaborateur_tiers cp,db_collaborateur col,db_personne pers,dr_service_collaborateur sc,db_service_compagnie serv" & _
                " where ti.CD_TIERS='" & strQ & "' ti.is_tiers=cp.is_tiers and cp.is_collaborateur = col.is_collaborateur and col.is_personne = pers.is_personne and col.is_collaborateur = sc.is_collaborateur and sc.is_service_compagnie = serv.is_service_compagnie", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic
    If Not RECSET.EOF Then
        Worksheets("1 - Feuille de Suivi Commercial").Range("GET_GROUPE_GESTION_CIBLE").Value = RECSET.Fields("groupecible").Value
    Else
        Worksheets("1 - Feuille de Suivi Commercial").Range("GET_GROUPE_GESTION_CIBLE").Value = "Inconnu"
    End If
    RECSET.Close
    Call DECONNEXION_PEG
End Sub

Cliquez pour agrandir...

MarieParis à dit:

Merci ! C'est beaucoup mieux maintenant! 🙂 Par contre j'ai une erreur de connexion.Regarde la pièce jointe 1091712

Cliquez pour agrandir...

laurent950 à dit:

Re,
Il y a une première partie qui est bien, pour les connexion à votre base je ne sais pas.

Cdt

Cliquez pour agrandir...

laurent950 à dit:

Re,
Target c'est une variable Objet de Type Range (La valeur ou plage de valeur renvoyé)
On peut stocker le résultat dans une variable tableau comme l'exemple que j'ai posté

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TabRes() As Variant
If Target.Value = [E15].Value Then
    ReDim TabRes(0 To UBound(Split([Target], ",")))
        For i = LBound(TabRes) To UBound(TabRes)
            TabRes(i) = Split(Split([Target], ",")(i), "-")(1)
        Next i
End If
MsgBox TabRes(0)
MsgBox TabRes(1)
End Sub

cdt

Cliquez pour agrandir...

GET_GROUPE_GESTION_CIBLE TRIM(TabRes(0))

Cliquez pour agrandir...

Roblochon à dit:

Bonjour,

Essayez TRIM(TabRes(0)) qui supprimera les espaces en début et en fin.



Cordialement

Cliquez pour agrandir...