Re-WebCyril !
J'ai fait le test, en faisant deux maxros avec l'enregistreur :
La conversion :
Sub ConversionCsv()
Range("A1:A12").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), Array(5, 1), Array(6, 1), _
Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
))
End Sub
Comme, c'est une macro faîte avec l'enregistreur, je pense que tu dois pouvoir éliminer les parties "=False".
L'ouverture avec Menu...bla bla bla :
Sub TestCsv()
ChDir "C:\Documents and Settings\Propriétaire\Bureau\Foot"
Workbooks.Open Filename:= _
"C:\Documents and Settings\Propriétaire\Bureau\Foot\TestCsv.csv"
End Sub
Et là, on constate une différence avec ta macro.
Workbooks.Open Filename:= à la place de Workbooks.OpenText Filename:="
C'est peut-être juste cela à changer.
@ +
Moa