Bonjour à tous,

Je suis à la recherche d'un morceau de code qui me permettrait d'envoyer des onglets portant des nom variables (mais dont l'index ne change pas) vers un nouveau classeur que je génère juste avant et que je choisi d'enregistrer qu'à la fin de ma procédure.
Voici pour le moment ce que j'ai pu écrire mais cela ne fonctionne pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub enregistrezsous2()
 
Dim Outilstats As ThisWorkbook 'j'enregistre dans ma macro que mon classeur de travail est celui ci
Dim Nomfichier As String
Nomfichier = Sheets("Accueil").Range("Z6").Value 'recupere la valeur d'une cellule de mon classeur de travail
Workbooks.Add 'je crée un nouveau classeur qui va recevoir les onglets de mon classeur de travail
If ThisWorkbook.Name Like "Classeur*" Then
 
Workbooks(Outilstats).Sheets(3).Copy before:=Workbooks("classeur*").Sheets(1)
Workbooks(Outilstats).Sheets(4).Copy before:=Workbooks("classeur*").Sheets(2)
Application.Dialogs(xlDialogSaveAs).Show arg1:="c:\" & Nomfichier
End If
 
End Sub
Si vous avez une solution je suis preneur, Merci !!

François