Macro copier réunion de feuilles de +eurs classeur

VBA DEAD · 4 Mai 2005

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 · 5 Mai 2005

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 · 6 Mai 2005

: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

Macro copier réunion de feuilles de +eurs classeur

VBA DEAD

Guest

Pièces jointes

MichelXld

XLDnaute Barbatruc

VBA DEAD

Guest

Discussions similaires

Macro copier réunion de feuilles de +eurs classeur

VBA DEAD

Guest

Pièces jointes

MichelXld

XLDnaute Barbatruc

VBA DEAD

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency