Discussion :

[dellalyoussef]

Bonjour,

est ce que si possible d'importer des information vertical d'une fichier texte sur une table Access horizontale:

voila les deux table:



et le table Access comme ce de suite:

Palette	Product Code	Qty	Label
P023	MX65EL4C0117189	70	0000015744
P023	MX65EL4C0117189	70	0000015745
P008	MX65D06C0017186	35	0000019348
P008	MX65D06C0017186	35	0000019349

Sachant que le N° de palette n'était que a chaque début des articles intégrer dans cette palette.

Merci d'avance

[ClaudeLELOUP]

Bonjour,

Bien sûr que c'est possible !

La 1^re chose : importer ou lier le fichier texte dans la base de données Access en te servant de l'assistant. La table « REC » n'aura qu'une colonne appelée « Champ1 ».

Ensuite un peu de VBA pour lire chaque enregistrement de REC pour reconstituer les 4 données et, à chaque rupture, ajouter un enregistrement dans la table cible.

[dellalyoussef]

Bonjour,

J'ai un peut former sur VBA, peut tu nous aider comment on peut créé ce code?

Salutations

dellal

[ClaudeLELOUP]

OK, je teste.

[ClaudeLELOUP]

Voici.

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
Public Sub AlimenterTable()
  Dim oRst As Recordset
  Dim sPalette As String
  Dim sProductCode As String
  Dim lQty As Long
  Dim sLabel As String
  Dim sSql As String
  'Lire la table REC
  Set oRst = CurrentDb.OpenRecordset("REC")
  oRst.MoveFirst
  Do While Not oRst.EOF
    'Controle de rupture sur la palette
    If oRst(1) Like "P*" Then
        sPalette = oRst(1)
        oRst.MoveNext
    End If
    sProductCode = oRst(1)
    oRst.MoveNext
    lQty = oRst(1)
    oRst.MoveNext
    sLabel = Format(oRst(1), "0000000000")
    sSql = "INSERT INTO LaTable ( Palette, ProductCode, QTy, Label ) " _
            & "SELECT """ & sPalette & """ AS Expr1, " _
            & """" & sProductCode & """ AS Expr2, " _
            & 99 & " AS Expr3, " _
            & """" & sLabel & """ AS Expr4;"
    DoCmd.SetWarnings False
    DoCmd.RunSQL sSql
    DoCmd.SetWarnings True
    oRst.MoveNext
  Loop
sortie:
  oRst.Close
  Set oRst = Nothing
End Sub

[dellalyoussef]

Merci de votre effort ClaudeLELOUP , mais le module ne fonction pas correctement:



d'autre part il ce peut que :

les [qty] peut être changer de 35
et le [Product code] peut être pas commencer par "MX"

Salutations

dellal

[Invité]

Bonsoir,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
FICHIER ="c:\REC.txt"
Open FICHIER For Input As #1
 t =split(trim( Input(LOF(1), #1)),vbcrlf)
Close #1
 
Set rs =CurrentDb.openrecordset("select * from tableDestination")
For i=0 to ubound(t) step 3
Rs.addnew 
Rs(0)=t(i)
Rs(1)=t(i +1)
Rs(2)=t(i+2)
Rs.update
Next

[dellalyoussef]

C'est résolu

Merci a tous

[Invité]

Bonjour,

Tu peux pas demander de l'aide et finir par merci c'était cool!

Donnes ta solution pour le internautes qui pourraient avoir le même problème!

[dellalyoussef]

Bonjour M.dysorthographie

La résolution a été émis par M.ClaudeLELOUP qui me dirige depuis l'émission de ce poste.

il n'est a rien a caché tous les question est réponses sont dans cette discussion, est aussi la base de donner de test.

OK, j'ai compris : c'est ta procédure d'import qui n'est pas bonne (Public Sub ImportExcelSpreadsheet) : le modèle n'est pas bon, la longueur du champ1 est trop courte !

Je l'ai corrigée (longueur du champ1 à 255).

Saluations