Discussion :

[Apfwl87]

Bonjour le Forum,
J'ai créé dans Access une table qui contient des informations sur des clients. Chaque lundi je reçois une liste .csv qui doit venir rallonger cette table. Je peux le faire très simplement au niveau de la table mais j'aimerais toutefois savoir s'il serait possible de créer un formulaire avec peut-être un bouton et en cliquant dessus ça irait chercher les données du nouveau fichier .csv et ça ajouterait ces nouvelles données dans la table existante.

Je suis désolée je suis complètement novice en ce qui concerne Access

Merci d'avance pour votre réponse

[User]

Bonjour,

Il va vous falloir tout d'abord créer une spécification d'importation :

L'idée c'est d'importer une première fois le csv manuellement, en enregistrant les spécifications d'importation. La table d'importation pourrait s'appeler "T_Import" et la spécification se nommer "ImportSpecs", la commande à utiliser ensuite pour mettre à jour cette table :

Code :

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

DoCmd.TransferText acImportDelim, "ImportSpecs", "T_Import", chemin, True

Le code complet :

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
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub CmdImportCSV_Click()
Dim fd As Object
 
     ' Créer un objet FileDialog
     Set fd = Application.FileDialog(3)
 
     ' Ne pas autoriser la sélection multiple
     fd.AllowMultiSelect = False
 
     ' Affichage d'un titre particulier dans la boite de dialogue :
     fd.Title = "Sélectionnez un fichier CSV..."
     ' Effacement de tous les filtres de fichiers éventuels (Extensions) :
     fd.Filters.Clear
     ' Application d'un filtre particulier (On pourrait ajouter d'autres Add en dessous) :
     fd.Filters.Add "Fichiers CSV", "*.*", 1
 
     ' Présélectionner le 2ème type de fichier (images)
     'fd.FilterIndex = 2
 
     ' Afficher la boîte de dialogue
        If fd.Show() Then
         'MsgBox "Vous avez sélectionné le fichier : " _
         & vbCrLf & fd.SelectedItems(1), vbInformation
          chemin = fd.SelectedItems(1)
 
          DoCmd.TransferText acImportDelim, "ImportSpecs", "T_Import", chemin, True
 
         End If
 
     Set fd = Nothing
 
End Sub

Cdlt,

[Apfwl87]

Bonjour User
Merci pour votre réponse. Il va falloir que je révise mon Access car là je suis un peu perdue. J'ai voulu créer une nouvelle table avec la spécification mais au moment d'enregistrer Access me dit que la spécification d'importation a été modifiée, est-ce que je veux enregistrer les changements et je réponds oui. Ensuite Access me dit que la clé de recherche n'a été trouvée dans aucun enregistrement. et donc je ne peux pas enregistrer ma nouvelle table.

Je crois que je n'ai pas le niveau pour m'attaquer à cela et il faut que je prenne quelques cours !

Merci pour votre aide

Cordialement

[User]

Pas le niveau, ça m'étonnerait, il faut surtout de la persévérance