Macro copier réunion de feuilles de +eurs classeur

[VBA DEAD]

Bonsoir à tous,

J'ai un petit problème de macro.

J'ai une macro (exemple ci-joint) qui réunit ds un fichier excel intitulé 'base.xls' les feuilles des classeurs ouverts mais cette macro copie toutes les feuilles alors que je voudrais qu'elle ne transfère ds le fichier 'base' que la feuille 'expenses' des fichiers excel ouverts.

Quelle partie dois je modifier? Et si mes feuilles s'appellent 'Expenses + nom pays' (nom variable) comment puis je expliquer à ma macro de copier les feuilles dont l'onglet contient le terme 'expenses'.

Enfin, je voudrais que ds 'Base.xls', ma feuille 'expenses' face la somme des feuilles copiées.
Est-ce possible via une macro?

Merci pour votre aide


VBA DEAD
[file name=Macro reunion fichier_20050504175723.zip size=18790]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Macro reunion fichier_20050504175723.zip[/file]

 

[MichelXld]

bonjour VbaHead

j'espere que cette adaptation répondra à ta demande



Option Compare Text
Private Sub CommandButton1_Click()
Dim i As Byte, x As Byte
Dim j As Byte
Dim Wb As Workbook
Dim Ws As Worksheet

Application.ScreenUpdating = False

For i = 1 To Workbooks.Count
If Workbooks(i).Name <> 'Base.xls' Then

For j = 1 To Workbooks(i).Worksheets.Count
If Workbooks(i).Sheets(j).Name Like '*Expenses*' Then
Workbooks(i).Sheets(j).Copy Before:=Workbooks('Base.xls').Sheets('Timesheet')

For x = 2 To 5
ThisWorkbook.Sheets('Expenses').Cells(x, 2) = _
ThisWorkbook.Sheets('Expenses').Cells(x, 2) + Workbooks(i).Sheets(j).Cells(x, 2)
Next x

End If
Next j

End If
Next i
Application.ScreenUpdating = True

End Sub


bone sournée
MichelXld

 

[VBA DEAD]

:woohoo:

Ben c'est super!!! Je te remercie c'est exactement ce que je cherchais.

Bonne journée à tous et merci à toi pour ton aide.

VBA DEAD