Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Ouverture fichier csv

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

rudymagny

XLDnaute Occasionnel
Bonjour à tous,
Voilà j'utilise une macro de mise en forme avec ouverture de fichiers types csv mais le fait est que quand il me l'ouvre, il me met toutes les valeurs dans la colonne 1 au lieur d'appliquer les ; et ,.

j'utilise ce code pour ouvrir mon fichier :

Private Sub CommandButton2_Click()
Dim vFich, sFiltre$
sFiltre = "Comma Separated Value (*.csv),*.csv" ' <- ou autre...
ChDir CurDir
vFich = Application.GetOpenFilename(sFiltre)
If VarType(vFich) = vbBoolean Then
Exit Sub
Else
Workbooks.Open Filename:=vFich
End If
TextBox1.Value = vFich


puis je changer quelque chose pour qu'il m'ouvre le fichier correctement en mettant bien les données par colonnes?

Merci d'avance
 
Trier par date Trier par votes
Re : Ouverture fichier csv

Bonjour,

Oui, bien sûr. Je n'ai plus le code sous la main, mais il est facile à reconstituer: utilise l'enregistreur de macro, et ouvre un fichier.csv; l'assistant importation s'ouvre, et tu as le choix du séparateur de colonne; recopie après l'instruction dans ta macro.
 
Vote positif 0 Vote négatif
Re : Ouverture fichier csv

Bonjour coriolan et merci pour l'info mais j'ai déjà essayé et Excel m'ouvre directement le fichier au bon format.
Donc l'enregistreur ne voit que ça :

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/11/2007 par rudy
'

'
ActiveCell.FormulaR1C1 = ""
Range("G12").Select
ChDir "I:\SRC\Validation N _ N-1 SRC"
Workbooks.Open Filename:= _
"I:\SRC\Validation N _ N-1 SRC\AdNat_VED_PARIS36_051107_VED_PARIS31_070807_Totale-071106.csv"
End Sub

bloqué!
 
Vote positif 0 Vote négatif
Re : Ouverture fichier csv

Bonjour rudymagny, Coriolan et le forum,

Tu lances l'enregistreur et tu fais : Fichier Ouvrir, tu selectionnes Texte (me semble-t'il) et tu fais ta manip.

Je pense que cela devrait fonctionner... car là tu dois ouvrir directement le fichier dans l'explorateur...., non ?

A te lire, sinon un petit extrait de ton fichier .csv, zippé si possible (je n'en ai pas ici)

Bon week-end.

Jean-Pierre

Edit : Pour un salut à l'ami Pierrot.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Ouverture fichier csv

Bonjour Rudy

si le séparateur est le point virgule, essaye le code ci dessous (pour colonne A) à adapter :

Code: 
Range("A:A").TextToColumns semicolon:=True

bon après midi
@+

Edition, bonjour Jean-Pierre, t'avais pas vu.
 
Vote positif 0 Vote négatif
Re : Ouverture fichier csv

Bonjour pierrot93 et jeanpierre,
ça y est c bon, merci à vous, j'ai rajouté le bout de code de pierrot93 et ça fonctionne donc le code final est:

Private Sub CommandButton2_Click()
Dim vFich, sFiltre$
sFiltre = "Comma Separated Value (*.csv),*.csv" ' <- ou autre...
ChDir CurDir
vFich = Application.GetOpenFilename(sFiltre)
If VarType(vFich) = vbBoolean Then
Exit Sub
Else
Workbooks.OpenText Filename:=vFich, DataType:=xlDelimited, semicolon:=True
Range("A:A").TextToColumns semicolon:=True
End If
TextBox1.Value = vFich
End Sub

Merci beaucoup à vous et bonne journée
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 Traiter un fichier CSV qui est ouvert
2
Réponses
16
Affichages
476
gsx-air
  • Résolu(e)
XL 2010 Problème màj feuilles depuis fichiers CSV
2
Réponses
23
Affichages
3 K
cathodique
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
333
CDALE
C
T
  • Résolu(e)
Microsoft 365 problème syntaxe
Réponses
3
Affichages
393
thenesol
T
L
  • Résolu(e)
Microsoft 365 Décompte via plusieurs fichiers CSV
Réponses
12
Affichages
767
WTF
P
  • Question Question
Microsoft 365 Problème lors de la création d'un fichier
Réponses
4
Affichages
602
ChTi160
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
T
  • Question Question
Microsoft 365 Ouvrir un fichier en fonction de sa date
Réponses
1
Affichages
441
sylvanu
Y
  • Résolu(e)
XL 2016 Incrémentation de valeur avec VBA
2
Réponses
24
Affichages
2 K
yapad05
Y
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
J
  • Question Question
XL 2019 Ruban inactif après ouverture fichier en VBA
Réponses
7
Affichages
904
Jacques25bis
J
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
1 K
macseb
M
A
  • Résolu(e)
XL 2019 Fichier = Fichier
Réponses
4
Affichages
807
patricktoulon
P
  • Question Question
XL 2010 Macro et fichier .csv
2
Réponses
20
Affichages
3 K
papypog
P
J
  • Question Question
XL 2019 VBA problematique transormation xls en csv
Réponses
2
Affichages
1 K
JoyceD
J
  • Question Question
XL 2016 Utiliser La fonction GetOpenFilename
Réponses
8
Affichages
1 K
KTM
  • Résolu(e)
Microsoft 365 Générer automatiquement un fichier CSV et non pas XLSX
Réponses
1
Affichages
1 K
MOA_Excel
A
  • Résolu(e)
XL 2019 Inversion date avec macro import
Réponses
14
Affichages
1 K
Arnaud59000
A
  • Question Question
Microsoft 365 Mauvais format date dans l'export de données csv avec code VBA
Réponses
5
Affichages
2 K
chris
  • Résolu(e)
XL 2013 VBA - macro pour ouvrir un fichier en fonction de la valeur d'une cellule
Réponses
4
Affichages
881
Gaalhad33
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…