Importer les données d'un fichier Excel (.xls) dans une table Access

**azertix** · 19/06/2007, 14h22

Alors, pour ceux qui en auront besoin, voici le code [dernière version fonctionnelle], qui permet de copier les plages de cellules voulues d'un fichier Excel vers les champs voulus d'une table Access, en évitant le doublons.

Ce code résume la discussion que j'ai eue avec totofe et présente les dernières avancées auxquelles nous sommes arrivés.
Je vais enlever les chemins de mes fichiers et mettre des noms génériques qui faciliteront la compréhension.

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
33
34
35
36
37
38
39
40
41
42
43
 
Private Sub Commande1_Click()
'Ici l'importation se déclenche en cliquant sur le bouton "Commande1"
'mais on peut aussi mettre ce code à l'ouverture d'un formulaire
Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
 
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("chemin_du_fichier_xls") 'mettez ici le chemin vers votre fichier Excel
Set oWSht = oWkb.Worksheets("nom_de_la_feuille_concernée_par_limportation") 'mettez ici le nom de la feuille qui contient les données à importer
 
'première ligne ou commence l'import
i = 11
 
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
 
'tant qu'on n'est pas arrivés à la ligne 600 du tableur
While i < 600
'on peut aussi arrêter l'importation lorsque le programme rencontre une case
'vide en remplaçant la ligne du While par :
'While oWSht.Range("I" & i).Value <> ""
 
'condition de remplissage de la table => eviter les doublons
'si l'enregistrement existe déjà dans la table destination,
'on passe à la ligne suivante sans l'importer
If DCount("*", "[nom_da_la_table_destination]", "[nom_du_champ_destination_qui_ne_doit_pas_avoir_de_doublons] LIKE '" & oWSht.Cells(i, 9) & "*'") = 0 Then
'le numéro 9 correspond au numéro de la colonne source, tel que : A=1, B=2, C=3 ...
 
'requète SQL (avec en paramètre la ligne i et le numéro de la colonne comme précisé au-dessus)
cSQL = "insert into [table_destination] ( [champ1], [champ2] ) values (" & Chr(34) & oWSht.Cells(i, 13) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 11) & Chr(34) & ")"
'ici, on ne prend que les colonnes M (=13) et K (=11).
 
'exécute la requète
DoCmd.RunSQL cSQL
 
End If
 
'on incrémente la variable i pour passer à la ligne suivante
i = i + 1
 
Wend

Bon, tous les commentaires ne sont là que pour la compréhension du code, mais si vous aviez toutefois des questions, n'hésitez pas

**mike2302** · 19/06/2007, 15h17

bonjour,
Voici mon code :

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
Private Sub C_Click()
Dim oApp As Excel.Application
Dim oWkb As Excel.Workbook
Dim oWSht As Excel.Worksheet
 
Set oApp = CreateObject("excel.application")
Set oWkb = oApp.Workbooks.Open("S:\TECH_PUB_LINES\SERVICE_LINE_INFORM_SYSTEMS\SDNI\2006_a_Usage_Feb_01_Feb_28-stats.xls")
Set oWSht = oWkb.Worksheets("2006_a_Usage_Feb_01_Feb_28-stats")
'premier ligne ou tu commence ton import
i = 2
 
'pour éviter les messages lors de l'ajout des enregistrements
DoCmd.SetWarnings False
 
'tant que la cellule n'est pas vide
While oWSht.Range("A" & i).Value <> ""
 
  cSQL = "insert into [stat] ( [ConfID],[HostEmail],[Duration],[Attendees] ) values (" & Chr(34) & oWSht.Cells(i, 1) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 2) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 3) & Chr(34) & "," & Chr(34) & oWSht.Cells(i, 4) & Chr(34) & " )"
 
'exécute la requète
  DoCmd.RunSQL cSQL
 
 
  i = i + 1
Wend
 
DoCmd.SetWarnings True
 
End Sub

J'ai trouvé une erreur en recopiant le code que totofe a donné à cette ligne:

Code :

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

Set oWSht = oWkb.Worksheets("2006_a_Usage_Feb_01_Feb_28-stats")

Pourtant je ne comprend pas ma feuille de travail se nomme bien "2006_a_Usage_Feb_01_Feb_28-stats"...

Access me donne ce message : "l'indice n'appartient pas à la selection"

Pouvez-vous m'aider svp?
merci d'avance

**totofe** · 19/06/2007, 15h27

le nom de la feuille de ton classeur n'est pas correcte. essay de modifier le nom de la feuille sous excel et dans la fonction.
je vois que le nom de ta feuille porte le même nom que ton fichier excel. j'esper que tu ne confond pas ces deux éléments.

**mike2302** · 19/06/2007, 15h30

non non je fais bien la differenciation entre la feuille et le fichier.Faut il que je change le nom de la feuille? car j'ai une multitude de fichier excel du meme genre dont la feuille porte le meme nom que le fichier (c'est des statistique)

**totofe** · 19/06/2007, 15h34

non jpense pas que avoir le même nom de feuille et de fichier provoque une erreur. Mais essaye tout de même de changer le nom d'une feuille pour tester si tu à toujours la même erreur

