XL 2013 Fichier CSV qui s'ouvre correctement

[looky62]

Bonjour à tous,

J'ai un VBA qui ouvre un fichier qui en .csv,

Qd je l'ouvre sous Windows , le fichier s'ouvre correctement avec les colonnes bien délimitées,

Par contre qd je lance via VBA, il me l'ouvre ss délimiter les colonnes?

Qui peut m éclairer ?

 

[sylvanu]

Bonjour Looky,
Avez vous les bons séparateurs ?
Pouvez vous nous donner ( sui pas sensible ) le csv ? Ou du moins 5 ou 6 lignes, c'est suffisant.

 

[looky62]

Bonjour Looky,
Avez vous les bons séparateurs ?
Pouvez vous nous donner ( sui pas sensible ) le csv ? Ou du moins 5 ou 6 lignes, c'est suffisant.

Ci joint le CSV

 

[sylvanu]

Un peu léger comme fichier. 😂😂😂

 

[looky62]

Le CSV n est pas pris en charge:::!!!

 

[sylvanu]

Alors passez par https://www.cjoint.com/

 

[looky62]

Alors passez par https://www.cjoint.com/

https://www.cjoint.com/c/LIxnqV7ik1I

 

[sylvanu]

Essayez :

Sub OuvrirCSV()
    Fichier = "C:\Users\PC_PAPA\Desktop\LIxnqV7ik1I_exemple-CSV.csv"
    Workbooks.OpenText Filename:=Fichier, Origin:=xlWindows, _
                StartRow:=1, DataType:=xlDelimited, Semicolon:=True, Comma:=True
    Columns.AutoFit
End Sub

Sur mon PC c'est correct. il vous suffit de changer le nom du fichier
Le Columns.AutoFit ajuste la largeur des colonnes ( par pur esthétisme )

 

[looky62]

Je ne comprends pas trop qd vous dites changer le nom du fichier!
ci joint mon exemple

 

[sylvanu]

C'est ce que vous avez fait :

Fichier = "C:\Users\" & NNI & "\Downloads\MAJ EPI\Export.csv"

( je disais changer par rapport au code fourni )
et ça ne marche pas ?
Quel résultat donne t-il ?

 

[looky62]

C'est ce que vous avez fait :

Fichier = "C:\Users\" & NNI & "\Downloads\MAJ EPI\Export.csv"

( je disais changer par rapport au code fourni )
et ça ne marche pas ?
Quel résultat donne t-il ?

il bug sur

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

 

[looky62]

il bug sur

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

Sur la variable c top , ça marche sur un autre fichier mais là il n ouvre pas le fichier csv sur ce cas

 

[sylvanu]

Ca veut dire que ça marche sur un fichier et pas sur un autre ?
Etes vous sur de votre chemin ?
Testez cette PJ. Avant d'ouvrir le fichier csv, je vérifie s'il existe.
En cas d'erreur, je met un message avec le chemin du fichier à ouvrir. Ce chemin est-il correct ?
J'utilise cette macro :

Public NNI
Sub OuvrirCSV()
    Fichier = "C:\Users\" & NNI & "\Downloads\MAJ EPI\Export.csv"
    If Len(Dir(Fichier)) = 0 Then
      MsgBox "Le fichier :" & Chr(10) & Chr(10) & Fichier & Chr(10) & Chr(10) & "n'existe pas."
      Exit Sub
   End If
    Workbooks.OpenText Filename:=Fichier, Origin:=xlWindows, _
                StartRow:=1, DataType:=xlDelimited, Semicolon:=True, Comma:=True
    Columns.AutoFit
End Sub

 

[looky62]

là ça marche bien, mais mon CSV s ouvre toujours sur 1 colonne !!!

 

[looky62]

là ça marche bien, mais mon CSV s ouvre toujours sur 1 colonne !!!

ce qui est bizarre qd m , qd je passe via Windows il me l'ouvre nickel av bien ls séparations, mais pas av vba!!!