Bonjour,
J'ai un petit problème du type "l'indice n'appartient pas à la sélection" avec ce morceau de code.
Sub Fusionner() 'Fusionne les semaines
Dim annee As Integer
Application.DisplayAlerts = False 'Desactive l'affichage de l'alerte de fusion
annee = InputBox("Annee en cours ?", "Annee en cours ?") 'Renseigner l'annee Desiree
Sheets("Original").Copy After:=Sheets(ThisWorkbook.Sheets.Count) ' Creation de l'onglet de l'année
Sheets(ThisWorkbook.Sheets.Count).Name = annee 'Renomme la nouvelle feuille par l'année
Cells(6, 3).Value = annee
Sheets("Jours fériés").Visible = True 'affiche la feuille cachée
Sheets("Jours fériés").Select 'Defusionne pour recalculer les semaines
Rows("1:1").Select
Selection.Copy
Sheets("Jours fériés").Visible = False 'masque la feuille
Sheets([Inline]annee[/Inline]).Select 'colle la ligne dans la nouvelle feuille
End Sub
C'est le 'annee' surligné qui merdouille, si je mets "ThisWorkbook.Sheets.Count" ça marche nickel.
Quelqu'un aurait une idée svp ? Je vous remercie