XL 2019 Import CSV par VBA - prise ne compte du séparateur

[battijo]

Bonjour à tous,
Cela fait quelques temps que je n'ai plus bossé sur VBA du ç un changement de boulot.
Je souhaiterais intégrer les données d'un fichier VBA dont le séparateur est ";".
Plus précisément, sur un fichier EXCEL, à son ouverture, à partir de la cellule A2, je voudrais "rapatrier" les données d'un fichier CSV avec comme séparateur le ";" qui se situe sur mon bureau et que j'actualise régulièrement.
Si je le fais manuellement avec import fichier texte et que j'indique le séparateur ";", aucun soucis. Si j'enregistre le tout par macro...BUG

Voila, je pense que pour beaucoup d'entre vous cela vous paraitra simple, mais là pour le coup c'est moi qui bug!

Merci

 

[cp4]

Bonsoir,

Sans ton fichier, un code à tester (proposant sélection du fichier csv)

Option Explicit

Sub ImportFichierCsv()
   Dim fichier As Variant
   fichier = Application.GetOpenFilename("Tous les fichiers (*.csv),*.csv")
   If fichier = False Then Exit Sub
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   On Error Resume Next   'sécurité
   With Workbooks.Open(fichier).Sheets(1)
      .Columns(1).TextToColumns .[A1], xlDelimited, Semicolon:=True   'commande Convertir à adapter
      Feuil1.Cells.Clear
      .UsedRange.Copy Feuil1.[A2] 'à adapter
      .Parent.Close False
   End With
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
MsgBox "Import terminé!", vbInformation + vbOKOnly, "import cvs"
End Sub

 

[Oneida]

Bonjour a tous,

battijo:​

Si j'enregistre le tout par macro...BUG

avec ce type de code:

 With WBD.QueryTables.Add(Connection:="TEXT;"

Quelle erreur, a quelle ligne?