VBA - Excel : Importation de fichier multiple .csv à .Xls

Fermé
Patrick - 14 mars 2014 à 15:02
 Patrick - 14 mars 2014 à 15:33
Bonjour,

J'ai peu d'expérience de programmation et celle que j'ai date.... J'ai besoin d'aide...

J'ai:

Un répertoire parent qui peut changer dans le future
Donc je veux positionner mon fichier source n'importe où sur mon disque dure, et il s'adaptera au dossier parent qui contiendra les données

Dans ce répertoire parent, j'ai N sous répertoire (pour chaque mois d'années des donnée que j'ai à importer...

Dans chacun des répertoire, j'ai des fichier .csv d'une seule feuille, avec ligne 1 toujours pareil, et les données à importé vont de la ligne 2 à infini... (un fichier par jour)

Dans le répertoire parent, à coté des sous répertoires,
J'ai créer un fichier "procédure.xls", où seront les instructions pour futures références, et dans lequel la macro sera...

Je veux créer un fichier destination nommé "compilation {date et heure}.xls", qui sera lui aussi dans le répertoire parent...

à date j'ai quelque chose qui ressemble à ça.. 

' Création du fichier compilé
    Workbooks.Add
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Date de saisie"
    Range("B1").Select
    ActiveCell.FormulaR1C1 = "Date de contribution"
    Range("C1").Select
    ActiveCell.FormulaR1C1 = "Date de réception"
    Range("D1").Select
    ActiveCell.FormulaR1C1 = "No contribution"
Ainsi de suite jusqu'à ce que la ligne 1 (entête) du fichier destination.xls soit créé

Puis je sauvegarde le fichier avec cette commande: 
ActiveWorkbook.SaveAs "Compilation " & Format(Now, "dd-MM-YY h-mm-ss") & ".xls"
Ce qui sauvegarde le nom de fichier correctement, mais ça le met dans le répertoire actif....

1- Comment je peux faire pour le mettre dans le répertoire parent?

Est ce que je suis obligé de saisir le chemin d'accès du fichier procédure.xls au début, et la garder dans une variable? Ou est ce qu'il y a de quoi de plus simple... ?

J'ai besoin d'aide par la suite pour remplir le fichier...
Je pensais faire la macro en saisissant toute les cellules du tableau, et en désélectionnant la ligne 1, mais ça ne fonctionne pas...

Bon..

2.1- J'ai besoin d'un while qui ouvre les sous répertoires un après l'autre....
à la fin de ce while, l'importation se termine

2.2 - à l'intérieur de ce while, un autre while qui lui ouvre tout les fichier csv un après l'autre

2.3 - Et à l'intérieur, un troisième while qui importe toutes les lignes une à une à partir de la ligne 2 du csv courant, vers la prochaine ligne vide du "compilation {date, heure} créé précédemment

Après j'ai de la mise en page à faire dnas le fichier destination, mais ça je sais faire...
A voir également:

1 réponse

Réponse 1 / 1
Patrick
14 mars 2014 à 15:33
JE viens de voir en fait qu'il y a une fonction d'importation de donnée dans excel pour les fichier text...

Quand j'enregistre la fonction, ça me donne: 

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\ps\Desktop\Contributions\2013-01 (janvier)\FichierQuotidienDesContributions_2013-01-03-01_00083_61634-2.csv" _
        , Destination:=Range("$A$2"))
        .Name = "FichierQuotidienDesContributions_2013-01-03-01_00083_61634-2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 1252
        .TextFileStartRow = 2
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    ActiveWindow.SmallScroll Down:=-15
End Sub


Il y a surement une partie de ça qui peut servir... :)
0