XL 2013 Fichier CSV qui s'ouvre correctement

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2022

• #2

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.

 

Vote positif 0 Vote négatif

looky62

XLDnaute Occasionnel

• 23 Septembre 2022

• #3

sylvanu à dit:

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.

Cliquez pour agrandir...

Ci joint le CSV

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2022

• #4

Un peu léger comme fichier. 😂😂😂

 

Vote positif 0 Vote négatif

looky62

XLDnaute Occasionnel

• 23 Septembre 2022

• #5

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2022

• #6

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

 

Vote positif 0 Vote négatif

looky62

XLDnaute Occasionnel

• 23 Septembre 2022

• #7

sylvanu à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2022

• #8

Essayez :

VB:

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 )

 

Vote positif 0 Vote négatif

looky62

XLDnaute Occasionnel

• 23 Septembre 2022

• #9

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

 

Pièces jointes

• TEST MACRO VG-1.xlsm

  62.1 KB · Affichages: 1

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2022

• #10

C'est ce que vous avez fait :

VB:

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 ?

 

Vote positif 0 Vote négatif

looky62

XLDnaute Occasionnel

• 23 Septembre 2022

• #11

sylvanu à dit:

C'est ce que vous avez fait :

VB:

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 ?

Cliquez pour agrandir...

il bug sur

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

 

Vote positif 0 Vote négatif

looky62

XLDnaute Occasionnel

• 23 Septembre 2022

• #12

looky62 à dit:

il bug sur

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Septembre 2022

• #13

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 :

VB:

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

 

Pièces jointes

• TEST MACRO VG-1 (2).xlsm

  62.2 KB · Affichages: 4

Vote positif 0 Vote négatif

looky62

XLDnaute Occasionnel

• 23 Septembre 2022

• #14

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

 

Pièces jointes

• Capture.JPG

  75 KB · Affichages: 18

Vote positif 0 Vote négatif

looky62

XLDnaute Occasionnel

• 23 Septembre 2022

• #15

looky62 à dit:

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

Cliquez pour agrandir...

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!!!

 

Vote positif 0 Vote négatif