Insertion de feuilles ExcelRésolu

Question

Bonjour,

je souhaite grâce à VB insérer des feuilles dans un classeur Excel. Je fais donc

Dim appExcel As New Excel.Application
Workbooks.Add                    'par défaut une seule feuille constitue mon nouveau classeur
Dim var As Integer
For var  =  2 To 10
   Worksheets.Add
Next

Ensuite je souhaite déplacer mes feuilles pour les mettres dans un ordre précis car le problème est que mes feuilles se crée avant la première feuille et elles sont donc en ordre inverse (10, 9, 8, ..., 1). Existe t-il un paramètre à mettre à Worsheets.Add pour quelles se créent après ma feuille initiale ?

Merci.

jrivet · Accepted Answer

Salut,
Le second parametre de WorkSheets.Add => After

Workbooks.Add                    'par défaut une seule feuille constitue mon nouveau classeur
Dim var As Integer
For var = 2 To 10
  Call Worksheets.Add(, ActiveSheet)
 
Next, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Note: Je ne comprens pas ton commentaire'par défaut une seule feuille constitue mon nouveau classeur
Attention par défaut un classeur possède trois feuilles
@+: Ju£i?n
Pensez: Réponse acceptée

drikce06 · Answer

Salut, pourquoi tu n'utilises pas l'argument after de la méthode Add?

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

RS8 · Answer

Oui par défaut c'est 3 mais pour moi je l'ai réglé à 1. C'est donc par défaut pour moi  même si par défaut n'est pas le terme le plus approprié!

En tout cas ça marche merci à vous deux !

RS8 · Answer

Et autre petite question losque je crée un classeur avec 3 feuilles que j'en supprime deux et que j'en ajoute d'autres pourquoi je n'arrive pas à supprimer la dernière feuille initiale qui reste.

Je fais pourtant : 
Sheets("Feuil1").Select
Sheets("Feuil1").Delete

Merci.

jrivet · Answer

Re,
APres la boucle d'ajout?

@+: Ju£i?n
Pensez: Réponse acceptée

RS8 · Answer

Re,

oui je rajoute plusieurs feuilles d'abord et ensuite je selectionne ma feuille initiale et je veux la supprimer avec Delete mais cela ne fonctionne pas.

Merci!

jrivet · Answer

Re,
Essaie WorkSheets(1).Delete
Si ca ne fonctionne il faut penser à préciser le message d'erreur si il y en à un

@+: Ju£i?n
Pensez: Réponse acceptée

RS8 · Answer

Re, 

Non cela ne fonctionne pas et je n'ai pas de message d'erreur. Mon programme compile, je le lance, j'ai bien toutes les feuilles que j'ai ajouté mais il reste feuille1 malgré que j'ai demandé qu'il la supprime.

Merci.

drikce06 · Answer

Mets ton bout de code mais tout ouverture appli, classeur etc.

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

RS8 · Answer

Voila le code :

Workbooks.Add
WorkSheets(2).Delete
WorkSheets(3).Delete
Dim var As Integer
For var = 2 To 10
  Call Worksheets.Add(, ActiveSheet)
Next

WorkSheets(1).Delete

Merci.

jrivet · Answer

Salut,
Ca fonctionne chez moi, le seul truc c'est le Message Excel qui apparait à chaque fois alors je le supprime avec DisplayAlerts = False.

Dim var As Integer
   Application.DisplayAlerts = False
   Workbooks.ADD
   Worksheets("Feuil3").Delete
   Worksheets("Feuil2").Delete
   For var = 2 To 10
     Call Worksheets.ADD(, ActiveSheet)
   Next
   
   Worksheets("Feuil1").Delete
   Application.DisplayAlerts = True , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

RS8 · Answer

Excellent ça marche !

Merci pour ton aide jrivet!
Bonne continuation!

A +.

Insertion de feuilles Excel

13 réponses

Votre réponse

Discussions similaires