Discussion :

[Tiviia]

Bonjour à tous !

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 :

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
 
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

[Marc-L]

Bonjour,

faudrait penser à effectuer une recherche sur le forum car ce sujet a été maintes fois traité !

[leronce]

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

[Tiviia]

Bonjour

j'ai trouvé ce code :

Code :

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

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

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
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...

[Tiviia]

finalement voila mon code (qui fonctionne)

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
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

à bientot

Tiviia

[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 …