Juste une question, quand tu ouvre un fichier .csv, tout se retrouve dans la colonne A, séparé seulement par un point virgule?
Auquel cas :
'Convertis le contenu (Excel regroupe tout dans la colonne A, il faut donc lui redonner sa forme d'origine)
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1)), TrailingMinusNumbers:=True
C'est gros, c'est moche, mais Excel le fais comme ça (enregistrer macro, convertir).
Pour le chemin c'est plus compliqué, je n'ai pas le même bureau que toi, mais dans l'idée si par exemple tu veux aller à un endroit sur ton bureau ça sera du genre:
ChDrive "F"
ChDir "F:\lettre\chemindufichier"
C'est le chemin écrit au dessus dans ta fenêtre quand tu ouvres un dossier (exemple : T:\Photos\PhotosDeChat\LolCats), ne connaissant pas le nom du dossier que tu veux ouvrir, tu va jusqu'au dossier le contenant (ou au plus près))
J'avais oublier dans le fichier, à dégager (je ne convertissais les valeurs que de la colonne 5 à la dernière colonne ayant du contenu) ou sinon tu remplace le 5 par un 1, mais ça ne convertis que . en séparateur décimal (l'équivalent de la , chez nous; vu que en .csv tout est considéré comme du texte, même les nombres) :
' conversion données numériques
For iCol = 5 To lastCol
Columns(iCol).TextToColumns DecimalSeparator:="."
Next iCol