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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
| Private Sub Charger_Click() 'Chargement du fichier referentiel
Dim toto
Dim objet As Object, fichier As Object
Dim chemin As String
Dim ean, designation, Rayon, magasin, txtva
Dim pa, pv As Double
If Me.FichierReferentiel.Value <> "" Then
toto = MsgBox("Voulez vous charger le fichier " & Me.FichierReferentiel & " ?", vbYesNo)
Select Case toto
Case vbYes ' je désire charger le fichier
If Me.AcceptRefActuel.Value = -1 Then ' supprimer tout de la table Treferentiel
'CurrentDb.Execute "delete from TReferenciel" 'je supprimer tout de la table TReferenciel
Set objet = CreateObject("Scripting.FilesystemObject")
chemin = Me.FichierReferentiel.Value ' je repere le chemin
Set fichier = objet.opentextfile(chemin)
'insere dans la table TReferenciel les valeurs du fichier texte
Do While fichier.atendofstream <> True ' si je ne suis pas a la fin du fichier
ligne = fichier.readline ' lit ligne par ligne readaline = lit toute les ligne
ean = Mid(ligne, 1, 13)
designation = Mid(ligne, 15, 58)
Rayon = Mid(ligne, 74, 3)
magasin = Mid(ligne, 78, 3)
pa = Mid(ligne, 83, 10)
pa = Format(pa, "##,##0.00")
pv = Mid(ligne, 93, 12)
pv = Format(pv, "##,##0.00")
txtva = Mid(106, 2)
' insersion dans la table
CurrentDb.Execute "insert into TReferenciel " & _
"(Ean,Designation,Rayon,Magasin,PA,PV,id_txtva) " & _
"values ('" & ean & "','" & designation & "','" & Rayon & "','" & magasin & "','" & pa & "','" & pv & "', " & txtva & " )"
Loop
fichier.Close ' je ferme le fichier
ElseIf Me.AcceptRefActuel.Value = 0 Then
'*****MAJ*****
Set objet = CreateObject("Scripting.FilesystemObject")
Set fichier = objet.opentextfile(chemin)
Do While fichier.atendofstream <> True
ligne = fichier.readline
ean = Mid(ligne, 1, 13)
Set rst = db.OpenRecordset("select * from TReferenciel where rst!ean =" & ean & " ")
If rst.BOF Then ' si mon enregistrement n'existe pas alors
designation = Mid(ligne, 15, 58)
Rayon = Mid(ligne, 74, 3)
magasin = Mid(ligne, 78, 3)
pa = Mid(ligne, 83, 10)
pv = Mid(ligne, 93, 10)
txtva = Mid(106, 2)
bd.Execute "insert into TReferenciel " & _
"(Ean,Designation,Rayon,Magasin,PA,PV,id_txtva) " & _
"values ('" & ean & "','" & designation & "','" & Rayon & "','" & magasin & "'," & pa & "," & pv & ", " & txtva & " )"
End If
Loop
fichier.Close
End If
End Select
Else
MsgBox "Aucun Fichier selectionner", vbExclamation
End If
End Sub |
Partager