Discussion :

[Baya44]

Bonjour, j'ai un petit probleme je souhaite modifié une donnée apres son importation (l'importation marche nikel) mais le fichier a des erreurs, j'ai donc créer une table de correspondance avec les erreurs (15-20 erreurs) cela marche bien avec ce type de données "024052A174" qui est converti en ca: "240685959", mais avec ca "BGKEJ1S040089/FE05069" que je souhaite convertir en ca: "FE05069" mais cela ne marche pas...
J'ai essayé de convertir en hexa en bin ...
donc voila si qq pouvait m'indiqué la fonction a utilisé ou comment enlever tout se qu il y a avant le "/"

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 Correspondance()
Dim Correspondance As DAO.Recordset
Dim mbd As DAO.Database
Dim ft As DAO.Recordset
Set mbd = CurrentDb()
Set Correspondance = mbd.OpenRecordset("Correspondance")
Set ft = mbd.OpenRecordset("ft")
 
ft.MoveFirst
Do Until ft.EOF
    Correspondance.MoveFirst
    ft.MoveNext
    Do Until Correspondance.EOF Or ft.EOF
    If Hex(CDbl(Val(ft("libelle_structure_niveau3")))) = Hex(CDbl(Val(Correspondance("Sous_ligne")))) Then
        ft.Edit
        ft("libelle_structure_niveau3") = Correspondance("Ligne_principale")
        ft.Update
        ft.MoveNext
        Exit Do
        Else
        Correspondance.MoveNext
    End If
    Loop
Loop
Correspondance.Close
ft.Close
End Sub

Merci

[Oleff]

Bonjour,
Regarde du côté de la fonction right() couplée à instr()

Code :

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

taString = right(taString, Len(taString)-instr(1,taString,"/"))

[Baya44]

Je vais essayé de ce pas,si pb je reviens le signalé
Merci