Importer plusieurs plages fixes de plusieurs feuilles

**macat** · 11/03/2008, 16h39

Bonsoir à tous,

Je ne comprends pas vraiment ce que je lis lors de ma recherche sur le forum et je ne veux pas faire de bêtise en recopiant bêtement vos formules. Cependant j’aimerai bien me simplifier un travail par macro.

Je réceptionne un dossier par mois contenant des fichiers Excel nommés par date (01.01.08) comprennant deux feuilles chacun (arbre et fleur), format identique.
Je cherche à récupérer 2 plages de cellules par feuille pour tous les fichiers du mois et à envoyer ces données dans une feuille nommées "noms vérifiés JANV", à la queue le leu en colonne A. (environ 350 noms attendus sur janvier).

Je ne suis pas bien à l’aise en VBA, et en création automatique de macro je n'ai pas le résultat que j'attends.

Merci de votre aide.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Récupérationnoms()
'
' Récupérationnoms Macro
' Macro enregistrée le 12/02/2008 par Tellines
'
'
    Range("B3:B15").Select
    Selection.Copy
    Windows("noms vérifiés JANV.xls").Activate
    Range("A7").Select
    ActiveSheet.Paste
    Windows("01.01.08.xls").Activate
    Range("B19:B28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("noms vérifiés JANV.xls").Activate
    Range("A20").Select
    ActiveSheet.Paste
    Windows("01.01.08.xls").Activate
    Sheets("arbre").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("B3:B15").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("noms vérifiés JANV.xls").Activate
    ActiveWindow.SmallScroll Down:=8
    Range("A30").Select
    ActiveSheet.Paste
    Windows("01.01.08.xls").Activate
    ActiveWindow.SmallScroll Down:=4
    Range("B19:B28").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("noms vérifiés JANV.xls").Activate
    ActiveWindow.SmallScroll Down:=14
    Range("A43").Select
    ActiveSheet.Paste
    Range("D41").Select
    ActiveWindow.SmallScroll Down:=-28
End Sub

**kiki29** · 11/03/2008, 17h27

Salut, via ADO mais il faudra l'adapter, voir ADO_03.zip sur http://www.developpez.net/forums/sho...d.php?t=506315

Si tu avais un échantillon de fichiers xx.xx.xx.xls cela serait plus facile

**macat** · 11/03/2008, 18h00

Merci pour la réponse.

J'avais vu cette discution, mais c'est un peu du "charabia" pour moi. C'est à dire que je suis incapable de transformer.

Que mes fichiers soit ouverts ne me dérange pas plus que ça.
Si c'est plus dur à faire quand ils sont fermés, tant pis.

Mais plus clair un petit fichier joint vide.

Bonne soirée.