Paramétrage par défault du convertisseur

  • Initiateur de la discussion Initiateur de la discussion jhofman
  • Date de début Date de début

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 !

jhofman

XLDnaute Occasionnel
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
 
Re : Paramétrage par défault du convertisseur

Avez vous essayer

Code:
.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...
 
- 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
Retour