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

battijo

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonsoir,

Sans ton fichier, un code à tester (proposant sélection du fichier csv)
VB:
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
 

Discussions similaires

Membres actuellement en ligne

Statistiques des forums

Discussions
312 803
Messages
2 092 250
Membres
105 316
dernier inscrit
cyrille225