Comment insérer une feuille dans excel en lotus script

[clementbp]

bonjour.

Est ce que quelqu'un pourrait me dire comment je pourrais en lotus script insérer une feuille dans un classeur excel

Merci

[Michael DELIQUE]

salut

tu trouvera des exmples ici => http://forum.dominoarea.org/importation ... s-f31.html

[clementbp]

Je trouve nul part l'info qu'il me faut.

Pourtant ça ne doit pas etre bien sorcier !!

[Michael DELIQUE]

insérer = copier ou créé une feuille vide dans un classeur ?

[Michael DELIQUE]

un truc pour savoir comment faire dans ce genre de situation => http://forum.dominoarea.org/vba-et-lotu ... 22722.html

[clementbp]

Je veux créer une feuille vide

j'ai regarder ce post et j'ai essayer de traduire ce que le VBA mets mais je ne trouve pas

Le code VBA est
Sheets.Add


Mais j'ai essayé pas mal de truc qui tournait autout de ca ( set Sheet.Add ....) mais là je sèche

[Michael DELIQUE]

re

un exemple qui les suprimes

Code : Tout sélectionner

   Set objXLSApp = Nothing
   Set objXLSApp=createobject("Excel.Application")
   objXLSApp.DisplayAlerts=False
   objXLSApp.Visible=False   
   'On instancit un objet WorkBook Excel et on ouvre le fichier de mise a jour.
   Set objXLSWorkbooK=objXLSApp.Workbooks.add
   
     'On supprime les éventuelles feuilles en trop !
   While objXLSWorkbooK.sheets.count>1
      objXLSWorkbooK.sheets(2).select
      objXLSWorkbooK.sheets(2).Delete
   Wend

[clementbp]

Vraiment je suis désolé mais je trouve pas comment coder le fait d'insérer une feuille dans mon classeur excel.

Please Help

[Michael DELIQUE]

codé vite fais, mais ça fonctionne

Code : Tout sélectionner

   Dim objXLSApp As Variant
   Dim objXLSWorkbooK As Variant
   Dim objXLSWorkSheet As Variant
   Dim i As Integer
   
   Set objXLSApp = Nothing
   Set objXLSApp=createobject("Excel.Application")
   objXLSApp.DisplayAlerts=False
   objXLSApp.Visible=True
   'On instancit un objet WorkBook Excel et on ouvre le fichier de mise a jour.
   Set objXLSWorkbooK=objXLSApp.Workbooks.add
   
   i =  objXLSWorkbooK.sheets.count
   objXLSWorkbooK.sheets(i).select
   For i = 1 To 10
      objXLSWorkbooK.sheets.add
   Next

[clementbp]

Merci beaucoup ca marche parfaitement bien !!!!

Je vais maintenant pouvoir continuer mon agent.

Merci encore