DominoArea.org [Archive]

bonjour.

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

Merci

salut

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

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

Pourtant ça ne doit pas etre bien sorcier !!

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

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

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

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

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

Please Help

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

Merci beaucoup ca marche parfaitement bien !!!!

Je vais maintenant pouvoir continuer mon agent.

Merci encore