Discussion :

[kacedda]

Bonjour,

Je cherche à importer un fichier csv dans mon classeur, en créant une nouvelle sheet ou dans la sheet courante.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
 
    Dim myfile As Workbook
    Workbooks.OpenText filename:="E:\ListMateriel.csv", Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True
    Set myfile = ActiveWorkbook
 
    myfile.Worksheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
 
    myfile.Close
 
    ' Traitement des données...
    ' ....
 
End Sub

Cela fonctionne, seulement je passe par un classeur que je referme ensuite et visuellement j'ai un phénomène de clignotement, excel se lance puis se referme.

Pour ce code, je me suis inspiré de recherche sur le net, j'ai essayé de chercher des imports csv mais toutes les solutions que je trouve lisent le fichier ligne par ligne et insère les données dans les cellules.
Existe-t-il des solutions plus simples? Je souhaite juste faire un import (ou puis lancer excel en mode silencieux sans l'ouvrir?).

Merci

[Marc-L]

Bonjour,

désactiver l'affichage de l'écran (ScreenUpdating), non seulement cela ne clignotera pas mais ce sera plus rapide !

Sinon autre possibilité via l'objet QueryTable …

[kacedda]

Yes!! Merci! c'est bien QueryTable qui semble le plus pertinent! On viens aussi de m'en parler à l'instant !!
Merci