Consolidation

Consolidation - VB/VBA/VBS - Programmation

Marsh Posté le 03-09-2007 à 10:41:35    

Salut,
 
j'ai les chiffres de 3 sites S1 S2 et S3 à consolider.
J'ai une copie du meme workbook pour chacun de ces sites.
 
apparemment l'outil Consolidate d'Excel ca a l'air d'etre plus qu'une prise de tete qu'autre chose, j'essayais de pondre une macro pour faire ca:
 
J'avais fait ca: est ce que je suis sur la bonne voie, ou y'a une autre méthode plus simple?
merchi  :bounce:  

Code :
  1. Sub consolider()
  3. Dim S1, S2, S3 As String
  4. Dim Sites, Pages As Variant
  5. Dim NumCol, NumLigne As Integer
  7. Path = "H:\My Documents\2007\"
  9. S1 = Path & "S1 2007.xls"
  10. S2 = Path & "S2 2007.xls"
  11. S3 = Path & "S3 2007.xls"
  13. Sites = Array("S1", "S2", "S3" )
  14. Pages = Array("W1","W2" )
  17. For NumCol = 3 To 14
  18.     For NumLigne = 14 To 30
  19.         For Each P In Pages
  20.         Sheets(P).Select
  21.         Cells(NumLigne, NumCol).Select
  22.         ActiveCell.FormulaR1C1 = "=SUM("
  23.             For Each S In Sites
  24.                 ActiveCell.FormulaR1C1 = "'" & S & "]" & P & "!R" & NumLigne & "C" & NumCol & " )"
  25.             Next E
  26.         Next P
  27.     Next NumLigne
  28. Next NumCol
  29. End Sub


Reply

Marsh Posté le 03-09-2007 à 10:41:35   

Reply

Marsh Posté le 04-09-2007 à 10:08:05    

For Each P In Pages
    For NumCol = 3 To 14
        For NumLigne = 14 To 30
                Cells(NumLigne, NumCol).Select
                For Each E In Entites
                    temp = Workbooks(E).Sheets(P).Cells(NumLigne, NumCol)
                    MsgBox (Workbooks(E).Sheets(P).Cells(NumLigne, NumCol))
                    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1 + temp
                Next E
        Next NumLigne
    Next NumCol
 Next P
 
 
Finalement j'ai fait ca: le seul souci que j'ai c'est, si le fichier qui correspond à E n'est pas ouvert, il me sort une erreur. Qu'est ce que je dois rajouter pour qu'il ne fasse pas ca?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed