Discussion :

[m0ul3sh0t]

Bonjour,

j'aurais besoin de conseil quant au transfert d'information entre Excel et Access. Après quelques tests, le code suivant me permet de modifier le contenu d'une cellule ou de récupérer le contenu:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
    Dim xlApp As Excel.Application
    Dim xlSheet As Excel.Worksheet
    Dim xlBook As Excel.Workbook
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\Users\XXX\Documents\test1.xls")
 
    Set xlSheet = xlBook.Worksheets("Feuil1")
    MsgBox xlSheet.Cells(6, 1)
    xlApp.Quit
    Set xlSheet = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing

Malgré que ceci fonctionne, je m'étonne un peu de la "simplicité" d'execution de l'échange de données.
Est-ce moi qui me fait des films et qui ait fait un code horrible, ou est-il en effet possible de fonctionner comme ceci? Existe-t-il une autre façon de procéder?

[SSJconsult]

Je pense qu'il n'y a aucune inquietude a avoir, c'est en effet aussi "elementaire" que ca...

[m0ul3sh0t]

Merci pour la petite confirmation