Bonjour à tous,

Je suis nouveau sur le forum, je suis ingénieur sécurité incendie pour le bâtiment en Suisse.
Pour le traitement de données de simulation j'ai besoin de récupérer les valeurs de plusieurs fichiers CSV et les coller horizontalement dans un fichier excel, un fichier par ligne par ex la colonne " du fichier CSV "A" vers la ligne 2 du fichier Excel, fichier "B" vers ligne 4...

J'aimerais utiliser une boîte de dialogue pour sélectionner les fichiers CSV et que la macro les traite les uns après les autres.

Pour récupérer les données des CSV il faut au préalable les convertir avec la virgule comme séparateur. J'ai enregistré une macro pour récupérer le bout de code mais il me manque l'ouverture à la suite de plusieurs fichiers.
Est-ce qu'un d'entre vous pourrait me donner un coup de main SVP ?

Merci d'avance,
Aymeric

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
 
Workbooks.Open fileName:= _
        "C:\Etudes\Scenario_3\Stade_3-01_occupants.csv"
 
'Converti CSV :
    Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _
        Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1 _
        )), TrailingMinusNumbers:=True
 
    'Sélectionne et copie la colonne 
Range("c2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Windows("Convergence.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
 
'Sélectionne le fichier cible et colle
            Windows("Convergence.xlsm").Activate
    Range("b3").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Windows("Stade_3-01_occupants.csv").Activate
    ActiveWindow.Close False