Imporation de excel vers access parametrée

**k_pone** · 27/06/2007, 10h49

Bonjours à tous

J'ai lu differente doc pour creer une importation parametrée (ex: http://access.developpez.com/faq/?pa...l#ImpFichExcel) mais je n'ai rien trouvé.
en fait je voudrai importer dans une table des lignes de feuilles excel (ça j'ai réussi) mais je voudrai pouvoir le faire à partir d'une certaine ligne.

j'utilise cette fonction mais je n'arrive pas à mettre une ligne de départ:

Code :

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

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "table", "chemin d'acces", True, "synthèse" & "!"

"synthèse" & "!" represente la feuille

Pouvez vous m'aider svp.
Merci de votre aide

**mike2302** · 27/06/2007, 11h01

il faut faire une requete SQL

Regarde cette discussion http://www.developpez.net/forums/sho...d.php?t=349821

**k_pone** · 27/06/2007, 11h13

Je te montre se que j'ai deja fait :

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
Dim fs, f, f1, fc, s, i
Dim lieu
Dim z As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("Z:\test normalisé\aide\dde") 'saisir le dossier comportant tous les classeurs excel des clients
Set fc = f.Files
For Each f1 In fc
   s = f1.Name
   lieu = f & "\" & s 'lieu= chemin d'acces+ le nom du classeur à importer
    'importation grace  à la concaténation du chemin et du nom du classeur
Dim appExcel As Excel.Application
Dim classeur As Excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set classeur = Excel.Workbooks.Open(lieu)
z = appExcel.Sheets("Parametres contrôle poids").Range("Y11").Value  'voir une erreur de temps en temps lors de l'execution
'actualisation des indices dans la feuilles excel
 appExcel.Sheets("Parametres contrôle poids").Range("Y11").Value = appExcel.Sheets("Parametres contrôle poids").Range("Y19").Value
classeur.Close
appExcel.Quit
 
Set classeur = Nothing
Set appExcel = Nothing
 
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "SAISIE", lieu, True, "synthèse" & "!",
Next

En fait je répertorie tous les fichier xls de mon dossier , je récupere le nom et le chemin d'acces et j'importe à partir de la ligne Y11 pour chaque classeurs xls.

tu crois que je peu utiliser se code pour pouvoir faire mon importation???

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
Dim fs, f, f1, fc, s, i
Dim lieu
Dim z As Integer
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.getfolder("Z:\test normalisé\aide\dde") 'saisir le dossier comportant tous les classeurs excel des clients
Set fc = f.Files
For Each f1 In fc
   s = f1.Name
   lieu = f & "\" & s 'lieu= chemin d'acces+ le nom du classeur à importer
    'importation grace  à la concaténation du chemin et du nom du classeur
Dim appExcel As Excel.Application
Dim classeur As Excel.Workbook
Set appExcel = CreateObject("Excel.Application")
Set classeur = Excel.Workbooks.Open(lieu)
z = appExcel.Sheets("Parametres contrôle poids").Range("Y11").Value  'voir une erreur de temps en temps lors de l'execution
'actualisation des indices dans la feuilles excel
 appExcel.Sheets("Parametres contrôle poids").Range("Y11").Value = appExcel.Sheets("Parametres contrôle poids").Range("Y19").Value
classeur.Close
appExcel.Quit
 
Set classeur = Nothing
Set appExcel = Nothing
 
 
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "SAISIE", lieu, True, "synthèse" & "!",
Next

**k_pone** · 27/06/2007, 11h19

je t'ai envoyé le message d'avant car je n'est pas trés bien compris le probleme que vous aviez ou du moins je crois que je voix pas la comparaison avec le mien

**mike2302** · 27/06/2007, 11h23

prend ce code il marche nikel

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
44
45
46
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
 
DoCmd.SetWarnings True
 
End Sub

si tu comprend pas demande moi

**k_pone** · 27/06/2007, 11h30

merci pour ta réponse rapide
mais quesque je mets comme paramettre dans cette ligne?

Code :

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

cSQL = "insert into [table_destination] ( [champ1], [champ2] ) values (" & Chr(34) & oWSht.Cells(i, 13) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 11) & Chr(34) & ")"

Ma premiere ligne de ma feuille et la meme que les entéte de la table donc si j'importe les ligne se mettront automatiquement en place.

mon importation devrait ressambler à ça:

j'importe du classeur "nom du classeur", la feuille "nom de la feuille", les lignes à partir de la ligne n°(z ma variable corespondant à un numero de ligne".

**mike2302** · 27/06/2007, 11h37

en fait table destination c'est la table où tu voudrai qu'il y ait l'importation de tous ce dont tu as besoin (tu l'a appellé table je crois) puis ensuite champs 1 champs 2... ce sont les colonnes que tu veut importer (le nom des colonnes) et ensuite Chr(34) & oWSht.Cells(i, 13) & Chr(34) correspond au numero de la colonne que tu veu importer (exemple si c'est la 1ere colonne sa sera 1 si c la deuxieme colonne sa sera 2....ici c'est la colonne 13)...

**k_pone** · 27/06/2007, 11h41

je ne peut pas mettre aucun paramètre car mes colonnes sont identique dans ma table et dans ma feuille??

un autre petit truc , lorsque tu mets sa:

Code :

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

While oWSht.Range("I" & i).Value <> ""

la boucle s'arrete lorsqu'il rencontre une case vide ou une ligne vide??

**mike2302** · 27/06/2007, 11h53

lorsque la case est vide...

Sinon tu insere un create table pour directement créer tes champs et ensuite tu insere les info que tu veu

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
DoCmd.RunSQL "CREATE TABLE nom table (champs attributs champs attributs....);"
 
'tant que la cellule n'est pas vide
While nomtable.Range("A" & i).Value <> ""
 
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
 
'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
 
DoCmd.SetWarnings True
 
End Sub

**k_pone** · 27/06/2007, 12h26

ceci me permet de verifier si la cellule A de la ligne i est vide ou non

Code :

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

While nomtable.Range("A" & i).Value <> ""

c'est sa??

voila ma table et ma feuille excel.
Esque j'ai besoin de spécifier les colonnes?
et comment je modifie cette ligne alors??

Code :

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

cSQL = "insert into [SAISIE] ( [champ1], [champ2] ) values (" & Chr(34) & oWSht.Cells(i, 13) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 11) & Chr(34) & ")"

**mike2302** · 27/06/2007, 13h09

tu veu importer tous les champs de ta feuille synthese dans une table? tu devai pas commencer par un certaine ligne?

**k_pone** · 27/06/2007, 15h47

si car dans une autre feuille du classeur je met dans une cellule un nombre consernant la derniere ligne de la feuille synthèse qui a etait importé, et je voudrai pouvoir importer à partir de ce numero; tu voix le truc?

alors que dois je mettre comme parametre dans cette ligne???

Code :

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

cSQL = "insert into [SAISIE] ( [champ1], [champ2] ) values (" & Chr(34) & oWSht.Cells(i, 13) & Chr(34) & ", " & Chr(34) & oWSht.Cells(i, 11) & Chr(34) & ")"

Imporation de excel vers access parametrée

VBA Access

Discussions similaires

Partager

Partager