Discussion :

[jaromyr]

Bonjour à tous,
il a été construit une macro servant à extraire des informations précises provenant d'image Tif. Elle est opérationnelle et fonctionne bien.
Cependant, j'aimerai intégrer ces informationsdans des champs spécifique (3) d'un table access par l'intermédiaire d'excell et une macro.

J'ai lu sur le sujet qu'il était possible avec Query, ADO, DAO, SQL mais je trouve relative complexe. J'aimerai votre aide.

Comment dois je proceder, le plus simplement possible car étant débutant..expliquer moi étapes par étapes.

voici la macro en question:
http://www.cijoint.fr/cij81785804834507.zip

Le fichier zip est à désipper dans C:\ et contient
-la macro "macro4" avec deux 3 feuilles
-deux images tif
-une base access

J'ai récupérer cet exemple, qu'en pensez vous ..?

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
47
48
49
50
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")
 
‘ (1)
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
 
‘(2) 
'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 :
 
‘(3)
'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
‘(4)
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 ...
‘(5) 
 
'requète SQL (avec en paramètre la ligne i et le numéro de la colonne comme précisé au-dessus)
‘(6)
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

Merci pour l'ensemble de vos réponses.

Ji

[Singular]

Le code que tu présentes en exemple est conçu pour s'exécuter à partir d'Access et non à partir d'Excel.

[jaromyr]

Bonjour,
Merci à vous de me répondre.. d'autres solutions se présentent elles à moi ??

Cordialement,

Ji

[SilkyRoad]

bonjour


Comment ajouter un enregistrement dans une table Access?


bon après midi
michel

[jaromyr]

ReBonjour,
Merci pour vos réponses rapides et claires.

J'ai trouvé de code qui j'ai adapté à ce que je souhaitais... mais il semblerait que je ne sache pas le faire fonctionner.. J'ai l'erreur
"Erreur de compilation : Type défini par l'utilisateur non défini".

Voici le code en question:

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
Dim ObjAcc As Access.Application
Set ObjAcc = CreateObject("Access.Application")
ObjAcc.OpenCurrentDatabase "S:\Cochlée nov 2007\bdd01_meb_01122007.mdb"
ObjAcc.UserControl = True
AppActivate "Microsoft Access"
CurrentDb.Execute "delete from [Images]"
Workbooks("ClasseurN").Activate
Do While Sheets("Feuil1").Range("C2").Offset(i, 0) <> ""
CurrentDb.Execute "Insert into [Images](Paramètres)Values('" &
Sheets("Feuil1").Range("C2").Offset(i, 0).Value & "');"
i = i + 1
Loop
ObjAcc.CloseCurrentDatabase
ObjAcc.UserControl = False
ObjAcc.Application.Quit

Merci par avance de vos aides,

Ji

[Singular]

Es-tu sur un Mac? Sinon, ton AppActivate n'est pas utilisable.