Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1318 connectés 

 


Dernière réponse
Sujet : [Lotuscript] comment qu'on fait pour enregistrer ds un fichier Excel ?
dirakocha -->> Pirl@uit <<--
 
Merci c trop top cool je vais faire un tour sur le forum mais je pense que ton script est déjà pas mal pour ce que j'ai à faire.
 
Thx  :jap:  :jap:  :jap:  :jap:

Votre réponse
Nom d'utilisateur    Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !
Le ton de votre message                        
                       
Votre réponse


[b][i][u][strike][spoiler][fixed][cpp][url][email][img][*]   
 
   [quote]
 

Options

 
Vous avez perdu votre mot de passe ?


Vue Rapide de la discussion
dirakocha -->> Pirl@uit <<--
 
Merci c trop top cool je vais faire un tour sur le forum mais je pense que ton script est déjà pas mal pour ce que j'ai à faire.
 
Thx  :jap:  :jap:  :jap:  :jap:
pirl@uit

dirakocha a écrit a écrit :

No idea ?? :(  




Essaye sur www.notes.net (tu fais une recherche dasn le forum y a pas mal d'exemples)
 
sinon un petit exemple
 
 Dim OLEapplication As Variant
 Dim OLEbook As Variant
 Dim OLEsheet As Variant
 
 On Error Goto Oops
 
 Set OLEapplication = Nothing
 Set OLEbook = Nothing
 Set OLEsheet = Nothing
 
    'creation d'un doc XL
    '     xlsheet=1
 Set OLEapplication = CreateObject("Excel.Application" )
 Set OLEbook = OLEapplication .Workbooks.Add
 Set OLEsheet = OLEbook.WorkSheets(1)
 pathXL$=OLEapplication.path
 
 i&=1
 Set doc=view.getfirstdocument
 ligXL%=1
 colXL%=1
 While Not doc Is Nothing
  OLEsheet.cells(ligXL%,colXL%).value = doc.Subject(0)
  ligXL%=ligXL%+1
  Set doc=col.getnextdocument(doc)
 Wend
 
 path$="c:\"
 file$="ExportXL.xls"
 pathfile$=path$+file$
 Call OLEbook.SaveAs(pathfile$,True)
 Msgbox "File save on " + pathfile$
 
'Et ne pas oublier de fermer à la fin
 Call OLEapplication.Quit
 
'vide le contenu des objets OLE
 Set OLEapplication = Nothing
 Set OLEbook = Nothing
 Set OLEsheet = Nothing
 
'running Xl
 apprun$ = pathXL$ + "\" + "Excel.exe" + " " + Chr(34) + pathfile$ + Chr(34)
 taskid% = Shell(apprun$ ,3)

dirakocha No idea ?? :(
dirakocha Yep, en fait je voudrais mettre dans un fichier Excel certaines données provenant de document Notes. Je sais que c faisable mais je ne sais po comment le réaliser et pourtant j'en ai regardé des scripts mais aucun ne se rapproche de ce que je recherche. So si qlq1 à une suggestion... :)
 
@+
 
PS: M@nou si t là :D

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR