[Source/FAQ]Converti un fichier CSV en XLS

Version imprimable

Voici le code , il faut juste faire call Lance_exel() puis on peut faire autant de fois qu'on le souhaite : Conv_csv_to_xls(Lien_csv , Lien_xls )

Code:

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
Option Explicit
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Converti un fichier CSV en XLS
'
'Lib a ajouter : Microsoft exel 9.0 object ..
'
'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Conv_csv_to_xls(Lien_csv , Lien_xls)
'
 
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Private appExcel As Excel.Application
Private objExcel As Excel.Application
Private objXsheet As Excel.Worksheet
 
 
 
Public Function Lance_exel()
 
    Set objExcel = New Excel.Application
 
End Function
 
 
Public Function Conv_csv_to_xls(Lien_csv As String, Lien_xls As String)
 
 
    objExcel.Workbooks.Open FileName:=Lien_csv
 
 
    ActiveWorkbook.SaveAs FileName:=Lien_xls, FileFormat:=xlNoChange
 
 
 
 
 
    ActiveWorkbook.Close
 
 
End Function

J'ai eu un problème, les dates sont au format français JJ/MM/AAAA mais excel pense qu'il est en format américain , MM/JJ/AAAA donc j'ai fait une fonction pour ça .

Le but du code est de convertir dés le départ tout les dates , on prend en compte un format JJ/MM/AAAA ou J/M/AA

Pour utiliser le code : CSV_mise_en_forme(url_entree, Url_sauvegarde)

Code:

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
Public Function CSV_mise_en_forme(url As String, url_sauv As String)
' Ne met a jour que la date .
Dim i As Integer
Dim strenrLu As String
 
 
 
Open url For Input As #1
Open url_sauv For Output As #2
 
 
Do While Not (EOF(1))
    Line Input #1, strenrLu
 
    Print #2, modif_time(strenrLu)
 
Loop
 
Close #1
Close #2
 
End Function
 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Fonction Modif time modifie automatiquement une chaine de caractère en ,JJ/MM/AAAA ou ,J/M/AA en ,MM/JJ/AAAA
'
'ATTENTION NE FONCTIONNE QUE AVEC UNE VIRGULE AVANT LA CHAINE DE CHAR
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
 
 
Private Function modif_time(entree As String) As String
   Dim reg As VBScript_RegExp_55.RegExp
    Dim Match As VBScript_RegExp_55.Match
    Dim Matches As VBScript_RegExp_55.MatchCollection
 
    ' instanciation
    Set reg = New VBScript_RegExp_55.RegExp
    reg.Global = True 'Toutes les ocurences
    reg.MultiLine = True
 
 
    reg.Pattern = "(\d?\d)/(\d?\d)/(\d?\d?\d\d)"
 
     modif_time = reg.Replace(entree, "$2/$1/$3")
 
End Function

Citation:
Envoyé par paterson
Voici le code , il faut juste faire call Lance_exel() puis on peut faire autant de fois qu'on le souhaite : Conv_csv_to_xls(Lien_csv , Lien_xls )
Code:

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 Option Explicit ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Converti un fichier CSV en XLS ' 'Lib a ajouter : Microsoft exel 9.0 object .. ' ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Conv_csv_to_xls(Lien_csv , Lien_xls) ' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private appExcel As Excel.Application Private objExcel As Excel.Application Private objXsheet As Excel.Worksheet Public Function Lance_exel() Set objExcel = New Excel.Application End Function Public Function Conv_csv_to_xls(Lien_csv As String, Lien_xls As String) objExcel.Workbooks.Open FileName:=Lien_csv ActiveWorkbook.SaveAs FileName:=Lien_xls, FileFormat:=xlNoChange ActiveWorkbook.Close End Function
merci pour ta contribution mais beaucoup de chose sont à revoir dans ce code entre autre :

pourquoi ces lignes ? :
Code:

1 2 Private appExcel As Excel.Application Private objXsheet As Excel.Worksheet
S'il n'est déjà pas souhaitable d'utiliser l'objet ActiveWorkBook en VBA sous Excel ... mais en VB6 c'est encore plus !
pourquoi ne pas utiliser une variable de type WorkBook pour accéder à votre classeur ?

11/07/2011, 13h29
paterson

En fait je ne savais pas comment ouvrir un fichier excel , donc j'ai cherché et j'ai trouvé cette solution , c'est un peu lourd mais ça marche, je verrai comment ton système fonctionne .