Imprortation de plusieurs fichiers csv dans un seul classeur

Le 08/02/2016 à 13:22

Bonjour,

Je suis en stage de dernière année d'école d'ingénieur et pendant mon stage j'ai a importer beaucoup de fichiers csv dans des feuilles de calcul (excel ou calc). Pour me simplifier la vie j'aimerais importer les données issues du banc de traction que j'utilise dans mes fichiers excel par l'application d'une macro qui copierait les bonnes cases (environs 400) de mon fichier csv dans mon fichier excel et qui passerait automatiquement au second fichier csv ainsi de suite jusqu'au 5ème.

J'ai créé mon arborescence de fichier comme il suit :

dossier mère

fichier excel
sens 1

essaie 1

essaie 2

essaie 3

essaie 4

essaie 5

-sens 2

essaie 1

essaie 2

essaie 3

essaie 4

essaie 5

-sens 3

essaie 1

essaie 2

essaie 3

essaie 4

essaie 5

J'ai donc les 15 fois 400 cellules a importer dans 3 feuilles de calculs différentes.

j'ai mis le fichier csv exemple attaché au post, seul le numéro change pour chaque essai.

Merci de votre aide

Telchar

40specimen-rawdata-1.csv (5.42 Ko)

Le 10/02/2016 à 09:40

j'ai finalement réussi à créer ma macro, elle sera écrite plus bas. Si vous avez des idées pour l'améliorer je suis preneur

Sub Import()
Dim objShell As Object, objFolder As Object
Dim Chemin As String, fichier As String, WBName As String, File As String

Application.DisplayAlerts = False

    WBName = ActiveWorkbook.Name

    Sheets("trame").Select
    Chemin = Application.ActiveWorkbook.Path & "\TRAME\"

    File = "Specimen_RawData_1.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate

    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("A3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_2.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("I3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_3.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("Q3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_4.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("Y3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_5.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("AG3").Select
    ActiveSheet.Paste
    Windows(File).Close

    Sheets("chaine").Select
    Chemin = Application.ActiveWorkbook.Path & "\CHAINE\"

    File = "Specimen_RawData_1.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate

    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("A3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_2.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("I3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_3.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("Q3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_4.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("Y3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_5.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("AG3").Select
    ActiveSheet.Paste
    Windows(File).Close

    Sheets("biais").Select
    Chemin = Application.ActiveWorkbook.Path & "\BIAIS\"

    File = "Specimen_RawData_1.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate

    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("A3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_2.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("I3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_3.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("Q3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_4.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("Y3").Select
    ActiveSheet.Paste
    Windows(File).Close

    File = "Specimen_RawData_5.csv"

    Workbooks.Open Filename:=Chemin & File, Local:=True, Format:=6, Delimiter:=";"
    Windows(File).Activate
    Range("B20:C220").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows(WBName).Activate
    Range("AG3").Select
    ActiveSheet.Paste
    Windows(File).Close

Application.DisplayAlerts = True

End Sub

Rechercher des sujets similaires à "imprortation fichiers csv seul classeur"