[Visual basic] importation vers Access
Résolu/Fermé
shoezman13
Messages postés
15
Date d'inscription
mardi 13 mai 2008
Statut
Membre
Dernière intervention
18 juin 2008
-
17 juin 2008 à 10:28
shoezman13 Messages postés 15 Date d'inscription mardi 13 mai 2008 Statut Membre Dernière intervention 18 juin 2008 - 18 juin 2008 à 10:48
shoezman13 Messages postés 15 Date d'inscription mardi 13 mai 2008 Statut Membre Dernière intervention 18 juin 2008 - 18 juin 2008 à 10:48
A voir également:
- [Visual basic] importation vers Access
- Visual basic download - Télécharger - Langages
- Microsoft 365 basic - Guide
- Microsoft visual c++ runtime - Guide
- Windows 7 vers windows 10 - Guide
- Visual paradigm - Télécharger - Gestion de données
2 réponses
shoezman13
Messages postés
15
Date d'inscription
mardi 13 mai 2008
Statut
Membre
Dernière intervention
18 juin 2008
1
17 juin 2008 à 15:39
17 juin 2008 à 15:39
J'ai réussir a obtenir ce code mais il y a des problèmes là aussi :
Private Sub ImportCSV(sFileCSV As String, sTable As String)
Dim lFileCSV As Long
Dim sLine As String
Dim rsTable As Recordsets
Dim sField As String
Dim n As Integer
Dim m As Long
lFileCSV = FreeFile
Open sFileCSV For Input As #lFileCSV
Set rsTable = CurrenDB.OpenRecordset(sTable, dbOpenTable)
m = 0
Do
Line Input #lFileCSV, sLine
rsTable.AddNew
rsTable.Refresh
For n = 1 To Len(sLine)
If Mid(sLine, n, 1) <> ";" Then
sField = sField & Mid(sLine, n, 1)
Else
rsTable(m) = sField
sField = ""
m = m + 1
End If
If n = Len(sLine) Then
rsTable(m) = sField
sField = ""
m = 0
End If
Next n
rsTable.Update
Loop Until EOF(lFileCSV)
Close #lFileCSV
rsTable.Close
End Sub
Le AddNew ne passe pas apparement... comment je dois faire pour que ça marche s'il vous plait?
Si quelqu'un s'y connait, je le remercie déjà.
Private Sub ImportCSV(sFileCSV As String, sTable As String)
Dim lFileCSV As Long
Dim sLine As String
Dim rsTable As Recordsets
Dim sField As String
Dim n As Integer
Dim m As Long
lFileCSV = FreeFile
Open sFileCSV For Input As #lFileCSV
Set rsTable = CurrenDB.OpenRecordset(sTable, dbOpenTable)
m = 0
Do
Line Input #lFileCSV, sLine
rsTable.AddNew
rsTable.Refresh
For n = 1 To Len(sLine)
If Mid(sLine, n, 1) <> ";" Then
sField = sField & Mid(sLine, n, 1)
Else
rsTable(m) = sField
sField = ""
m = m + 1
End If
If n = Len(sLine) Then
rsTable(m) = sField
sField = ""
m = 0
End If
Next n
rsTable.Update
Loop Until EOF(lFileCSV)
Close #lFileCSV
rsTable.Close
End Sub
Le AddNew ne passe pas apparement... comment je dois faire pour que ça marche s'il vous plait?
Si quelqu'un s'y connait, je le remercie déjà.
shoezman13
Messages postés
15
Date d'inscription
mardi 13 mai 2008
Statut
Membre
Dernière intervention
18 juin 2008
1
18 juin 2008 à 10:48
18 juin 2008 à 10:48
Finalement j'ai utilisé cette ligne
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel5, "nomtable", Chemin_Fichier, True, nomfeuille
et ça marche bien, voila si quelqu'un avait le meme probleme (le programme va chercher directement une feuille excel.)
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel5, "nomtable", Chemin_Fichier, True, nomfeuille
et ça marche bien, voila si quelqu'un avait le meme probleme (le programme va chercher directement une feuille excel.)
