Conversion csv en excel

Version imprimable

Bonjour à tous !:coucou:

Je cherche un code permettant de convertir un fichier csv en excel, car je veux effectuer le traitement des données présentes dans le fichier.

Lorsque j'ouvre le fichier avec excel, tout se passe bien.
Mais dés lors que j'ouvre le fichier par macro, il est sous forme csv.
J'ai essayer d'enregistrer une macro en faisant la manip, mais il faut obligatoirement le chemin du fichier que j'ouvre.
Le problème est le fichier que j'ouvre ne sera pas au même endroit, donc pas le même chemin..

Voila le code permettant d'ouvrir le fichier :
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 Public leClasseur1 As Workbook Public leClasseur2 As Workbook Sub prtrt() Dim pathFichier1 As String, nomFichier1 As String, tmpStr1() As String Dim pathFichier2 As String, nomFichier2 As String, tmpStr2() As String 'récupérer le fichier (path complet) Select Case MsgBox("Ouvrir fichier extraction du mois courant", vbOKCancel, "Extraction du mois") Case vbOK pathFichier1 = Application.GetOpenFilename If pathFichier1 <> "" Then 'ouvrir le fichier Set leClasseur1 = Application.Workbooks.Open(pathFichier1) 'si on veux récupérer le nom du fichier : tmpStr1 = Split(pathFichier1, "\") nomFichier1 = tmpStr1(UBound(tmpStr1)) End If Case vbCancel Exit Sub End Select End Sub
Quelqu'un aurait une idée..SVP :calim2::oops::oops::calim2:

21/08/2013, 11h14
Marc-L

Bonjour,

faudrait penser à effectuer une recherche sur le forum car ce sujet a été maintes fois traité !
21/08/2013, 11h42
leronce

hello tous
regardes à cette adresse pour l'adapter à ton cas, comme je l'ai fait
macro-vba-save-as/

Bonjour

j'ai trouvé ce code :

Code:

1
2
3
Workbooks.OpenText Filename:=nomFichier1, StartRow:=1, _
    DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _
        :=True, Semicolon:=False, DecimalSeparator:=";"

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
Option Explicit
 
Public leClasseur1 As Workbook
Public leClasseur2 As Workbook
 
Sub prtrt()
 
Dim pathFichier1 As String, nomFichier1 As String, tmpStr1() As String
Dim pathFichier2 As String, nomFichier2 As String, tmpStr2() As String
 
    'récupérer le fichier (path complet)
 
 
Select Case MsgBox("Ouvrir fichier extraction du mois courant", vbOKCancel, "Extraction du mois")
Case vbOK
 
    pathFichier1 = Application.GetOpenFilename
 
 
If pathFichier1 <> "" Then
 
    'ouvrir le fichier
Set leClasseur1 = Application.Workbooks.Open(pathFichier1)
 
    'si on veux récupérer le nom du fichier :
    tmpStr1 = Split(pathFichier1, "\")
    nomFichier1 = tmpStr1(UBound(tmpStr1))
 
 
End If
 
 
Case vbCancel
Exit Sub
 
End Select
Workbooks.OpenText Filename:=nomFichier1, StartRow:=2, _
    DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter _
        :=False, Semicolon:=True, DecimalSeparator:=";"
 
End Sub

Mais il ne fonctionne pas sur mon fichier...:cry::cry::cry:

finalement voila mon code (qui fonctionne) :)

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
Sub prtrt()
 
Dim pathFichier1 As String, nomFichier1 As String, tmpStr1() As String
Dim pathFichier2 As String, nomFichier2 As String, tmpStr2() As String
 
    'récupérer le fichier (path complet)
 
 
Select Case MsgBox("Ouvrir fichier extraction du mois courant", vbOKCancel, "Extraction du mois")
Case vbOK
 
    pathFichier1 = Application.GetOpenFilename
 
 
If pathFichier1 <> "" Then
 
    'ouvrir le fichier
Set leClasseur1 = Application.Workbooks.Open(pathFichier1)
 
    'si on veux récupérer le nom du fichier :
    tmpStr1 = Split(pathFichier1, "\")
    nomFichier1 = tmpStr1(UBound(tmpStr1))
 
 
End If
 
 
Case vbCancel
Exit Sub
 
End Select
Dim derlig As Long
  derlig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
  Range("$A$1:$A$" & derlig).Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
        True
 
End Sub

MERCI pour votre aide :oops::oops::oops:

à bientot :)

Tiviia

21/08/2013, 16h47
Marc-L

Pour rappel, dans une version française d'Excel, lorqu'un fichier .csv s'ouvre bien manuellement (en fait un fichier délimité ;),
il n'y a donc besoin que d'une seule ligne pour l'ouvrir et le convertir via la méthode Open associée
à un objet Workbooks en définissant son argument Local:=True, rien qu'en lisant l'aide de cette méthode !

Comme c'est du reste indiqué dans différents sujets traitant de .csv, information facilement à disposition via une recherche …