Alimenter une base de données EXCEL avec des fichiers csv

Bonjour,

Je dois compléter tous les jours une base de données excel (tableau excel) en important un fichier CSV.
J'ai trouvé ce code en faisant des recherches mais l'import du CSV écrase les précédentes données importées.
Comment faire pour que chaque jour, le csv que j'importe se positionne sur la première ligne vide de mon tableau Excel et comment ne pas importer la première ligne du fichier csv?

BASE1 correspond au nom de mon tableau

Merci par avance, car je ne connais vraiment pas VBA et mes heures de recherche ne m'aident pas :(



Sub importCSV()
Dim dialogBox As FileDialog
Set dialogBox = Application.FileDialog(msoFileDialogFilePicker)
Dim selectedFile As String
With dialogBox
.Filters.Add "txt", "*.txt", 1
.AllowMultiSelect = False
If .Show = True Then
selectedFile = .SelectedItems(1)
End If
End With
If selectedFile <> "" Then
Open selectedFile For Input As #1
Dim rowNumber As Long
Dim lineFromFile As String
Dim lineItems As Variant 'array of string
Dim itteration As Integer
rowNumber = 1
lineFromFile = 2
Do Until EOF(1) 'false till end of file is reache then it will turn true
Line Input #1, lineFromFile
lineItems = Split(lineFromFile, ";")
For itteration = 0 To 7
Range("BASE1").Cells(rowNumber, itteration + 1) = lineItems(itteration)
Next
rowNumber = rowNumber + 1
Loop
Close #1
End If
End Sub

Bonjour,

Tu peux essayer ce code

Code:

---

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

Sub importCSV() Dim dialogBox As FileDialog Dim rowNumber As Long Dim lineFromFile As String Dim lineItems As Variant 'array of string Dim itteration As Integer Dim selectedFile As String   Set dialogBox = Application.FileDialog(msoFileDialogFilePicker) With dialogBox .Filters.Add "txt", "*.txt", 1 .AllowMultiSelect = False If .Show = True Then selectedFile = .SelectedItems(1) End If End With If selectedFile <> "" Then Open selectedFile For Input As #1 rowNumber = Cells(Rows.Count, "A").End(xlUp).Row 'Le tableau est sur la feuille active sinon ajouter Sheets("Nom de la feuille"). devant cells(... Line Input #1, lineFromFile Do Until EOF(1) 'false till end of file is reache then it will turn true Line Input #1, lineFromFile lineItems = Split(lineFromFile, ";") For itteration = 0 To 7 Range("Base1").Cells(rowNumber, itteration + 1) = lineItems(itteration) Next rowNumber = rowNumber + 1 Loop Close #1 End If end sub

---

En espérant que cela corresponde à ta demande