Discussion :

[pascal97480]

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

[nala]

Bonjour,

Tu peux essayer ce code

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
 
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