Bonjour,
Le bute des ce code est d'ouvir plusieurs classeurs excel pour en extraire des infos et les copier dans un classeur commun.
TabFileName() contient la liste des chemins d'accès au classeur à traiter.
Je stoque les classeurs ouverts dans un tableau: Wkb(50) As Workbook
Les infos recoltées sont sauvegardées dans WbsIndicateur.
Le code si dessous fonctionne trés bien jusqu'à la ligne en rouge et je ne comprends vraimant pas pk?
En faite la base la ligne en rouge etait:Code:
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
45Sub CréateIndicateurFile(TabFileName() As String, NbFiles As Integer) Dim WbsIndicateur As Workbook Dim Wkb(50) As Workbook Dim Erreur(50) As Boolean Dim InitialFileName, fileSaveName As String Dim NoSemaine As String, S As String Dim L_Copy1 As Integer, L_Copy2 As Integer Dim L As Integer, LFI As Integer 'ouverture de tout les fichiers à traiter L = 1 Do While L <= NbFiles ' Procédure pour ouvrir un wks Workbooks.Open TabFileName(L) Set Wkb(L) = ActiveWorkbook L = L + 1 Loop 'Création de Classeur comptenant les indicateur Workbooks.Add Set WbsIndicateur = ActiveWorkbook WbsIndicateur.Sheets.Add Before:=Sheets(1) WbsIndicateur.Sheets(1).Name = "Time Base" WbsIndicateur.Sheets(1).Cells(1, 4).Formula = "date" WbsIndicateur.Sheets(1).Cells(1, 5).Formula = "Coef" LFI = 2 L = 1 Do While L <= NbFiles ' copie des nom de sous lot,Agreement date" et coef S = Wkb(L).Sheets("Foreseeable Tasks").Cells(1, 1).Formula WbsIndicateur.Sheets(1).Cells(LFI, 3) = S S = Wkb(L).Sheets("Foreseeable Tasks").Cells(1, 5).Value WbsIndicateur.Sheets(1).Cells(LFI, 4) = S S = Wkb(L).Sheets("Foreseeable Tasks").Cells(1, 3).Value WbsIndicateur.Sheets(1).Cells(LFI, 5) = S L = L + 1 LFI = LFI + 1 Loop 'ajout du titre des colonnes Wkb(1).Sheets(1).Range(Cells(4, 1), Cells(6, 80)).Select
Ca ne marchait pas non plus... lolCode:
2
Comprenez vous ce qui cloche dans ce que j'ai fait?
Apres si vous avez des conseils à me donner pour faire la même chose d'une mainère plus élégante je suis aussi preneur...
:?
