DominoArea.org [Archive]

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

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

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 .

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)

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 ?)

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