Discussion :

[tieumav]

Bonjour,
Je recherche un peu d'aide pour VBA.
J'ai un dossier qui contient environ 100 fichiers .csv.
Dans ces fichiers il y a toujours 4 cases à la même position qui m'intéresse B3 à B6.
Je souhaiterais les copier et les mettre dans un autre fichier avec la case B3 en A1, la case B4 en B1, la case B5 en C1 et la case B6 en D1.
Fermer le fichier .cvs ouvert, ouvrir le prochain recommencer en copiant les valeurs dans les mêmes colonnes mais en dessous.

Si vous avez une idée merci

[tieumav]

Voici quelque chose qui marche bien mais pas très esthétique.
De plus j'ai eu un autre soucis avec les fichiers .csv, ils s'ouvrent d'une façon déjà convertis mais par les virgules et non les points-virgules. Je ne sais pas pourquoi.
En tout cas ça marche, je suis content. Si vous avez une plus grande esthétique. Je suis preneur.

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
42
43
44
45
46
47
48
49
50
51
52
Sub copiefichiersanum_ds_1_seul_fichier()
 
Range("A1").Select 'sélectionner la cellule de début
Chemin = "C:\Users\uidp7048\Desktop\force to seat\VERIFICATION FORCE TO SEAT FORCE TO PULL OUT TG1D R (COATING CONF 1).is_comp_RawData\" 'saisir le chemin complet du dossier où se trouvent les fichiers
Fichier = Dir(Chemin & "*.csv") ' Premier fichier
    Do While Fichier <> ""
        Workbooks.Open Filename:=Chemin & Fichier
        'copier déplacer la feuille vers anum
        Windows(Fichier).Activate
 
'
    Range("A3").Select
    ActiveCell.FormulaR1C1 = ActiveCell & ","
    Range("A4").Select
    ActiveCell.FormulaR1C1 = ActiveCell & ","
    Range("A5").Select
    ActiveCell.FormulaR1C1 = ActiveCell & ","
    Range("A6").Select
    ActiveCell.FormulaR1C1 = ActiveCell & ","
 
    Range("B3").Select
 
   Do While ActiveCell <> ""  'Loops until the active cell is blank.
 
      'The "&" must have a space on both sides or it will be
      'treated as a variable type of long integer.
 
      ActiveCell.Offset(0, 1).FormulaR1C1 = _
         ActiveCell.Offset(0, -1) & "" & ActiveCell.Offset(0, 0)
 
      ActiveCell.Offset(1, 0).Select
   Loop
 
    Range("C3:C6").Select
    Selection.TextToColumns Destination:=Range("C3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1)), TrailingMinusNumbers:=True
    Range("D3:D6").Select
    Selection.Copy
 
    Windows("anum.xlsx").Activate
 
    ActiveSheet.Range("a1").End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
 
        Windows(Fichier).Activate 'revenir au ficher anum
        ActiveWorkbook.Close savechanges:=False
        Fichier = Dir ' Fichier suivant
Loop
End Sub

[Marc-L]

Bonjour !

‼ (cf règles de ce forum)

De plus j'ai eu un autre soucis avec les fichiers .csv, ils s'ouvrent d'une façon déjà convertis mais par les virgules et non les points-virgules.
Je ne sais pas pourquoi.

Je sais pourquoi : mauvais code …

Tout dépend déjà de la structure du fichier importé et comme on ne peut la deviner …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …