Discussion :

[alineleleu]

Bonjour,

J'aimerais importer automatiquement et régulièrement les données de la feuille Indicateurs du fichier Excel dans ma table Indicateurs du fichier Access.

En faisant cela, j'aimerais également que les données soient supprimées et remplacées par les nouvelles données du fichier Excel à chaque mise à jour et que dans le champ Mise à jour de la table Access, une date se mette automatiquement à chaque mise à jour de la base.

Merci d'avance!

Aline

[marot_r]

Le processus habituel pour faire cela est :

1. Vider la table temporaire, juste pour etre sur qu'il ne traine rien.
2. Importer les nouvelles donnees de Excel dans la table temporaire. Le passage par une table temporaire permet de s'assurer que les colonnes Excel sont chargee avec le bon type de donnees dans Access. Elle permet aussi une etape de netoyage si necessaire avant de faire le chargement reel.
3. Reperer dans les nouvelles donnees celles qui sont deja dans la base.
4. Supprimer les donnees deja dans la base
5. Importer les nouvelles donnees.
6. Vider la table temporaire.

Tu peux faire cela avec un peu de VBA est quelques requetes.

Pour importer les donnees du Excel regarde DoCmd.TransferSpreadSheet.

En mettant =Now() comme valeur par defaut d'un champ DateTime dans ta table, Access va mettre automatiquement la date et l'heure de creation de l'enregstrement.

A+

[alineleleu]

Bonjour,

J'ai réussi à faire ce que je voulais.

Merci à pour votre aide.

[gabzout]

Bonjour,

J'essaie de faire pareil que alineleleu, seulement je n'arrive pas a efffectuer les taches 3 et 4 (reperer et supprimer les donnees deja presentes dans la base).

Si quelqu'un pouvait m'aider a ce sujet !

[alineleleu]

Bonjour,

Voici ce que j'avais fait:

Code :

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

1
2
3
4
5
6
Private Sub Btn_Exporter_Click()
DoCmd.SetWarnings False
CurrentDb.Execute "Delete From Nom_de_ta_table"
Application.DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Nom_de_ta_table", "Chemin_emplacement_fichier.xls", True, "Nom_de_la_feuille_dans_le_classeur_excel!"
DoCmd.SetWarnings True
End Sub

[gabzout]

ah du coup tu supprimes carrement ta table, sans passer par une table temporaire ?
Parce que le probleme c'est que ma table est liee a d'autres tables, je ne peux donc pas la supprimer !