Discussion :

[HULK]

Bonjour,

je réalise un export excel vers plusieurs feuilles quand j'arrive à la 4ème feuille ca plante car dans une document ecel, il n'y a que trois feuilles par défaut. J'ai essayé d'ajouter des feuilles supplémentaires à mon fichier mais ca ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim xsFRANCE As New Excel.Worksheet
Dim xsUK As New Excel.Worksheet
Dim xsCZECH As New Excel.Worksheet
 
'xlBook.Sheets.Add(xsFRANCE)
'xlBook.Sheets.Add(xsUK)
'xlBook.Sheets.Add(xsCZECH)
 
xsFRANCE = CType(xlBook.Worksheets(i), Excel.Worksheet)
xsUK = CType(xlBook.Worksheets(i + 1), Excel.Worksheet)
xsCZECH = CType(xlBook.Worksheets(i + 2), Excel.Worksheet)

Ce code est dans une boucle, au départ i = 1, là ca marche, mais dans la deuxieme boucle i = 4
Quand j'enleve les commentaires ca ne fonctionne pas, quel est le code qui permets de rajouter des feuilles dans un document excel ???

Merci.

[shwin]

Google ?
http://msdn2.microsoft.com/en-us/lib...heets.add.aspx