Dupliquer feuille avec nom d'une cellule
a
Bonjour,
voici le code que j'ai :
Sub new_inter()
Worksheets("feuil2").Copy Before:=Sheets("Feuil3")
Sheets("feuil2").Range("E13:W23").ClearContents
Worksheets("feuil2").Activate
End SubJe copie la feuille 2 dans une nouvelle feuille et je clear la feuil2 pour enregistrer de nouvelles donnée.
Je voudrai savoir si je pouvais spécifier le nom de la feuil2 selon une case renseigné dans une liste dans une autre feuille a partir de la colonne en B14.
Puis de passé a la case suivante si je clic de nouveau
P.S. : Je vous joint le fichier correspondant
Merci de votre aide
Bonjour,
à tester,
Sub copy_Feuil2()
Dim nom As String
nom = ActiveCell.Value 'crée une nouvelle feuille selon la sélection sur PDT
Worksheets("Feuil2").Visible = True
Worksheets("Feuil2").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
Worksheets("Feuil2").Visible = False
End Sub