S'il s'agit d'afficher tous les classeurs d'un seul coup.
Enregistrer un environnement...........
"Olivier" a écrit dans le message de news:eO4chIu%
Bonjour,
Existe t il une fonction permettant de regrouper simultanement plusieurs classeur en 1 seul ??
Merci
Nicolas B.
Salut,
Ouvre tous les classeurs que tu veux rassembler. Ouvre le classeur dans lequel tu veux copier les feuilles (le classeur qui va tout contenir). Garde ce classeur actif et exécute le code ci-dessous :
Sub Rassembler() For Each wb In Application.Workbooks If wb.Name <> ActiveWorkbook.Name Then For Each sht In wb.Sheets sht.Copy After:¬tiveWorkbook.Sheets(Sheets.Count) Next End If Next End Sub
Les feuilles des classeurs ouverts seront copiées à la suite des feuilles contenues dans le classeur général.
Existe t il une fonction permettant de regrouper simultanement plusieurs classeur en 1 seul ??
Merci
Salut,
Ouvre tous les classeurs que tu veux rassembler.
Ouvre le classeur dans lequel tu veux copier les feuilles (le classeur qui
va tout contenir). Garde ce classeur actif et exécute le code ci-dessous :
Sub Rassembler()
For Each wb In Application.Workbooks
If wb.Name <> ActiveWorkbook.Name Then
For Each sht In wb.Sheets
sht.Copy After:¬tiveWorkbook.Sheets(Sheets.Count)
Next
End If
Next
End Sub
Les feuilles des classeurs ouverts seront copiées à la suite des feuilles
contenues dans le classeur général.
Ouvre tous les classeurs que tu veux rassembler. Ouvre le classeur dans lequel tu veux copier les feuilles (le classeur qui va tout contenir). Garde ce classeur actif et exécute le code ci-dessous :
Sub Rassembler() For Each wb In Application.Workbooks If wb.Name <> ActiveWorkbook.Name Then For Each sht In wb.Sheets sht.Copy After:¬tiveWorkbook.Sheets(Sheets.Count) Next End If Next End Sub
Les feuilles des classeurs ouverts seront copiées à la suite des feuilles contenues dans le classeur général.
