Bonsoir,

j'ai un code que j'avais recuperé ici et que j'ai modifié, ce code marche très bien mais le soucis quand que je fais une importation de mon fichier csv ma deuxième colonne (RIVOLI) composée de chiffres et de lettres changent par exemple si j'ai 0450 elle m'affiche 450 ou si j'ai 0045 j'ai 45 ,j'aimerai si possible en collant les données dans mon fichier excel que le format reste le même comme dans fichier csv merci pour votre aide c'est vraiment urgent voici mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Importlamine()
 
Dim Chemin As String, Fichier As String
Dim Ws As Worksheet
Dim Ligne As Long
Dim principal As ThisWorkbook
Dim repertoire As String
 
     Dim fStr As String
 
  Application.ScreenUpdating = False
  Set Ws = Sheets("R14")
  Ws.Columns("A:O").ClearContents
 
  Chemin = "C:\Users\ldiallo\Desktop\LAMINE\Nouveau dossier\"
 
      Worksheets("R14").Activate
  Ligne = 1
  Fichier = Dir(Chemin & "*.csv")
  Do While Fichier <> ""
    With Workbooks.Open(Chemin & Fichier)
      With .Sheets(1)
        .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row).Copy Ws.Range("A" & Ligne)
      End With
      .Close savechanges:=False
    End With
 
    Ligne = Ws.Range("A" & Rows.Count).End(xlUp).Row + 1
 
    Fichier = Dir
 
  Loop
 
   Ws.Columns("A").TextToColumns DataType:=xlDelimited, Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, _
                                FieldInfo:=Array(Array(1, xlDMYFormat), Array(5, xlDMYFormat))
 
    MsgBox "Import terminé!", vbInformation
 
          Worksheets("R14").Activate
 
End Sub