Bonjour à tous,
Je vous sollicite car je bloque sur une (petite) macro.
L'objectif est donc de :
- sélectionner les feuilles (à partir de la troisième jusqu'à la dernière);
- d'extraire ces feuilles dans un nouveau classeur (situé dans le même répertoire);
- d'enregistrer ce nouveau classeur grâce à une boîte de dialogue.
Pour la sélection c'est bon (voir code ci-dessous). Mais c'est le seconde étape qui me pose problème. Si vous avez des idées ...
Merci d'avance
Je vous sollicite car je bloque sur une (petite) macro.
L'objectif est donc de :
- sélectionner les feuilles (à partir de la troisième jusqu'à la dernière);
- d'extraire ces feuilles dans un nouveau classeur (situé dans le même répertoire);
- d'enregistrer ce nouveau classeur grâce à une boîte de dialogue.
Pour la sélection c'est bon (voir code ci-dessous). Mais c'est le seconde étape qui me pose problème. Si vous avez des idées ...
Merci d'avance
Code:
Sub SelectionOngletsMultiples()
Sheets(3).Select
For i = 4 To Sheets.Count
Sheets(i).Select False
Next i
End Sub