Auteur
Message
clementbp
Premier posts
Inscrit le: 03 Fév 2010 Messages: 31Warnings: 0
Spécialité: Non spécifié
Sexe:
Comment insérer une feuille dans excel en lotus script bonjour.
Est ce que quelqu'un pourrait me dire comment je pourrais en lotus script insérer une feuille dans un classeur excel
Merci
Posté le: 09 Mar 2010 à 15:46
Michael DELIQUE
Administrateur
Inscrit le: 16 Déc 2004 Messages: 9395Warnings: 0
Spécialité: Développeur
Localisation: Paris/Cergy Pays: Sexe: Age: 38 Navigateur:
salut
tu trouvera des exmples ici => http://forum.dominoarea.org/importation-exporta...ications-f31.html
_________________ Cordialement
Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Posté le: 09 Mar 2010 à 15:48
clementbp
Premier posts
Inscrit le: 03 Fév 2010 Messages: 31Warnings: 0
Spécialité: Non spécifié
Sexe:
Je trouve nul part l'info qu'il me faut.
Pourtant ça ne doit pas etre bien sorcier !!
Posté le: 09 Mar 2010 à 16:09
Michael DELIQUE
Administrateur
Inscrit le: 16 Déc 2004 Messages: 9395Warnings: 0
Spécialité: Développeur
Localisation: Paris/Cergy Pays: Sexe: Age: 38 Navigateur:
insérer = copier ou créé une feuille vide dans un classeur ?
_________________ Cordialement
Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Posté le: 09 Mar 2010 à 16:09
Michael DELIQUE
Administrateur
Inscrit le: 16 Déc 2004 Messages: 9395Warnings: 0
Spécialité: Développeur
Localisation: Paris/Cergy Pays: Sexe: Age: 38 Navigateur:
un truc pour savoir comment faire dans ce genre de situation => http://forum.dominoarea.org/vba-et-lotus-script-le-truc-t22722.html
_________________ Cordialement
Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Posté le: 09 Mar 2010 à 16:12
clementbp
Premier posts
Inscrit le: 03 Fév 2010 Messages: 31Warnings: 0
Spécialité: Non spécifié
Sexe:
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
Posté le: 09 Mar 2010 à 16:16
Michael DELIQUE
Administrateur
Inscrit le: 16 Déc 2004 Messages: 9395Warnings: 0
Spécialité: Développeur
Localisation: Paris/Cergy Pays: Sexe: Age: 38 Navigateur:
re
un exemple qui les suprimes
Code: 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
_________________ Cordialement
Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Posté le: 09 Mar 2010 à 16:30
clementbp
Premier posts
Inscrit le: 03 Fév 2010 Messages: 31Warnings: 0
Spécialité: Non spécifié
Sexe:
Vraiment je suis désolé mais je trouve pas comment coder le fait d'insérer une feuille dans mon classeur excel.
Please Help
Posté le: 09 Mar 2010 à 17:49
Michael DELIQUE
Administrateur
Inscrit le: 16 Déc 2004 Messages: 9395Warnings: 0
Spécialité: Développeur
Localisation: Paris/Cergy Pays: Sexe: Age: 38 Navigateur:
codé vite fais, mais ça fonctionne
Code: 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
_________________ Cordialement
Michael (SMS-Phobique)
----------------------------
"La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi."
Albert EINSTEIN
Posté le: 10 Mar 2010 à 08:42
clementbp
Premier posts
Inscrit le: 03 Fév 2010 Messages: 31Warnings: 0
Spécialité: Non spécifié
Sexe:
Merci beaucoup ca marche parfaitement bien !!!!
Je vais maintenant pouvoir continuer mon agent.
Merci encore
Posté le: 10 Mar 2010 à 08:59
Montrer les messages depuis: Tous les messages 1 Jour 7 Jours 2 Semaines 1 Mois 3 Mois 6 Mois 1 An Trier par: Heure du message Sujet du message Auteur Croissant Décroissant