Feuilles ExcelRésolu

Question

Bonjour, 

je souhaite ouvrir un classeur Excel via vb6 et j'utilise le code suivant qui fonctionne : 

Dim app As New Excel.Application
Workbooks.Add
Sheets("Feuil1").Select
Sheets("Feuil1").Name = "NomFeuille1"
Sheets("Feuil2").Select
Sheets("Feuil2").Name = "NomFeuille2"
Sheets("Feuil3").Select
Sheets("Feuil3").Name = "NomFeuiile3"

Mais je ne sais pas pourquoi je ne peut ouvrir que 3 feuilles !
Y a t-il une autre méthode me permettant de créer un classeur avec autant de feuilles que je veux ?

Merci !

drikce06 · Accepted Answer

Si si c'est dans la boucle sinon ça marchera jamais désolé, sinon déclare ta variable en public dans un module et c'est bon.

http://www.vbfrance.com/auteurdetail.aspx?ID=786090 Dim app As New Excel.Application
Dim NbrFeuilleQueTuVeux As Integer
  
app .SheetsInNewWorkbook = NbrFeuilleQueTuVeux

Workbooks.Add 

For i=1 to NbrFeuilleQueTuVeux

Sheets(i).Name = "NomFeuille" & i

Next

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

drikce06 · Answer

Salut un classeur vierge n'as que 3 feuille à la base, à toi d'en rajouter autant que tu veux avec worksheets.Add

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

cs_casy · Answer

"...un classeur vierge n'as que 3 feuille à la base..." 

Et encore dans la configuration par Défaut d'Excel, mais cela est modifiable, chez moi il n'y a qu'une seule feuille dans les nouveaux classeurs.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

drikce06 · Answer

Oui tout à fais casy; j'avais oublié ce paramètre!

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

drikce06 · Answer

Dim app As New Excel.Application
Dim NbrFeuilleQueTuVeux As Integer
  
app .SheetsInNewWorkbook = NbrFeuilleQueTuVeux

Workbooks.Add 

Sheets(i).Name = "NomFeuille" & i

For i=1 to NbrFeuilleQueTuVeux

Next

Et Après si tu veux tu réinitialise à 3 feuilles ou ce que tu veux
app .SheetsInNewWorkbook = 3

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

RS8 · Answer

Merci Drikce je ne sais pas encore si ça marche car j'ai un autre souci !

Je n'arrive pas à utiliser une variable dans une autre form ! Elle est pourtant en public et j'ai le code suivant :

Dans la première Form :   
 Public MaVariable As Integer

Dans la seconde :
 Dim résultat As Integer
 résultat = Form1.MaVariable

Pöurquoi cela ne marche pas ?

Et tu es sur que  Sheets(i).Name = "NomFeuille" & i n'est pas dans ta boucle For ?

Merci.

RS8 · Answer

Qu'appelles-tu module ?

drikce06 · Answer

Tu as les form (pour faire l'interface) et des modules (ou tu mets des sub, fonction ou autres pour les appeler depuis n'importe quel form par exemple.
Au lieu de faire insertion form, tu fais inserer module. Mais j'ai pas vb6, donc je peux pas te dire exactement, mais ça doit être un truc dans ce style.

 Drikce 06 (Nouveau !!! Forum Exclusivement Office Et VBA By Mortalino)

Si la réponse vous convient: Réponse acceptée < body>

RS8 · Answer

Merci Drikce c'est bon ça marche !

Feuilles Excel

9 réponses

Votre réponse

Discussions similaires