Discussion :

[Dexter81]

Bonjour,

J'ai créé une macro dont le but est de mettre en forme des données dans un fichier csv. Elle fonctionne correctement sauf que pour les données à récupérer dans le fichier d'origine elle laisse des cellules vierges.

Données à récupérer dans fichier A (normalement en format csv)
Modules cProcedures

Merci de votre retour.

Ci joint le fichier A ainsi que la macro

[BlueMonkey]

Bonsoir,

Essayer d'ouvrir le fichier CSV de cette manière

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
Sub OuvrirCrest()
    Call Workbooks.OpenText(Filename:= _
        strNomFichierInput, Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, _
        Space:=False, Other:=False, OtherChar:="""")
 
    With ActiveSheet
            .UsedRange.Replace What:="""", Replacement:="", LookAt:=xlPart, _
             SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
             ReplaceFormat:=False
 
            .Name = "INPUT"
    End With
End Sub

Pour plus de compatibilité avec les fichiers CSV, je recommande l'utilisation de du séparateur de liste ";" au lieu de ",".

[Dexter81]

Merci pour ta réponse.
Ça ouvre correctement mon fichier input dans un autre classeur.
En revanche au niveau de la récupération de mes données j'ai du modifier

'Do While Sheets("INPUT").Cells(i, 1) <> ""

et j'ai mis

Code :

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

Do While Workbooks.Open("INPUT").Cells(i, 1) <> ""

mais ça ne fonctionne toujours pas

[BlueMonkey]

Bonjour,

Je ne suis pas trop sur de qui se passe exactement avec ce code Do While Workbooks.Open("INPUT").Cells(i, 1) <> "".
Mais dans le principe, je ne mettrais pas d'ouverture de fichier dans une boucle.

Remplacer le code de la fonction CreationFichierOutPut() avec celui-ci.
Rmq : Il faudra adapter la correspondance de colonne entre les feuilles Input et Output.
r.Offset(0, 13).Value voulant dire retourne la valeur de la colonne A, décalée de 13 colonnes.

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 CreationFichierOutput()
'Procédure qui alimente une nouvelle feuille avec les données CREST et des données fixes"
 
Dim i As Integer
Dim strDateChanger As String
i = 1
NouvelleFeuille ("OUTPUT")
 
Dim wsIn As Worksheet
Set wsIn = Workbooks(Mid(strNomFichierInput, InStr(1, strNomFichierInput, "\") + 1)).Worksheets("INPUT")
 
Dim r As Range
For Each r In wsIn.Range("A2:A" & wsIn.Range("A" & wsIn.Rows.Count).End(xlUp).Row)
    With Sheets("OUTPUT")
        strDateChanger = r.Offset(0, 4).Value
        .Cells(i, 1) = "PARBGB"
        .Cells(i, 2) = r.Offset(0, 6).Value
        .Cells(i, 3) = "Y"
        .Cells(i, 4) = "R/D"
        .Cells(i, 5) = r.Offset(0, 2).Value
        .Cells(i, 6) = "NEWM"
        .Cells(i, 8) = Right(strDateChanger, 4) & Decode(Mid(strDateChanger, 4, 3), "Jan", "01", _
        "Feb", "02", "Mar", "03", "Apr", "04", "May", "05", "Jun", "06", "Jul", "07", "Aug", "08", "Sep", "09", _
        "Oct", "10", "Nov", "11", "Dec", "12") & Left(strDateChanger, 2)
        .Cells(i, 9) = Format(Date, "yyyymmdd")
        .Cells(i, 15) = r.Offset(0, 8).Value
        .Cells(i, 17) = "FAMT"
        .Cells(i, 18) = r.Offset(0, 11).Value
        .Cells(i, 19) = "100002170100"
        .Cells(i, 35) = "CRSTGB22XXX"
        .Cells(i, 37) = "CRST"
        .Cells(i, 39) = "CRST"
        .Cells(i, 40) = r.Offset(0, 13).Value
        .Cells(i, 41) = r.Offset(0, 14).Value
        .Cells(i, 44) = "CRST"
        .Cells(i, 45) = r.Offset(0, 13).Value
        .Cells(i, 46) = r.Offset(0, 14).Value
    End With
    i = i + 1
Next r
End Sub