Copier des onglets sous Excel

[mic]

Bonjour,

Je travaille sur un agent d'export vers Excel, et pour ce faire j'utilise un modèle pour le fichier Excel car il serait trop compliqué à mettre en forme sinon.. J'aurais simplement voulu savoir du coup s'il était possible de copier des onglets sous Excel ?

Pour chaque catégorie de ma vue à exporter je dois créer un nouvel onglet dans le ficher excel ( c'est à dire une nouvelle feuille dans le classeur ), mais j'ai beau essayé toute sortes de syntaxe ça ne fonctionne pas. Tout ce que j'arrive à faire c'est copier le classeur entier, mais je ne cherche qu'à copier seulement une feuille à l'intérieur de ce classeur..

Code : Tout sélectionner

Dim Workbook As Variant
Dim Wsheet As Variant
Dim OLEExcel As Variant
Set OLEExcel = CreateObject("Excel.Application")
OLEExcel.Workbooks.Open "C:\toto.xls"
Set Workbook = OLEExcel.WorkBook(1)
Set Wsheet = Workbook.Worksheet(1)
Wsheet.Select
Wsheet.Copy

Auriez-vous une idée de comment faire ? Ou peut-être que ce n'est pas possible ?
Merci d'avance

[jfarissi]

While Not Doc Is Nothing 'Votre collection de documents


Call excelAppObject.Sheets.Add ' ajout d'un onglet sous excel

Set excelWorksheetObject = excelAppObject.ActiveSheet ' Activation de l'onglet

If Doc.[votre champs onglet](0)="" Then
excelAppObject.ActiveSheet.Name = "OGLET NON DEFINI"
Else
excelAppObject.ActiveSheet.Name = Ucase([votre champs onglet](0))
End If
wend


et voila votre fichier excel avec des onglet de vos categorisation

[mic]

J'arrive à ajouter un onglet sous excel sans problèmes, seulement je cherche à copier un onglet qui me sert de modèle. Et la syntaxe m'échappe pour ça..

Ceci dit merci pour la deuxième partie de votre réponse, cela va m'être utile .

[mic]

Finalement j'ai trouvé un élément de réponse sur ce topic.
Je dois adapter un peu par rapport à ce que je veux faire mais dans l'idée déjà ça fonctionne !

Code : Tout sélectionner

Set Wsheet = OLEExcel.Workbooks(1).Worksheets(1)
Call OLEExcel.Workbooks(1).Worksheets.Copy(,Wsheet)

[Jabba the hutt]

Salut mic,

je cherche à réaliser un script dans lotus qui me permettrait d'extraire certaines info d'un mail vers un classeur Excel, need help (je squatte un peu un sujet là non ?)

[Jabba the hutt]

surtout un topic résolu, j'avais pas vu, sorry je sors ! (still need help)