Discussion :

[Slici]

Bonjour !

pour les besoins de mon application je dois importer des données contenues dans un fichier excel sur une base ACCESS.

il s'agit d'importer les données de Chiffre d'affaires du mois, pour un client (identifié par un code) et un type de produit.

la table de destination est construite ainsi :
- code client (qui n'est pas l'identifiant car il y a des redondances)
- Raison sociale
- Produit
- les chiffres d'affaires de tous les mois ('2008/01' pour le mois de janvier, '2008/02, etc....., jusqu'a '2009/12' soit 24 colonnes)

mon fichier excel se présente sous la forme :- code client
- Produit
- [ l'intitulé du mois] donc par exemple, si je souhaite importer les données de février 2009, la colonne de mon fichier excel sera '2009/02'


Sur un formulaire, j'ai crée un bouton avec le code suivant :

Code :

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

1
2
3
4
5
6
7
8
Private Sub btImportImportation_Click()
    Dim chemin As String
 
    chemin = "C:\Documents and Settings\Moi\Bureau\TESTS\importclient.xls"
 
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Biblio", chemin, True
 
End Sub

Malheureusement, au lieu d'actualiser les champs de la table avec les données de février, Access me crée de nouveaux enregistrements à la fin de ma table...

Comment faire pour lui indiquer de faire une mise à jour des champs et non une création?


Question bonus !

Comment faire pour, lors d'un clic sur un bouton, qu'une fenetre s'ouvre permettant à l'utilisateur d'aller chercher son fichier? (une fenetre explorateur en gros)

[keks42]

Si ton application est en vba access, essaye avec la fonction DoCmd.TransferText

[Slici]

il me dit que le fichier source est en lecture seule, pourtant ce n'est pas le cas dans les propriétes du fichier excel....

[Slici]

pour l'instant j'ai trouvé comme solution d'importer une table correspondant au fichier excel.

Code :

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

    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Import", chemin, True

donc mon fichier est importer dans la table... 'Import' ^^

cette table possède les champs code client, libellé du produit et l'intitulé du mois.

ensuite je fais un UPDATE de ma table Biblio avec cette nouvelle table, ce qui à pour effet d'inserer (ou d'écraser) les données présente dans la table biblio, au champ du mois correspondant a celui de la table Import.

enfin je supprime la table 'Import' en faisant un DROP TABLE.


je trouve cette solution un peu bancale...


voici donc le code de ma fonction :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub importation()
 
    Dim chemin As String
 
    chemin = "C:\Documents and Settings\moi\Bureau\importclient.xls"
 
    Annee = Me.lstImportChxAn.Value
    Me.RecupMois.RowSource = "SELECT code FROM Mois where libelle like '" & Me.lstImportChxMois.Value & "' "
    Mois = Me.RecupMois.ItemData(0)
 
    libmois = Annee & "/" & Mois
 
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Import", chemin, True
 
    DoCmd.RunSQL ("UPDATE Biblio INNER JOIN Import ON (Biblio.Pdt = Import.Pdt) AND (Biblio.Coclico = Import.Coclico) SET Biblio.[" & libmois & "] = [Import].[" & libmois & "];")
 
    DoCmd.RunSQL ("DROP TABLE Import;")
 
    MsgBox "L'importation s'est terminée avec succès !", vbInformation, "Importation terminée"
End Sub

[scorpion1611]

Question bonus !

Comment faire pour, lors d'un clic sur un bouton, qu'une fenetre s'ouvre permettant à l'utilisateur d'aller chercher son fichier? (une fenetre explorateur en gros)

Ceci peut t'aider

http://access.developpez.com/faq/?pa...#AffBoitDialog