Discussion :

[elasfer]

malgré j'ai utiliser l'outil Data me donne ce message:"could'nt find instalable ISIAM"
est ce qu'il y a d'autre façon pour ouvrir et ajouter des enregistrement à un fichier excel

merci beaucoup

[_developpeur_]

Pour ouvrir :

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 Object
    Dim mySheet As Object
 
    Set xlApp = CreateObject("excel.application")
    Set mySheet = xlApp.Workbooks.Open("chemin\nomfichier.xls") ' Définit le fichier EXCEL à ouvrir
 
    xlApp.Visible = True
    mySheet.Close
 
    xlApp.Quit
    Set xlApp = Nothing
    Set mySheet = Nothing

Pour faire des manhip dans le fichier excel tu peux regarder ici:

http://access.developpez.com/faq/?pa...ice#PilotExcel