Concatené un champs

[Résolu]
Signaler
Messages postés
18
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
14 avril 2009
-
Messages postés
18
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
14 avril 2009
-
Bonjour à tous
je suis une débutante en programmation VB6.0 et j'ai un probleme que je n'arrive pas à résoudre toute seule !
je fais une importation d'un fichier excel vers une table access, et ça marche. reste un probleme c'est qu'il y a des champs vide dans le classeur et je veux prendre une partie du champ precedent pour la coller sur le champs vide (je ne sais pas si c'est compréhensible) et c'est là ou je me suis perdu !

voila la partie du code qui fais ce que j'ai raconter en haut :

If ClasseurXLS.cells(i, 4) = "" Then     ' Libellé 2
var1 = ClasseurXLS.cells(i, 3) 'Libellé 1



trouve = False
J = Len(var1)
        Do While Not trouve        If Mid(var1, J - 1, 1) " " Then trouve True
        'MsgBox Mid(var1, J - 1, 1)
        J = J - 1
        Loop
var2 = Mid(var1, 1, J - 1)
Rec("Lib1") = Mid(var1, Len(var1) - 1, J - 1)
Rec("Lib2") = var2



Else
Rec("Lib2") = ClasseurXLS.cells(i, 4)
End If
l'erreur que j'ai c'est qu'il inverse les cellules, et ne supprime pas la partie que j'ai prise du 1er champs donc j'ai un double mot !
par exemple :
champs 1 : recu chq
je retrouve
champs 1 : chq
champs 2 : eçu
merci d'avance pour votre interet
Amel

2 réponses

Messages postés
10
Date d'inscription
vendredi 22 février 2002
Statut
Membre
Dernière intervention
1 octobre 2010

tu devrais essayer le fonction split

Sangdorme
Messages postés
18
Date d'inscription
mercredi 5 novembre 2008
Statut
Membre
Dernière intervention
14 avril 2009

ok , je vais le faire


merci