Microsoft 365 VBA : erreur Atomation

[VBA_dev_Anne_Marie]

Bonjour,

Quand je lance mon code VBA, je reçois une erreur d'automation :

Pourriez-vous m'aider, s'il vous plaît ? J'ai vérifié plusieurs fois mon code, je ne trouve pas d'erreur :

Private Sub Liste_UT()
CONTRAT_VALID = False

    Dim RECSET As New ADODB.Recordset
    Call CONNEXION_PEGASE("tets", "xx", "yy")
    RECSET.Open "select rga.CD_RGA as UT_RGA, rga.LB_LONG as LB_UT from  DB_RGA rga, DB_DOSSIER sousc, DB_CTRAT_SUPPORT db_ctrat," & _
             "DB_PROTOCOLE  proto, DB_TIERS  tiers1," & _
             "DB_PERSONNE  personne1," & _
             "DB_PORTEFEUILLE  portef, DB_TIERS  tiers2, DB_PERSONNE  personne2," & _
             "DB_TIERS tiers3, DB_PERSONNE personne3" & _
             "where personne2.S_RAISONSOC='UBS (FRANCE) S.A.' and personne3.S_RAISONSOC='AMPLEGEST'and sousc.CD_DOSSIER in ('CHOP','CHOC') and sousc.LP_ETAT_DOSS not in ('ANNUL','A30','CLOSE')" & _
             "and sousc.IS_DOSSIER=db_ctrat.IS_DOSSIER" & _
             "and  sousc.is_protocole=proto.is_protocole" & _
             "and  sousc.is_tiers=tiers1.is_tiers" & _
             "and  tiers1.is_personne=personne1.is_personne" & _
             "and  (db_ctrat.ID_FAMILLE_PORTEF||' '||db_ctrat.ID_PORTEFEUILLE)=(portef.ID_FAMILLE_PORTEF||' '||portef.ID_PORTEFEUILLE)" & _
             "and  portef.is_tiers_depositaire=tiers2.IS_TIERS" & _
             "and  tiers2.is_personne=personne2.IS_PERSONNE" & _
             "and  sousc.IS_TIERS=tiers3.IS_TIERS" & _
             "and tiers3.is_personne=personne3.is_personne" & _
             "and db_ctrat.IS_RGA=rga.IS_RGA", cnn_Pegase, adOpenDynamic, adLockBatchOptimistic
  
    
    While Not RECSET.EOF
    Worksheets(4).Liste_UT_RGA.AddItem RECSET!UT_RGA
    Worksheets(4).Liste_LB_UT.AddItem RECSET!LB_UT
    RECSET.MoveNext
    Wend
    RECSET.Close
    Call DECONNEXION_PEGASE
End Sub

Merci beaucoup !

 

[fanch55]

Bonsoir,
prenez l'habitude de toujours commencer une continuation texte par un blanc, cela vous évitera de faire des jointures de chaines incorrecte lors de la concaténation ... 😁

 

[VBA_dev_Anne_Marie]

Bonsoir,
prenez l'habitude de toujours commencer une continuation texte par un blanc, cela vous évitera de faire des jointures de chaines incorrecte lors de la concaténation ... 😁

Merci, Fanch55
Si j’ai bien compris, je dois écrire « and », c’est-à-dire mettre des espaces devant «and» ?

 

[fanch55]

Bonjour,
Oui, pour tous les mots clés du Sql : and, where dans votre cas.
Un espace en fin de ligne avant fermeture de la chaine marche aussi bien qu'en début,
mais j'ai toujours pris l'habitude de le mettre en début car le plus souvent, on ne voit pas la fin à l'écran ... 😎

 

[VBA_dev_Anne_Marie]

Bonjour,
Oui, pour tous les mots clés du Sql : and, where dans votre cas.
Un espace en fin de ligne avant fermeture de la chaine marche aussi bien qu'en début,
mais j'ai toujours pris l'habitude de le mettre en début car le plus souvent, on ne voit pas la fin à l'écran ... 😎

Merci beaucoup Fanch55 ! Effectivement, je n'ai plus d'erreur ! C'est top !