Discussion :

[Dereck07]

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?

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
45
Sub 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

En faite la base la ligne en rouge etait:

Code :

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

1
2
 
Wkb(1).Sheets("Foreseeable Tasks").Range(Cells(1, 4), Cells(80, 6)).Copy WbsIndicateur.Sheets(1).Cells(1, LFI)

Ca ne marchait pas non plus... lol

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...

[AlainTech]

Essaye ça:

Code :

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

Range(Wkb(1).Sheets(1).Cells(4, 1), Wkb(1).Sheets(1).Cells(6, 80)).Select

[Dereck07]

Oui, bien joué ca marche!
du coup pour le copier j'utilise ca:

Code :

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

    Wkb(1).Sheets("Foreseeable Tasks").Range(Wkb(1).Sheets("Foreseeable Tasks").Cells(4, 1), Wkb(1).Sheets("Foreseeable Tasks").Cells(6, 80)).Copy WbsIndicateur.Sheets(1).Cells(1, LFI)