Discussion :

[la-breche]

j'utilise la procedure suivante pour ouvrir une nouvelle feuille dans mon classeur et la nommer par le code de l'agence suivi d'un numero de feuille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function nouvelleFeuille(cpv As String) As String
 Dim i As Integer
 i = 1
 For Each s In Sheets
  If Left(s.Name, Len(cpv)) = cpv Then
   If i >= CInt(Right(s.Name, 1)) + 1 Then
    i = i
   Else
    i = CInt(Right(s.Name, 1)) + 1
   End If
  End If
 Next

'ici je copie une feuille matrice (sheets.count=6)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Sheets(1).Copy after:=Sheets(Sheets.Count)

'ici je veu renomer la nouvelle feuille (sheets.count=6+nouvelle=7)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Sheets(Sheets.Count).Name = cpv & "-" & i
 nouvelleFeuille = cpv & "-" & i
End Function

mon probleme est que je doit cacher mes feuille de données (FORMAT-feuille-masquer) et lorsque la dernière (feuil6) est cachée également il la renome au lieu de renomer celle qui vien d'etre créée (feuil7).Ce probleme ne se pose pas lorsque ma feuil6 est affichée.

je ne suis suremetn pas assez claire, n'hesiter pas a me demander des precisions, merci

[ouskel'n'or]

mon probleme est que je doit cacher mes feuille de données (FORMAT-feuille-masquer) et lorsque la dernière (feuil6) est cachée également il la renome au lieu de renomer celle qui vien d'etre créée

Tu peux essayer ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Sheets(1).Copy after:=Sheets(Sheets.Count)
Activesheet.Name = cpv & "-" & i

Mais je ne comprends pas une chose : La dernière feuille, avant la copie, elle est bien affichée (Excel n'accepte pas que toutes les feuilles soient masquées)
A quel moment la masques-tu ?

[la-breche]

merci bien sa me debloque!