Importation fichier CSV

bonjour à tous,

En recopiant le code pour l'importation d'un fichier .xls, et en prenant le code manuel d'un copier coller,

la recopie ne se fait pas bien:

Pour la 1ere ligne de tites, il met tout en A1.

pour les autres lignes, il copie les 5 premiéres colonnes dans la colonne A, rajoute des zéros (ben voyons) avant

de prendre une partie de la 6éme colonne etc..

la macro s'appelle import CSV

merci

Fronck

Bonjour,

commence par mettre le paramètre local à true lors de l'ouverture de ton fichier :

  With Workbooks.Open(Filename:=Chemin & Fichier, local:=True)

Bonjour

Essaie en modifiant ton code ainsi :

Sub Import_CSV()
Dim Fichier As String, Chemin As String
Dim Wb As Workbook

  Set Wb = ThisWorkbook
  Chemin = ThisWorkbook.Path & "\"
  Fichier = "erc.CSV"
  If Dir(Chemin & Fichier) = "" Then   ' Le fichier n'existe pas
   MsgBox "Le fichier " & Fichier & " est introuvable. IL doit être placé dans : " & Chemin & "", vbOKOnly, "Problème Fichier"
  Else
    Application.ScreenUpdating = False
    With Workbooks.Open(Filename:=Chemin & Fichier)
      With .Sheets("erc")
 '       .Range("A1:O1000").Copy Wb.Sheets("ERCMOIS").Range("A1:O1000")
    Columns("A:A").Select
    Selection.Copy
    Windows("traitement.xlsm").Activate
    Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
        Selection.TextToColumns Destination:=Selection, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        ), Array(14, 1), Array(15, 1), Array(16, 1)), TrailingMinusNumbers:=True
      End With
      .Close savechanges:=False
    End With
  End If
End Sub

Résultat ?

Bye !

salut gmb,

les 5 premiéres colonnes sont ok, puis plus rien.

a+

Fronck

fronck a écrit :

les 5 premiéres colonnes sont ok, puis plus rien.

C'est curieux, sur mon PC, ça a pourtant l'air de marcher :

Bye!

fronck a écrit :

salut gmb,

les 5 premiéres colonnes sont ok, puis plus rien.

a+

Fronck

tu n'as pas rajouté le paramètre local=true !

pierre.jy a écrit :

tu n'as pas rajouté le paramètre local=true !

? ? ?

C'est à dire ?

Bye !

Bonjour,

Une proposition à étudier.

Cdlt.

gmb a écrit :

pierre.jy a écrit :

tu n'as pas rajouté le paramètre local=true !

? ? ?

C'est à dire ?

Bye !

ta gymnastique avec le TextToColumns devient inutile si tu passe le paramètre local à true pour la fonction open ....voir mon premier message ..

bonjour àtous,

çà fonctionne avec le 1ermessage de pierre.jy, désolé.

merci

Fronck