Exportation des données d'un Fichier .csv dans des fichiers Excel via une Macro.

**ouskel'n'or** · 14/02/2008, 09h52

10 réponses plus tôt

Envoyé par ouskel'n'or

Code :

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

1
2
3
4
5
6
7
Dim NomsDivers as variant
NomsDivers = Split("NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur;","|")
NomFich = NomsDivers(0)
NomOnglet = NomsDivers(1)
NoLig = Val(NomsDivers(2))
NoCol = Val(NomsDivers(3))
Valeur = Replace(NomsDivers(4),";","")

Après, tu sauras quoi en faire ?

Faut lire !

**killysui** · 14/02/2008, 09h55

autre petit problème la valeur NomFichier contient un retour chariot je croit... comment je pourrais le supprimer ?

Sinon je mets NomfichierEXCEL|NomOnglet|Ligne|Colonne|Valeur; et mis dans un tableau avec split | puis les valeurs sont mis dans des variables.

**mathieu44800** · 14/02/2008, 09h56

Re,

Sauvegarder le fichier et libérer les variables :

Code :

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

1
2
3
4
 
Set objSheet1 = Nothing
objWbk.Close True, "Chemin de Destination"
Set objWbk = Nothing

A+

**ouskel'n'or** · 14/02/2008, 10h05

Envoyé par killysui

autre petit problème la valeur NomFichier contient un retour chariot je croit... comment je pourrais le supprimer ?

Pour le savoir, tu peux tester avec instr

Code :

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

1
2
3
If instr(NomFichier, vbcr) <> 0 Then msgbox "t'as un cr dans le nom (carriage return)"
'ou
If instr(NomFichier, vblf) <> 0 Then msgbox "t'as un lf dans le nom"

Pour enlever l'un et/ou l'autre

Code :

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

NomFichier = Replace(Replace(NomFichier, vblf, ""), vbcr, "")

Envoyé par killysui

Ce n'était pas ma question. Comment lis-tu les lignes de ton csv ? Quelle méthode ? Fichier texte ou lecture feuille de calculs ?

**killysui** · 14/02/2008, 10h11

Pour répondre à ta question :

voici le code de lecture :

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
 
    Chemin = ThisWorkbook.Path
    NomFichCSV = "Test.csv"
    NomFichEXCEL = ""
 
    Dim F As Integer
 
     F = FreeFile '1er numéro libre
     Open Chemin & "\" & NomFichCSV For Input As #F 'ouvert en ajout
 
    'Open Chemin & "\" & NomFichCSV For Input As #1
        Do While Not EOF(F)
         Line Input #F, LigneCSV
         TableauLignesCSV = Split(LigneCSV, ";")
         For NoLigneCVS = 0 To UBound(TableauLignesCSV)
             TableauValeurLigne = Split(TableauLignesCSV(NoLigneCVS), "|")
             'If Not TableauValeurLigne Is Nothing Then
                 NomOnglet = TableauValeurLigne(1)
                 NumLigne = Val(TableauValeurLigne(2))
                 NumColonne = Val(TableauValeurLigne(3))
                 Valeur = Val(TableauValeurLigne(4))
......
Next
       Loop
    Close #F

**mathieu44800** · 14/02/2008, 10h16

RE,

Résolu, Non??

A+

**killysui** · 14/02/2008, 10h22

J'aurai bien voulu... mais je n'ai pas encore fini...

Je boucle une fois de trop dans mon fichier

Code :

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

1
2
3
4
         For NoLigneCVS = 0 To UBound(TableauLignesCSV)
             TableauValeurLigne = Split(TableauLignesCSV(NoLigneCVS), "|")
             'If Not TableauValeurLigne Is Nothing Then
                 NomOnglet = TableauValeurLigne(1)

du coup j'ai une erreur... comment je peux la gérer?

Merci

**ouskel'n'or** · 14/02/2008, 10h25

Envoyé par killysui

Pour répondre à ta question :

voici le code de lecture :

Code :

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

