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 dans le fichier destination, mais ça je sais faire...