Discussion :

[nico2rib]

Salut a tous,

Voila une macro pour ouvrir mon fichier CSV a partir de VBA:

Code :

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

1
2
3
4
5
6
7
8
Sub
 
NomFic = Application.GetOpenFilename(, , "Extractions Données")
If NomFic <> False Then
Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True
End If
 
End Sub

J'aimerais pouvoir récupérer les données de ce fichier qui vient de s'ouvrir, avec une ligne du style:

Code :

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

1
2
Woorkbook(NomFic).Worksheets(1).Range("A1:AA10).Select
Selction.copy

... Mais cela ne marche pas, c'est au niveau du NomFic
En réalité, j'aurais besoin de copier les données du CSV pour les Coller dans mon XLS.
Quelqu'un aurait il la syntaxe correct pour le fichier CSV dans VBA.

Merci

[Philippe Tulliez]

Bonjour,
Sauf erreur de ma part la ligne 4, de ton premier code n'est pas correcte.
Ce n'est pas If NomFic <> False Then mais if NomFic <> "" Then ou If Len(NomFic) Then
Et pour être sûr de n'avoir que les fichiers suffixés csv

Code :

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

1
2
3
4
5
6
7
8
9
'
Sub Test()
 Dim NomFic As String
 NomFic = Application.GetOpenFilename("Fichier CSV (*.csv),*.csv")
 ' If nonFin <> "" Then 
 If Len(NomFic) Then
  Workbooks.OpenText Filename:=NomFic, DataType:=1, Semicolon:=True, local:=True
 End If
End Sub