recuperer requete

[guima1642]

bonjour,

Je ne sais pas comment récupérer le résultat de cette requete dans la cellule N2

    Set myConn = CreateObject("ADODB.Connection")
    Set myCommand = CreateObject("ADODB.Command")
    
    myConn.Open = "Provider=MSDAORA.1;Password=titi;User ID=toto;Data Source=pivoine;Persist Security Info=True"
    
    strsql = "select max(code)+1 from CTRTQ_CONTRAT"
    
    Set myCommand.ActiveConnection = myConn

    myCommand.CommandText = strsql

    Set oRs = myCommand.Execute
    
 

    myConn.Close

d'avance merci

 

[tototiti2008]

Re : recuperer requete

Bonjour guima,

peut-être :

ActiveSheet.Range("N2").CopyFromRecordset oRs

 

[guima1642]

Re : recuperer requete

merci

C'est tout a fait ça