XL 2016 Copie onglets avec macro affecter à un bouton

Bonjour Maxou,
Si la feuille à supprimer a toujours le même nom il suffit de rajouter juste avant End Sub :

Hello Sylvanu,

Merci beaucoup pour ton aide !!
J'ai désormais uniquement mes onglets que je souhaite copié dans un nouveau classeur et je n'ai plus la feuille1 vierge !

Merciiiiii !!

Bonjour Sylvanu,

Je reviens sur le sujet, j'ai encore une question..

Lorsque que je copie mes feuilles dans un nouveau classeur tout se passe très bien.
Sur un des mes onglets j'ai deux listes déroulantes dans deux cellules, alors la 1ere marche très bien sans soucis, mais la deuxième ne s'affiche pas
Aurai tu une idée sur ce petit soucis ?

Merci beaucoup !

Bonjour,
Sans fichier, difficile de diagnostiquer.
La liste qui est appelée par la seconde liste déroulante est elle dans la feuille qui est exportée ?

Bonjour Sylvanu,

Merci pour ton aide !
La liste est dans le fichier initial, mais elle n'est pas présente dans le fichier exporté dans le nouveau classeur

Je te joins le fichier pour avoir une visibilité !

Où est la liste déroulante qui pose problème ? et quelle est la feuille exportée ?

Dans l'onglet RH FORM, tu cliques sur le bouton "Employee Form"
L'onglet employee form sera exporter sur une nouvelle feuille et dans la cellule D5 de la feuille exporté, la liste déroulante ne fonctionne pas

Je ne comprends pas.
Dans la cellule D5 de Employee Form qui correspond à Statut, il n'y a pas de liste déroulante. Donc pas de liste non plus dans la feuille exportée.
La seule liste qui existe est celle en D4 : Titre.

J'ai trouver ma solution pour cela, je vais finalement créer la macro pour que ma feuille Lists soit copié aussi dans le nouveau classeur mais masqué afin que les listes déroulantes soient disponibles

J'ai une autre question ducoup...

Sub EmployeeForm()
'
' EmployeeForm Macro
'

'
ActiveWorkbook.Save
Sheets(Array("Employee Form", "Lists")).Select
Sheets("Employee Form").Activate
Sheets(Array("Employee Form", "Lists")).Copy
Sheets("Lists").Select
ActiveWindow.SelectedSheets.Visible = False
chemin = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:=Worksheets("Feuil5").Range(R2).Value, CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show
End Sub


Dans ce code, j'ai fait en sorte de copier l'onglet EMPLOYEE FORM et LISTS
L'onglet LISTS est masqué dans le nouveau classeur
Et je souhaite, enregistrer le nouveau classeur dans un dossier particulier et que le nom du fichier soit égal au contenu d'une cellule de l'onglet LIST
Mais je n'arrive pas à faire en sorte que mon nouveau fichier soit nommé par le contenu d'une cellule..

Bonjour Maxou,
Vous n'avez pas répondu à ma question. En D5 il n'y a pas de liste déroulante?
Pour le second point, j'ai testé cela avec succés :

Bonjour Sylvanu,
En effet en D5 il me manque la Liste déroulante qui devrait être dans cette cellule, je ne comprenais pas pourquoi elle était disponible sur la cellule TITLE et non dans la cellule D5.. Finalement si je copie l'onglet LISTS où se trouve la base de la liste avec l'onglet Employee Form tout fonctionne

Pour la deuxième partie, je souhaite conserver le code VBA pour la copie de mes deux onglets et l'enregistrer dans un dossier partagé :

Sub Enregistrer sous()
'
' EmployeeForm Macro
'

'
ActiveWorkbook.Save
Sheets(Array("Employee Form", "Lists")).Select
Sheets("Employee Form").Activate
Sheets(Array("Employee Form", "Lists")).Copy
Sheets("Lists").Select
ActiveWindow.SelectedSheets.Visible = False
Chemin = " ' Mettre le chemin, ne pas oublier le "\" final."
NomFichier = ' Mettre la cellule où se trouve le nom du fichier'
ActiveWorkbook.SaveAs Filename:=Chemin & NomFichier, _
FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Application.Dialogs(xlDialogSendMail).Show
End Sub

Le nom du fichier se trouve sur l'onglet LISTS en cellule R2, mon code sera alors
Nom fichier = Sheets("Lists") [R2] ?
je n'arrive pas à implementer le code que tu m'as donné dans le code que j'ai déjà..

Merci beaucoup pour ton aide !