1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Dim Tab() As String
Dim Dat() As String
Do While Not objRecordset.EOF
Tab = Split(Replace(objRecordset!LeChamp,"Dates: ",VbNullString), vbcrlf)
For i = 0 to ubound(tab)
objAutreRecordset.AddNew
Dat = Split(Trim(Replace(Tab(i),"du ",VbNullString)), " au ")
For j = 0 to 1
objAutreRecordset.AddNew
objAutreRecordset!Champ1 = objRecordset!Champ1
objAutreRecordset!Champ2 = objRecordset!Champ2
objAutreRecordset!Champn = objRecordset!Champn
objAutreRecordset!ChampDebut = Dat(0)
objAutreRecordset!ChampFin = Dat(1)
objAutreRecordset.Update
Next j
next i
objRecordset.MoveNext
Loop |
Partager