Discussion :

[TWSOTM]

Bonjour à tous, j'aimerai importer des données ( fichier CSV ) dans un tableur excel.

Sur les options du filteroption, je n'ai trouvé que l'option numero de ligne pour importer le contenu.
A priori , on ne peut pas importer le contenu du CSV à partir de la colonne E par exemple.

Donc, j'ai décidé d'importer le contenu puis d'effectuer un couper coller sur les colonnes que je veux.
Et je me rends compte que la copie est possible mais pas le couper coller , vous confirmer ?

Il n'existe pas d'équivalent à copyRange

Code :

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

1
2
3
4
'amount	colonne V vers D
source=.getCellRangeByName("V1:V1000")
destination=.getCellRangeByName("D1")
Current_Sheet.copyRange(destination.getCellAddress(),source.getRangeAddress())

Merci par avance

[EricDgn]

Bonjour,

Un exemple pour copier la colonne V d'un fichier csv:

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
Option Explicit
 
Sub CopyRangeCSV()
    Dim rDest As Range
    Dim wbCSV As Workbook
    Dim wSh1 As Worksheet
    Dim k As Long
    Application.ScreenUpdating = False
    Set rDest = ThisWorkbook.Worksheets("Feuil1").Range("D1")   '--- cellule destination
    Set wbCSV = Workbooks.Open("C:\Dossier\Fichier.csv")        '--- ouvre le fichier csv
    Set wSh1 = wbCSV.Worksheets(1)
    k = wSh1.Range("V" & Rows.Count).End(xlUp).Row      '--- n° dernière ligne en colonne V
    wSh1.Range("V1:V" & k).Copy rDest                   '--- copie colonne V
    wbCSV.Close savechanges:=False                      '--- referme fichier csv
    Set wSh1 = Nothing
    Set wbCSV = Nothing
    Set rDest = Nothing
    Application.ScreenUpdating = True
End Sub

A adapter.
Cordialement.

[TWSOTM]

Merci . Pour un cut ( couper) et en libreoffice cela parait moins evident.

La selection du range ou de la colonne est déjà plus complexe.

[EricDgn]

En fait, cette demande ne devrait pas être déposée dans ce forum "Excel" mais dans celui de "OpenOffice & LibreOffice". Un fichier csv n'est pas un fichier "Excel", mais un simple fichier texte.

Cordialement.

[TWSOTM]

Ok,merci est ce à moi de le faire ou un moderateur effectue la demarche ?