Discussion :

[grayfox11]

Bonjour a tous et un grand merci pour le forum.

J´ai un problème, j´ai plein de fichier en *wsd (ce sont des fichier csv) et je voudrais les regrouper dans un fichier excel pour pouvoir faire des rapport.

Ces fichiers wsd sont dans diffèrent répertoire mensuel, chaque fichier correspond a un jour du mois. Se que je voudrais c´est prendre les 30 ou 31 fichier et les réunir en un seul pour pouvoir faire un rapport mensuel.

Je sais pas trop par ou commencer, j´avais penser a du code VBA avec de la macro peut être.

Je pensais a ouvrir um fichier excel, faire une macro pour lancer le code vba accoupler a un bouton, il me demande avec quel répertoire je veux travailler, je lui dis par ex. le mois de janvier 2009 et il me réuni tous les fichier *.wsd en un fichier excel (txt, csv par ex.).

Pouvez vous me donner quelque idées svp.

[ouskel'n'or]

Pour le principe :
- Ouvrir chaque fichier qui par structure ne comporte qu'une feuille de calculs
- Copier chaque feuille de calculs dans le fichier principal
ou
- Copier le contenu de chaque feuille à la suite l'un de l'autre dans une feuille unique du fichier principal.

Pour la solution :
- Je pense que tu as l'ouverture de chaque fichier ; il suffira d'ajouter une boucle sur la liste...
- Si tu n'as pas la liste mais que les fichiers sont dans le même répertoire, tu peux les lister avec une boucle sur Dir (tu as la méthode dans l'aide en ligne )
- La copie de chaque feuille de calculs : Tu enregistres en faisant
- La copie de chaque feuille dans une seule : La solution ici si tu lis bien tout

Bon après-midi

[grayfox11]

J´ai essayer le code que vous m´avez dis, dans mon cas je ne veut pas ouvrir les 30 / 31 fichier, je voudrais les copiez tous dans la même feuille dans le même fichier excel pour pouvoir le travailler plus facilement. les fichier on un peut prêt 3025 ligne chacun. Si vous voulez je peut mettre 2 ou 3 jours de ses fichier sur le forum pour vous compreniez mieux de se que je parle.

Je vous remercie de votre aide.

[ouskel'n'or]

Je n'ai pas dit d'ouvrir tous les fichier à la fois mais
- d'ouvrir un txt
- copier les données à la suite dans une feuille de calculs du fichier principal (Thisworkbook)
- puis de refermer le txt
- puis passer au txt suivant de la liste.

Le code que je t'ai indiqué fait ça (Solution 2). Il suffit que tu lui envoies le nom du fichier à copier dans le paramètre CL2, procédure "Sub Copie(CL2 As Workbook)"
Les différences ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        NomFich = Dir(Chemin & "*.wsd")

à la place de

NomFich = Dir(Chemin & "*.xls")

et

Chemin = "D:\xls\Test\"

à remplacer par le vrai chemin (!)

As-tu essayé quelque chose ou attends-tu qu'on te donne le code adapté aux noms de tes fichiers et au chemin qui est le leur ?

[CodeFacile]

Comme je connais les difficultés quand on débute , voici un exemple pour récuperer le contenu de tous les fichiers d'un répertoire choisi :

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
 
Sub importation_fichier_csv()
fichier_principal = ActiveWorkbook.name
 feuillet_principal = ActiveSheet.name
 
filetoopen = Application.GetOpenFilename("Fichiers texte , *.csv; *.txt; *.wsd", 2, Title, MultiSelect)
 
If filetoopen <> False And InStrRev(filetoopen, "\") > 0 Then
  Set fs = CreateObject("Scripting.FileSystemObject")         ' on défini un FileSystem pour traiter des fichiers et répertoires
    chemin_Fichier = Mid(filetoopen, 1, InStrRev(filetoopen, "\"))
 
      Set f_Dir = fs.getFolder(chemin_Fichier).Files  ' f_Dir renvoi la collection des noms de fichier présent dans le G_repertoire quelque  soit le type de fic excel ou autre .
         For Each f1 In f_Dir
               If InStr(1, f1.name, ".wsd") > 0 Then
                   nb_ligne_avant = Workbooks(fichier_principal).Worksheets(feuillet_principal).Range("A65536").End(xlUp).Row
                    Workbooks.Open f1.name     ' il faut déterminer la syntaxe ne fonction des caractéristiques séparateur , format ...
                      feuillet_import = ActiveSheet.name
                      nb_ligne_import = Workbooks(f1.name).Worksheets(feuillet_import).Range("A65536").End(xlUp).Row
                   'on recopie les lignes fichiers
                      Workbooks(fichier_principal).Worksheets(feuillet_principal).Rows(CStr(nb_ligne_avant + 1) & ":" & CStr(nb_ligne_avant + nb_ligne_import)).Value = Workbooks(f1.name).Worksheets(feuillet_import).Rows("1:" & nb_ligne_import).Value
                    Workbooks(f1.name).Close (savechanges = False)
                  nb_fic = nb_fic + 1
                   End If
          Next
 
End If
End Sub