houssine77
XLDnaute Nouveau
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é"
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é"