Discussion :

[oarnold]

Bonjour,


Mon message initial n'étant de l'avis de tous pas trés compréhensible, en voici la reformulation.

Le fichier en pièce jointe comporte un extrait d'une table que je dois exploiter et le résultat auquel je souhaite aboutir.

Merci pour votre aide

[random]

a l'attention de starec


pourrais tu reéditer une dizaine de fois ce message pour plus de lisibilité en le traduisant si possible (à moins que ce ne soit tes corrections qu'il l'ait rendu inintelligible)

[oarnold]

J'ai modifié le message initial pour plus de clarté.

[random]

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
 
Sub majcible(source As String, cible As String)
Dim mabase As DAO.Database
Dim s1 As DAO.Recordset
Dim s2 As DAO.Recordset
Dim v1 As String
Dim v2 As String
Dim v3 As String
Dim v4 As String
Dim v5 As String
Set mabase = CurrentDb()
Set s1 = mabase.OpenRecordset(source)
Set s2 = mabase.OpenRecordset(cible)
s1.MoveFirst
v1 = s1("c1")
v2 = s1("c2")
v3 = s1("c3")
v4 = s1("c4")
v5 = s1("c5")
s1.MoveNext
Do Until s1.EOF
If s1("c1") = "" Or IsNull(s1("c1")) Then
s2.AddNew
s2.Update
s1.MoveNext
v1 = s1("c1")
v2 = s1("c2")
v3 = s1("c3")
v4 = s1("c4")
v5 = s1("c5")
Else
s2.AddNew
s2("c1") = v1
s2("c2") = v2
s2("c3") = v3
s2("c4") = v4
s2("c5") = v5
s2("c6") = s1("c1")
s2("c7") = s1("c2")
s2("c8") = s1("c3")
s2("c9") = s1("c4")
s2.Update
End If
s1.MoveNext
Loop
End Sub

[oarnold]

Bonjour

Tout d'abord, merci beaucoup pour ce bout de code.
Si je le comprends à peu près à la lecture, j'ai quelques soucis de mise en oeuvre.

est-ce que je dois remplacer les termes "source" et "cible" par les noms de table (j'ai essayé mais je finis toujours sur un message d'erreur et même si je ne change rien)

En clair, peux-tu m'expliquer comment intégrer cette procédure dans ma base ?

Merci d'avance pour ta compréhension (Je ne suis pas un grand spécialiste !)

[random]

source et cible sont des paramètres qu'il convient d'adresser lors le l'appel

cela donne call majcible( "nom de la table source", "nom de la table cible")

c'est quoi le message d'erreur ?

[oarnold]

Le message d'erreur qui m'est renvoyé est relatif à la ligne "Dim mabase As DAO.Database". Le message est "Erreur de compilation: Type défini par l'utilisateur non défini"

C'est grave docteur ?

[random]

pas trop
outils référence cocher la reference dao

[oarnold]

Merci beaucoup ça fonctionne super bien !

C'est tout simplement impressionnant (Ma table fait dans les 130 000 lignes par jours et ça tourne en à peine 40 secondes)

Encore merci