Discussion :

[mamax29]

Bonjour,

J'utilise la commande:

Code :

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

1
2
 
Workbooks.OpenText Filename:=fichier, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Semicolon:=True

Pour ouvrir un fichier texte CSV.

Le souci c'est qu'Excel m'ouvre un nouveau classeur.

Comment puis-je faire pour que cette importation soit faite sur une feuille de mon classeur qui contient la macro?

[mercatog]

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
Sub Importcsv()
Const Sep = ";"
Dim Tablo() As String
Dim i As Integer, Cmpt As Integer
Dim fichier As String, strLig As String
 
Application.ScreenUpdating = False
fichier = "C:\Users\user\Desktop\test.csv"
Open fichier For Input As #1
   Do While Not EOF(1)
      Line Input #1, strLig
      Tablo = Split(strLig, Sep)
      Cmpt = Cmpt + 1
      For i = 0 To UBound(Tablo)
         Sheets("DESTINATION").Cells(Cmpt, i + 1) = Tablo(i)
      Next i
   Loop
Close #1
End Sub

[jcderchain]

Bonjour,

attention avec le séparateur, car (et j'ai le soucis), si dans une colonne tu a le caractère séparateur (ici le cela te rajoute une colonne.

[mamax29]

OK,

Il n'y a pas de commande toute faite...
Il faut donc lire le fichier ligne par ligne et faire un "split" sur le caractère ";"

Merci, ça marche nickel sauf pour la commande:

Code :

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

Sheets("DESTINATION").Cells(Cmpt, i + 1) = Tablo(i)

que j'ai du remplacé par

Code :

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

1
2
 
Worksheets("DESTINATION").Range("A1").Offset(cmpt, i+1).Value = Tablo(i)

[mercatog]

Si tu souhaite commencer à la 2ème ligne, il suffit d'initialiser Cmpt

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
Sub Importcsv()
Const Sep = ";"
Dim Tablo() As String
Dim i As Integer, Cmpt As Integer
Dim fichier As String, strLig As String
 
Application.ScreenUpdating = False
fichier = "C:\Users\user\Desktop\test.csv"
Cmpt=1                  'l'import commence à la ligne Cmpt+1
Open fichier For Input As #1
   Do While Not EOF(1)
      Line Input #1, strLig
      Tablo = Split(strLig, Sep)
      Cmpt = Cmpt + 1
      For i = 0 To UBound(Tablo)
         Sheets("DESTINATION").Cells(Cmpt, i + 1) = Tablo(i)
      Next i
   Loop
Close #1
End Sub

[mamax29]

OK, merci tout fonctionne.

il n'y aura pas de souci non plus quant au formatage du fichier CSV d'entrée