macro creer des feuilles message d'erreur

[houssine77]

Bonjour a tous
j'ai creer cette macro pour creer des feuilles automatiquement mais j'ai toujours un message d'erreur pouvez vous m'aidé svp merci ci joint le code
Sheets("Accueil").Select
Sheets.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "Sommaire"
Sheets("Accueil").Select
Sheets("Accueil").Move Before:=Sheets(Accueil)
Sheets("Sommaire").Select
Sheets.Add
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "Structure Juridique"
Sheets("Sommaire").Select
Sheets("Sommaire").Move Before:=Sheets(1)
Sheets("Structure Juridique").Select
Sheets.Add
Sheets("Feuil3").Select
Sheets("Feuil3").Move After:=Sheets(2)
Sheets("Feuil3").Select
Sheets("Feuil3").Name = "Autres Information"
Sheets("Autres Information").Select
Sheets.Add
Sheets("Feuil4").Select
Sheets("Feuil4").Move After:=Sheets(4)
Sheets("Feuil4").Select
Sheets("Feuil5").Name = "Investissements"
Sheets("Investissements").Select
Sheets.Add
Sheets("Feuil6").Select
Sheets("Feuil6").Move After:=Sheets(5)
Sheets("Feuil6").Select
Sheets("feuil6").Name = "Amortissements"
Sheets.Add
Sheets("Feuil7").Select
Sheets("feuil7").Move After:=Sheets(6)
Sheets("feuil7").Select
Sheets("Feuil7").Name = "Financement des emprunts"
Sheets.Add
Sheets("Feuil8").Select
Sheets("feuil8").Move After:=Sheets(7)
Sheets("feuil8").Select
Sheets("Feuil8").Name = "Remboursements des emprunts"
Sheets.Add
Sheets("Feuil9").Select
Sheets("feuil9").Move After:=Sheets(8)
Sheets("feuil9").Select
Sheets("Feuil9").Name = "Activité"
Sheets.Add
Sheets("Feuil10").Select
Sheets("feuil10").Move After:=Sheets(9)
Sheets("feuil10").Select
Sheets("Feuil10").Name = "Charges de Personnel"
Sheets.Add
Sheets("Feuil11").Select
Sheets("feuil11").Move After:=Sheets(10)
Sheets("feuil11").Select
Sheets("Feuil11").Name = "Compte de résultat synthétique"
Sheets.Add
Sheets("Feuil12").Select
Sheets("feuil12").Move After:=Sheets(11)
Sheets("feuil12").Select
Sheets("Feuil12").Name = "Compte de résultat détaillé"
Sheets.Add
Sheets("Feuil13").Select
Sheets("feuil13").Move After:=Sheets(12)
Sheets("feuil13").Select
Sheets("Feuil13").Name = "Ratio d'exploitation"
Sheets.Add
Sheets("Feuil14").Select
Sheets("feuil14").Move After:=Sheets(13)
Sheets("feuil14").Select
Sheets("Feuil14").Name = "Seuil de rentabilité"

 

[Bernard_XLD]

Re : macro creer des feuilles message d'erreur

Bonjour

il ne faut jamais utiliser comme référence des noms donnés par le système, ceux peuvent de plus changer en fonction des versions d'excel
utilise plutôt un code ou tu affectes toi même des noms ou des références
le code suivant crée les feuilles en les plaçant directement au bon endroit dans le classeur et les renomme directement

Cordialement

Sheets.Add before:=Sheets(1)
ActiveSheet.Name = "Sommaire"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Structure Juridique"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Autres Information"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Investissements"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Amortissements"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Financement des emprunts"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Activité"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Charges de Personnel"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Compte de résultat synthétique"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Compte de résultat détaillé"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Ratio d'exploitation"
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Seuil de rentabilité"

 

[houssine77]

Re : macro creer des feuilles message d'erreur

Merci pour la reponse je te tiens note ca marche