explication fonctions

[Ken Hutchinson]

bonjour,

je cherche a comprendre cette ligne de code...

CurrentDb.OpenRecordset("T_infos_Art", dbOpenDynaset)

c'est issu d'une macro qui lit dans une applis Extra pour envoyer le infos dans Excel. Je cherche à l'adapter pour qu'elle envoie les infos dans Excel.

Je pense que c'est dans cette ligne que se précise la destination des infos...

<merci de votre aide...

 

[RENAUDER]

Re : explication fonctions

Bonjour,
Ce bout de code te mettra peut-être sur la piste

Sub CopyFromRecordset_DAO()
    Dim Db1 As Database
    Dim Rs1 As Recordset
    
    'First, open the database.
    Set Db1 = DBEngine.OpenDatabase(ThisWorkbook.Path & "\SampData.mdb")
    
    'Then, open the recordset. Note in this case, we reference the name of
    'a table, Distributors, that is stored in the Access .mdb file.
    Set Rs1 = Db1.OpenRecordset(Name:="distributors", _
                                Type:=dbOpenDynaset)
    
   
   
    'Then, clear any existing data from the worksheet and copy from Recordset.
    With Worksheets("DAOSheet").Range("A1")
        .CurrentRegion.Clear
        .CopyFromRecordset Rs1
    End With
    
    'Finally, close the database.
    Db1.Close

End Sub

 

[THE CAT 2007]

Re : explication fonctions

Bj,

Ne suis pas spécialiste, mais voici ce que je comprends ( je me trompe peut être ..)

CurrentDb : un objet qui définit la base de donnée en cours

OpenRecordset : ouvrir l'enregistrement

("T_infos_Art", : nom de la table

dbOpenDynaset : type d'ouverture de la table

différents modes d'ouverture de table :
opentable,
opendynaset
openrecordset

 

[Ken Hutchinson]

Re : explication fonctions

Merci ça m'aide à comprendre !!!

Ce que je voudrait c'est ne pas passer par Access et envoyer directement la lecture de cet écran Extra dans une feuille excel...

Merci beaucoup