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