1
2
3
4
5
6
7
8
9
10
     F = FreeFile '1er numéro libre
     Open Chemin & "\" & NomFichCSV For Input As #F 'ouvert en ajout
 
    'Open Chemin & "\" & NomFichCSV For Input As #1
        Do While Not EOF(F)
         Line Input #F, LigneCSV
         TableauLignesCSV = Split(LigneCSV, ";")
         For NoLigneCVS = 0 To UBound(TableauLignesCSV)
             TableauValeurLigne = Split(TableauLignesCSV(NoLigneCVS), "|")
         '...

Alors, en principe, tu n'as ni vbcr ni vblf ni vbcrlf dans ta ligne.
Qu'est-ce qui te fait penser que tu as l'un ou l'autre dans le nom de fichier ?

**mathieu44800** · 14/02/2008, 10h59

RE,

Code :

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

For NoLigneCVS = 0 To (UBound(TableauLignesCSV) - 1)

Non??

**killysui** · 14/02/2008, 11h12

Oui moi aussi lorsque j'ai vu cela ca ma paru bizar ... mais à la deuxième ligne une retour chariot(le fichier .csv a du être mal fait..j'ai ). Avec le replace cela fonctionne mieux.

J'aurai une dernière question(du moin je l'espère)
la fermeture

Code :

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

1
2
3
objWbk1.close true, chemin & "\" & NomFichExcel
set objWbk1 = nothing
set app = nothing

ne fonctionne pas...

**mathieu44800** · 14/02/2008, 11h14

Re,

Quelle est l'erreur?

A+

**ouskel'n'or** · 14/02/2008, 11h24

... et sur quelle ligne ?

**killysui** · 14/02/2008, 11h33

Désolé je me suis trompé.L'erreur ce produire lors de la fermeture du fichier

Code :

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

close #f

Ce qui est bizar c'est cette erreur (qui est vide)n'apparait que si je gère les erreurs avec

Code :

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

1
2
3
4
On Error Goto errrr
 
errr:
msgbox "erreur :" & err.description, vbcritical,"erreur import csv"

**killysui** · 14/02/2008, 11h34

C'est à dire que si je décommente cette partie , l'erreur n'apparait pas.

**mathieu44800** · 14/02/2008, 11h39

Re,

Tu n'essayes pas de faire tout ça sur le même fichier??

Tu ne veux pas nous balancer le code au complet, ça sera plus facile pour la compréhension...

A+

**ouskel'n'or** · 14/02/2008, 12h26

Envoyé par killysui

Désolé je me suis trompé.L'erreur ce produire lors de la fermeture du fichier

Code :

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

close #f

Ce qui est bizar c'est cette erreur (qui est vide)n'apparait que si je gère les erreurs avec

Code :

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

1
2
3
4
On Error Goto errrr
 
errr:
msgbox "erreur :" & err.description, vbcritical,"erreur import csv"

Où est placé ton errr: ?
As-tu mis un exit sub avant errr: ?

**killysui** · 14/02/2008, 14h03

le errr: et placé juste après

Code :

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

#close

voici en gros le code :

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
 
 
 On Error GoTo Error_LFT
 
 Dim F As Integer
 F = FreeFile '1er numéro libre
 Open Chemin & "\" & NomFichCSV For Input As #F
   Do While Not EOF(F)
      Line Input #F, LigneCSV
      ....
   loop
      ....
 Close #F
 
Error_LFT:
  Beep
  MsgBox "Rrreur : " & vbCrLf & Err.Description, vbCritical, "Erreur import .csv"
   Exit Sub

**ouskel'n'or** · 14/02/2008, 14h18

lors ajoute Exit sub

Code :

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

1
2
3
Close #F
Exit sub
Error_LFT::

Tu n'iras sur Error_LFT:: que si tu as une erreur, sinon, tu passeras toujours par "là" après close (!)
Tu fermes le csv, pas le fichier contenant la macro, alors elle continue, c'est normal...

**killysui** · 14/02/2008, 14h19

Sinon vous ne saurez pas comment ajouter la classe Scripting dans la bibliothèque ?

Code :

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

Dim objFSO As New Scripting.FileSystemObject

Merci

**killysui** · 14/02/2008, 14h20

Merci ouskel'n'or.

Tu es génial.

Exportation des données d'un Fichier .csv dans des fichiers Excel via une Macro.

Macros et VBA Excel

Discussions similaires

Partager

Partager