Copy.Sheet

Le 06/01/2018 à 11:56

Bonjour,

J'ai un petit souci..

J'essaye de copier un onglet à partir d'un model, plusieurs souci....

1/ Je n'arrive pas à appliquer le format "00" au comptage..

2/ Le compte commence à partir de 2 vu que mon model est sheet1 mais masqué.

3/ Que j'utilise After ou Before je n'ai pas l'effet escompté, je voudrais que mon dernier onglet copier soit le premier..

Le nom de l'onglet est censé donner quelque chose tel que JAN_18_BL01 nom fichier_fixecompte

Merci pour votre aide.

Sub copysh()
Dim fichier As String, pos&
fichier = ActiveWorkbook.Name
pos = InStr(fichier, ".xls")

Dim ws1 As Worksheet
Set ws1 = Worksheets("Model")
ws1.Copy After:=Sheets(ThisWorkbook.Sheets.Count)
ActiveSheet.Name = Left(fichier, pos - 1) & "_BL0" & Application.Sheets.Count

End Sub

Le 06/01/2018 à 12:16

Bonjour,

Essaie ainsi :

ActiveSheet.Name = Left(fichier, pos - 1) & "_BL" & Format(Application.Sheets.Count - 1, "00")

Mais je ne suis pas certain de tout comprendre.

Cdlt.

Le 06/01/2018 à 12:22

Rapide et efficace merci Jean-Eric,

Il manque que l'ordre décroissant mais au pire je vais faire sans

Jean-Eric a écrit :
Bonjour,
Essaie ainsi :
ActiveSheet.Name = Left(fichier, pos - 1) & "_BL" & Format(Application.Sheets.Count - 1, "00")
Mais je ne suis pas certain de tout comprendre.
Cdlt.

Le 09/01/2018 à 07:34

Bonjour à tous,

J'ai un petit souci supplémentaire que je n'avais pas pris en considération !

La feuille model que j'utilise je voulais la mettre en masquer, or quand j'utilise ma macro pour créer un doublon les proprietés de la feuille sont aussi copié du coup toutes les nouvelles feuilles que je créer se retrouves masquées :/

Que faire ?

Le 09/01/2018 à 08:22

Bonjour,

Ajoute :