Discussion :

[laminosd]

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

[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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Workbooks.OpenText filename:="DATA.TXT", _ 
    dataType:=xlDelimited, tab:=True et la vrai definition

ET la formule générale

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[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.