Bonjour,
je vous explique :
J'ai un fichier de synthèse dans lequel je veux copier des feuilles qui sont dans d'autres classeurs. Mais ca ne marche pas.
Voila mon code actuel :
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
41
42
43
44 Sub ouverture() ' ' ouverture Macro ' Macro enregistrée le 24/04/2007 par d824758 ' Dim F ' je vais recuperer les fichiers qui se trouvent dans un dossier. With Application.FileSearch .NewSearch .LookIn = "C:\Documents and Settings\D820060\Bureau\aurelien\test" .Execute On Error Resume Next For Each F In .FoundFiles MsgBox (F) ' pour verification je voulais voir quels fichier il ouvrait Workbooks.Open Filename:= _ F _ , UpdateLinks:=0 Windows(F).Activate ' Active le classeur qu'il a ouvert et copie 3 feuilles dans global_antennes2 Sheets("Synthese article magasin").Select Sheets("Synthese article magasin").Copy Before:=Workbooks("global_antennes2").Sheets(1) Windows(F).Activate Sheets("synthese fourniture de bureau").Select Sheets("synthese fourniture de bureau").Copy After:=Workbooks("global_antennes2"). _ Sheets(1) Windows(F).Activate Sheets("synthese consom. informatique").Select Sheets("synthese consom. informatique").Copy After:=Workbooks("global_antenes2"). _ Sheets(1) Windows(F).Close Next F End With End sub
En fait il ouvre bien tous les fichiers qui se trouvent dans le repertoire indiqué mais il ne copie pas les feuilles, et ne ferme pas les fichiers qui ont ete ouverts.
Partager