Problème de format

Version imprimable

Problème de format

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:

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

19/08/2015, 19h24
Docmarti

Bonjour laminosd

Tu dois utiliser Workbooks.OpenText au lieu de Workbooks.Open.
Tu vas obtenir le code de Workbooks.OpenText grâce à l'enregistreur de macros et du menu Données/A Partir Du Texte.
20/08/2015, 08h50
laminosd
Bonjour Docmarti

merci pour ta reponse j'ai essayé avec workbooks.openText dans ma macro mais ça ne fonctionne pas elle dit fonction ou variable attendu et j'ai fouillé sur internet la syntaxe de de workbooks.open text que j'ai trouvé est le:
Code:

1 2 Workbooks.OpenText filename:="DATA.TXT", _ dataType:=xlDelimited, tab:=True et la vrai definition
ET la formule générale

Code:

expression .OpenText(Filename, Origin, StartRow, DataType, TextQualifier, ConsecutiveDelimiter, Tab, Semicolon, Comma, Space, Other, OtherChar, FieldInfo, TextVisualLayout, DecimalSeparator, ThousandsSeparator, TrailingMinusNumbers, Local)

j'aimerai stp si tu peux introduire cette expression dans mon code pour que ça marche merci!
23/08/2015, 16h54
Docmarti

Citation:

Envoyé par Docmarti

Tu vas obtenir le code... grâce à l'enregistreur de macros et du menu Données/A Partir Du Texte.

Quel est le code que tu obtiens avec l'enregistreur de macros ?

Pour ce faire, il faut que tu ouvres manuellement un fichier
1) Dans l'onglet Développeur, sélectionne Enregistrer Une Macro
2) Dans l'onglet Données, sélectionne A Partir Du Texte et suis les directives pour ouvrir un fichier
3) Dans l'onglet Développeur, sélectionne Arrêter l'enregistrement.

Fais un copier/coller ici de la macro générée.