Import d'un fichier CSV dans onglet

Bonjour,

Je souhaiterai importer dans un onglet le contenu d'un ficchier CSV que je sélectionne.

J'ai adapté le code que j'utilise pour l'import de fichiers .xlsx

Dim FichierSource As Variant

Dim WbSource As Workbook
Dim ShCible As Worksheet

    On Error GoTo fin

    Set ShCible = Sheets("IMPORT")
    FichierSource = Application.GetOpenFilename("Fichiers (*.csv),*.csv")

    If FichierSource = False Then GoTo fin

    Application.ScreenUpdating = False
    Set WbSource = Workbooks.Open(FichierSource)

    nomfichier = WbSource.Name

    With WbSource
         .Sheets(1).Range("A1:CM100000").Copy Destination:=ShCible.Range("A1")
         .Close False
    End With

Mais j'ai les séparateur ";" qui posent problème.

Pourriez vous m'aider?

Je vous remercie par avance :)

Olivier

Bonjour

Vous voulez quoi à la place ?

exemple : 55;2 --> vous voulez 55,2 ou 552 ou séparer 55 et 2 dans des colonnes différentes

Bonjour Dan,

Effectivement je manque de précision.

Je souhaite séparer 55 et 2 dans des colonnes différentes.

Je souhaite séparer 55 et 2 dans des colonnes différentes.

Vous pouvez utiliser l'outil Excel Convertir

- Sélectionnez vos données
- Allez dans le menu Données --> icone convertir
- Cliquez directement sur Suivant
- Dans séparateurs, cochez la case "Points virgule"
- Cliquez sur Terminé

Crdlt

Bonjour,

Vous devriez travailler avec PowerQuery pour importer des données type CSV dans Excel. L'outil est littéralement fait pour cela…

Onglet données > importer > depuis TEXTE/CSV.