Ouverture fichier csv

Bonjour,

Pourquoi quand j'ouvre un fichier .csv manuellement, les colonnes sont déjà séparées alors que quand je l'ouvre via une macro VBA, toutes les valeurs sont dans une seule et même colonne et je dois rajouter dans mon programme une formule pour séparer les valeurs dans différentes colonnes.

Voici le code pour ouvrir le fichier :

Est ce qu'il manque quelque chose dans mon code pour éviter d'avoir à programmer la séparation des valeurs en colonnes différentes?

Dim Nom_Fichier As Variant
   Set wbMyWb = Workbooks.Open(chemin & Nom_Fichier)
  wbMyWb.Activate

'Separateur car csv
 Columns("A:A").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 _
        ), Array(14, 1), Array(15, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array _
        (20, 1), Array(21, 1), Array(22, 1), Array(23, 1), Array(24, 1), Array(25, 1), Array(26, 1), _
        Array(27, 1), Array(28, 1), Array(29, 1), Array(30, 1), Array(31, 1), Array(32, 1), Array( _
        33, 1), Array(34, 1), Array(35, 1), Array(36, 1), Array(37, 1), Array(38, 1), Array(39, 1), _
        Array(40, 1), Array(41, 1), Array(42, 1), Array(43, 1), Array(44, 1), Array(45, 1), Array( _
        46, 1), Array(47, 1), Array(48, 1), Array(49, 1), Array(50, 1), Array(51, 1), Array(52, 1), _
        Array(53, 1), Array(54, 1), Array(55, 1), Array(56, 1), Array(57, 1), Array(58, 1), Array( _
        59, 1), Array(60, 1), Array(61, 1), Array(62, 1), Array(63, 1), Array(64, 1), Array(65, 1), _
        Array(66, 1), Array(67, 1), Array(68, 1), Array(69, 1), Array(70, 1), Array(71, 1), Array( _
        72, 1), Array(73, 1), Array(74, 1), Array(75, 1), Array(76, 1), Array(77, 1), Array(78, 1), _
        Array(79, 1), Array(80, 1), Array(81, 1), Array(82, 1), Array(83, 1), Array(84, 1), Array( _
        85, 1), Array(86, 1), Array(87, 1), Array(88, 1), Array(89, 1), Array(90, 1), Array(91, 1), _
        Array(92, 1), Array(93, 1), Array(94, 1), Array(95, 1), Array(96, 1), Array(97, 1), Array( _
        98, 1), Array(99, 1)), TrailingMinusNumbers:=True

Bonjour Agrimaman

Essayez d'utiliser

 Workbooks.OpenText Filename:=myName, Origin:=xlWindows, _
                StartRow:=1, DataType:=xlDelimited, Semicolon:=True

A+

Bonjour,

Vue votre version, pensez à utiliser Power Query pour l'ouverture de csv.

Cdt

Merci BrunoM45 ça marche.

Agrimaman