Paramétrage par défault du convertisseur

[jhofman]

bonjour,


je réalise des imports de fichier csv à longueur de journée ( en vba) via

Sub OuvrirCSV()
Dim DialOuvr As FileDialog, Rep, Chemin As String
'Windows("REPORTING_PARC.xls").Activate
Sheets("PARC").Select

Set DialOuvr = Application.FileDialog(msoFileDialogOpen)
DialOuvr.Filters.Clear
DialOuvr.Filters.Add "Fichiers CSV", "*.csv", 1
DialOuvr.AllowMultiSelect = False
DialOuvr.Title = "Ouverture du fichier CSV"
DialOuvr.InitialView = msoFileDialogViewList
'DialOuvr.InitialFileName = "C:\Mes Fichiers CSV\"
Rep = DialOuvr.Show
If Rep = 0 Then
MsgBox "Opération annulée"
Exit Sub
End If
Chemin = DialOuvr.SelectedItems(1)
'-----------------------
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Chemin, Destination:=Range("A1"))
.Name = "test"
.AdjustColumnWidth = False
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With
'------------------------
End Sub

tout ce passe très bien. .. sauf que de parfois .... la distribution des données ne sa fait plus (après fermeture/ouverture du fichier). je suis obliger de la réaliser manuellement en précisant semincolon ... ensuite elle se produit normalement. il y certaienement un paramètre à positionner qu'il me manque.

Merci

 

[jetted]

Re : Paramétrage par défault du convertisseur

Avez vous essayer

.TextFileCommaDelimiter = False
.TextFileSemicolonDelimiter = True

Car je crois TextFileCommaDelimiter = true est seulement si votre fichier est delimiter par des virgules, dans votre cas c'est des semi colon...

 

[jhofman]

Re : Paramétrage par défault du convertisseur

oui mais bien sur !
je vais essayer de suite...
MErci jetted, tu med, ilsed ...