Récupération de données via un autre fichier

Version imprimable

05/03/2012, 15h20
Dexter81

Récupération de données via un autre fichier

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

Bonsoir,

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

Code:

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 ",".

06/03/2012, 10h04
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:

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

mais ça ne fonctionne toujours pas

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:

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