**mike2302** · 20/06/2007, 08h36

Bonjour,

C'est bon sa marche trés bien merci totofe.
J'aurai voulu savoir une chose si tu pouvai me donner un conseil ou une idée pour m'éclairer un peu....

En fait sur un formulaire, j'ai fait un bouton parcourir qui me permet d'aller cherché un fichier excel et d'obtenir le chemin (S:\....) dans une zone de texte.
Donc je n'ai pas besoin d'ecrire le nom du chemin dans la partie du code
Set oWkb = oApp.Workbooks.Open(Me.nomchamp) puisque l'adresse se met toute seule dans cette parenthèse.

Par contre, dans la zone
Set oWSht = oWkb.Worksheets("....") il faut que je mette manuellement le nom de la feuille de travail (qui est pour chaque fichier differente).

N'y a t'il pas un moyen de façon à ce que je n'ai pas besoin de taper le nom de la feuille dans la fonction Set oWSht = oWkb.Worksheets(...)?

De plus, sur tous mes fichiers excel il n'y a qu'une seule feuille de travail...
Tu as une idée?

**totofe** · 20/06/2007, 08h46

tu peut appeller ta feuille en donnant un indice a ton classeur.

Code :

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

1
2
 
Set oWSht = oWkb.Worksheets(1)

**mike2302** · 20/06/2007, 08h50

ok merci je vais essayer

**mike2302** · 20/06/2007, 09h14

j'ai donc essayer ce que tu m'a dit mais cela ne fonctionne pas.

**totofe** · 20/06/2007, 09h18

?? étrange avec moi ca fonctionne très bien!
essaye de cet manière

Code :

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

1
2
 
set owsht = oWkb.Worksheets.Item(1)

**mike2302** · 20/06/2007, 09h51

nikel! sa marche impec! merci bcp totofe!!!

Est ce que tu croi que sa serai possible que la table correspondant a la requete (cSQL = "insert into [stat] ( [ConfID],[HostEmail],[Duration],[Attendees] ) values ("...." )" ) puisse se creer toute seule et porter le nom du fichier.

(Car en fait si la table (ici stat) n'existe pas la requete ne fonctionne pas.)

exemple :
J'importe la statistique de juin 2006, la table se creer toute seule et porte automatiquement le nom "juin 2006"

Possible or not possible?

**totofe** · 20/06/2007, 09h58

oui faut juste que tu créer la table avec ses champs

Code :

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

1
2
 
docmd.runsql "CREATE TABLE Nom_de_la_table (Nom_de_colonne1 Type_de_donnée,  Nom_de_colonne2 Type_de_donnée, ...);"

**mike2302** · 20/06/2007, 10h07

ok par exemple a la place du insert into je met un create table comme ceci?

Code :

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

  cSQL = "CREATE TABLE[stat] ( [ConfID as numeric],[HostEmail as string]....

??

**totofe** · 20/06/2007, 10h08

oui puis ensuite si tu veut ajouter tes valeurs dans la table faut que tu fasse un INSERT INTO

**mike2302** · 20/06/2007, 13h42

c'est nikel franchement merci beaucoup totof tout marche c'est genial a bientot

**totofe** · 20/06/2007, 14h23

oki
c'est cool si tout les problemes sont résolus

mais totofe ca s'écrit avec un "e"!!! sinon on va me confondre avec le boxeur lol

**néolition** · 20/06/2007, 14h47

Bonjour a tous

je suis en train de rechercher un moyen pour importer des données de Excel vers Sql*Plus mais je ne trouve pas la solution. je veux faire ça sur sql plus mais on m'a déconseillé, on m'a dis que c'est un outils compliqué. j'ai essayé de manipulé toad ou sql développer et je l'ai trouvé encore plus difficile.

je vous remercie de me répondre le plus rapidement possible

a très bientôt

excusez moi d'avoir poster ma question ici, mais je ne savais pas comment poster une question indépendente et en plus c'est presque la même question

Cordialement

**totofe** · 20/06/2007, 15h06

Ou est le raport avec Access?

lol
non je vois pas commen tu pourai faire.
A moin que, mais suis pas sure aussi. Je croi que SQL*plus permet d'importer des données depuis un fichier texte. si c'est le cas, il te suffirait d'extraire tes données excel dans un fichier texte en utilisant des séparateurs, puis par la suite de les importer dans sql*plus

**néolition** · 20/06/2007, 15h52

salut totofe,

oui effectivement ça n'a pas grand chose a avoir avec access mais comme ça parlé d'importation alors ...

sinon si je fais ça sur fichier texte et après comme je fais pour importer ??? si tu as une idée stp fais moi signe

Merci

A bientot

cordialement

**mike2302** · 21/06/2007, 09h58

sur access je sais que c'est la commande

Code :

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

DoCmd.TransferText acImportDelim, "nom_du_format_d_import", "nom_de_la_table_destination", "c:\monfichier.txt"

aprés sur sql plus je sais pas....
Pose ta question dans le forum concernant le SQL
http://www.developpez.net/forums/forumdisplay.php?f=236

Importer les données d'un fichier Excel (.xls) dans une table Access

Access

Discussions similaires

Partager

Partager