Discussion :

[gildo]

Bonjour,

Je cherche à créer un fichier plat à partir d’une kyrielle de fichiers Excel environ 1000.
Les informations que je veux importer dans mon fichier vont de la cellule B14 à I 40, si la ligne 14 est toujours renseignée ce n’est pas forcément le cas pour les autres et je cherche à éviter les blancs.
Je veux donc automatiser l’import de touts mes fichiers en une fois dans mon nouveau fichier à partir de A1.
Les fichiers à importer sont tous dans le même répertoire.
Aujourd’hui je me patouille dans les intersect et les Dir mais je n’y arrive pas.
Si vous avez un conseil il est le bienvenu par avance merci.

[illight]

A priori tu as déja commencer a écrire quelquechose. TU peux nous montrer ?


C'est effectivement la fonction Dir, principalement qu'il va falloir utiliser si tu veux concaténer tous tes fichiers Excel, pour les parcourir.

[gildo]

mon truc c'est môche et ça ne marche pas

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
Sub toto()
 
 
 répertoire = ActiveWorkbook.Path
 Application.ScreenUpdating = False
    nf = Dir(répertoire & "\*.xls")
    nf1 = répertoire & "\" & nf
 Do While nf <> ""
 nf1 = répertoire & "\" & nf
 Workbooks.Open Dir(nf1)
 Sheets("2").Select
 
'   Intersect(Range("B16", Range("IV" & Range("B:IV").Find("*", , , , xlByRows, xlPrevious).Row)), _
'Selection.CurrentRegion).Select
 
Selection.Copy
Workbooks("recup_1.xls").Activate
Sheets("keops").Select
ActiveSheet.Paste
 Workbooks(nf).Close SaveChanges:=False
 nf = Dir(répertoire & "\*.xls")
 nf = Dir
 Loop
 
End Sub

[illight]

Tu devrais aller voir la :


http://www.developpez.net/forums/sho...asseur+ferm%E9


Je pense que ce post pourra t'aider fortement, si j'ai bien compris ta demande au départ