macro creer des feuilles message d'erreur

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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é"
 
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
Code:
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é"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
770
S
  • Question Question
Réponses
4
Affichages
2 K
E
Retour