Pbm sur code VBA Right(Sheets(i).Name, 11) = "Factura" & YYY

Le 09/12/2013 à 20:43

Bonsoir le forum,

J'ai bidouillé le code suivant pour pouvoir renommer certaines feuilles d'un fichier avec une année, mais cela bug à ce niveau

Right(Sheets(i).Name, 11) = "Factura" & YYYY

Dim i As Integer
Dim lastyear As Date
lastyear = Year(Worksheets("Menus du mois").Range("A1"))
YYYY = Format(lastyear, "yyyy")
For i = 1 To Sheets.Count
    If Right(Sheets(i).Name, 11) = "Facturation" Then
    Right(Sheets(i).Name, 11) = "Factura" & YYYY
    End If
Next i

Où me suis-je trompé ?

Merci pour toute aide

Ps: le fichier est trop volumineux pour être joint (18M...)

Vincent

Le 09/12/2013 à 21:05

bonsoir,

voir correction dans ton code

vincentt a écrit :
Bonsoir le forum,
J'ai bidouillé le code suivant pour pouvoir renommer certaines feuilles d'un fichier avec une année, mais cela bug à ce niveau
Right(Sheets(i).Name, 11) = "Factura" & YYYY
Dim i As Integer
Dim lastyear As Date
lastyear = Year(Worksheets("Menus du mois").Range("A1"))
YYYY = Format(lastyear, "yyyy")
For i = 1 To Sheets.Count
    If Right(Sheets(i).Name, 11) = "Facturation" Then
   Sheets(i).Name = "Factura" & YYYY
    End If
Next i
Où me suis-je trompé ?
Merci pour toute aide
Ps: le fichier est trop volumineux pour être joint (18M...)
Vincent

Le 09/12/2013 à 21:06

Bonjour

A tester

Sub test()
Dim YYYY As String
Dim i As Integer

YYYY = Format(Worksheets("Menus du mois").Range("A1"), "yyyy")

  For i = 1 To Sheets.Count
    If Right(Sheets(i).Name, 11) = "Facturation" Then
      Sheets(i).Name = Left(Sheets(i).Name, Len(Sheets(i).Name) - 11) & "Factura" & YYYY
    End If
  Next i
End Sub

Le 09/12/2013 à 22:42

Merci !! c'est parfait !

Vincent