Macro importation .csv

**Fred-D** · 26/06/2012, 19h00

Bonjour le forum!

Je suis débutant avec les macros et VBA, et j'ai besoin d'un petit coup de pouce.
Voilà la situation: j'aimerais importer les données brutes d'un fichier .csv dans le deuxième onglet de mon fichier xls. J'aimerais que la macro demande à l'utilisateur le chemin d'accès vers ce fichier .csv, puis que la macro copie les lignes du fichier .csv dont la première case contient le mot "Porosité" + les deux premières lignes. Dernière contrainte, il faudrait que tout soit copié dans la case A3 du deuxième onglet de mon fichier .xls (onglet nommé "Imported Data").

C'est assez spécifique comme demande, j'en suis conscient, et pour le moment tout ce que j'arrive à faire c'est faire apparaître la fenêtre "Ouvrir" de Excel, sauf que même ca ce n'est pas très au point (en gros quand j'ouvre le fichier .csv, il y a des problèmes de compatibilité).

Donc si quelqu'un pouvait me donner le code qui me permet de faire tout ca, j'en serai très reconnaissant (je veux bien quelques explications sur le fonctionnement du code aussi).

Merci à toutes les bonnes âmes qui voudront m'aider!

Fred

**jfontaine** · 26/06/2012, 22h18

Bonjour,

Ce code importe un fichier CSV dans l'onglet actif

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
33
34
35
36
37
38
39
40
41
42
43
Sub Import_Fichier()
 
Dim file As FileDialog
Dim strLigne As String
Dim str() As String
 
Dim i As Integer
Dim Ligne As Long
 
'Choix du fichier à importer
Set file = Application.FileDialog(msoFileDialogFilePicker)
file.Filters.Clear
file.Filters.Add "Fichier CSV", "*.csv"
file.Title = "Fichier à importer"
 
If file.Show = False Then
    Exit Sub
End If
 
Ligne = 1
 
'Ouverture du fichier
Open file.SelectedItems(1) For Input As #1
 
'Boucle sur les lignes du fichier
Do While Not EOF(1)
 
    Line Input #1, strLigne
    str() = Split(strLigne, ";") 'séparateur ;
 
    'Pour chaque colonne
    For i = 0 To UBound(str)
        Cells(Ligne, i + 1).Value = str(i)
    Next i
 
    Ligne = Ligne + 1
 
Loop
 
Close #1
 
 
End Sub

**Fred-D** · 27/06/2012, 09h23

Bonjour Jerôme et merci pour votre réponse.

J'ai essayé votre code, et je rencontre deux soucis: quand le fichier s'importe, (il s'agit de nombres décimaux), le séparateur pris en compte est la virgule et pas le ; (alors que dans le code il est spécifié séparateur =

. J'ai donc essayé de trouver dans les options Excel comment modifier ca, sans succès. Avez-vous une piste?

Deuxième problème, lorsque je lance la macro, les valeurs sont copiées (certes pas correctement mais au moins c'est un début), mais Excel devient inutilisable. Il continue à mouliner comme si il était dans une boucle infinie (je pense). Or je n'arrive pas à comprendre tout le code que vous m'avez donné, donc je n'arrive pas à voir d'où vient le problème.

Merci pour votre aide.

Frédéric

**jfontaine** · 27/06/2012, 09h42

J'ai essayé votre code, et je rencontre deux soucis: quand le fichier s'importe, (il s'agit de nombres décimaux), le séparateur pris en compte est la virgule et pas le ; (alors que dans le code il est spécifié séparateur = . J'ai donc essayé de trouver dans les options Excel comment modifier ca, sans succès. Avez-vous une piste?

Sur la ligne 29 de mon précédent code il y a un commentaire. Il ne devrait pas être difficile d'adapter à la virgule

Deuxième problème, lorsque je lance la macro, les valeurs sont copiées (certes pas correctement mais au moins c'est un début), mais Excel devient inutilisable. Il continue à mouliner comme si il était dans une boucle infinie (je pense). Or je n'arrive pas à comprendre tout le code que vous m'avez donné, donc je n'arrive pas à voir d'où vient le problème.

Le temps d'exécution dépend de beaucoup de la taille du fichier à importer
Pour gager du temps, on peux désactiver l'affichage et les calculs

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub Import_Fichier()
 
Dim file As FileDialog
Dim strLigne As String
Dim str() As String
 
Dim i As Integer
Dim Ligne As Long
 
'Choix du fichier à importer
Set file = Application.FileDialog(msoFileDialogFilePicker)
file.Filters.Clear
file.Filters.Add "Fichier CSV", "*.csv"
file.Title = "Fichier à importer"
 
If file.Show = False Then
    Exit Sub
End If
 
Ligne = 1
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
'Ouverture du fichier
Open file.SelectedItems(1) For Input As #1
 
'Boucle sur les lignes du fichier
Do While Not EOF(1)
 
    Line Input #1, strLigne
    str() = Split(strLigne, ";") 'séparateur ;
 
    'Pour chaque colonne
    For i = 0 To UBound(str)
        Cells(Ligne, i + 1).Value = str(i)
    Next i
 
    Ligne = Ligne + 1
 
Loop
 
Close #1
 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
 
End Sub

**Fred-D** · 28/06/2012, 23h27

Bonsoir et désolé pour le silence,

J'ai testé le code et j'ai réussi à m'en sortir avec l'importation, merci beaucoup.

J'ai désormais un nouveau soucis: je traite environ 10 000 lignes, et les macros mettent un certains temps à s'exécuter. Le problème c'est qu'on a l'impression que le programme plante, ce n'est pas le cas puisqu'après 10 minutes tout est normal et les macros sont finies et les résultats affichés. Mais j'aimerais créer une barre de progression, un truc assez visuel pour qu'un utilisateur lambda ne ferme pas excel car il pense que tout est planté.

J'ai pas mal chercheé sur le net, mais je n'arrive pas à m'en sortir. Tous les codes que j'ai essayés ont abouti à un échec. Je n'arrive pas à comprendre pourquoi, mais par exemple pour certains d'entre eux, je dois utiliser des lignes du style "F_BarreAttente.show", et excel me dit qu'il ne connaît pas cet objet. J'ai vraiment essayé pleins de trucs mais je ne m'en sors pas.. Si quelqu'un pouvait m'aider avec ca, ca me serait d'une grande aide. (Je précise au passage que ma macro utilise une boucle à un moment, et j'ai cru comprendre que c'était ce qui servait à créer la barre. la boucle va de 10 000 à 1 par pas de -1).

Et merci encore à Jerôme.

Bien cordialement,
Fred