Exportation Lotus - Excel

[Fournery]

Bonjour,J'ai un gros trou de mémoire. Pouvez-vous me donner un example d'agent qui permettrai de faire un export de donné depuis Lotus vers Excel en passant par un agent Lotus script.Je vous remercie d'avance. C'est urgent.[%sig%]

[Fournery]

En espérant avoir plus d'info voici une question pointu pour moi.J'ai trouvé ceci :Sub CreeFichierExcel ( )'Cette procédure créé le fichier Excel 'On lance Excel et on le rend visible à l'écran (pour le mode debbug) Set vExcel = createObject ("Excel.Application") vExcel.visible = True 'on crée un nouveau fichier excel Set vNouveauClasseur = vExcel.Workbooks.Add( ) 'on récupère la feuille active : Feuil1 Set vFeuilleActive = vExcel.ActiveSheet vFeuilleActive.Delete Set vFeuilleActive = vExcel.ActiveSheet vFeuilleActive.Delete Set vFeuilleActive = vExcel.ActiveSheet vFeuilleActive.Name = "Application" 'on sauvegarde sur disque le fichier excel (sous c:) Dim sFichier As String sFichier = "c:\tmp\fichier.xls" Call vNouveauClasseur.SaveAs(sFichier) End Subsauf que si le fichier n'existe pas il ne le créé pas et s'il existe il demande à l'utilisateur s'il veut l'écraser.Comment faire pour éviter les 2 pb?Merci.[%sig%]

[AdminExpert]

0/ je préfèrevExcel.visible = Falsetu évite les effets "flash", bon ça fait beau de voir le fichier se créer au fur et à mesure mais autant le montrer en fin de traitement1/ si tu ne veux pas les msg d'alerte il faut les désactiver par vExcel.DisplayAlerts = FalseAinsi... si le fichier existe, il sera écrasé automatiquement.2/ après la ligneSet vNouveauClasseur = vExcel.Workbooks.Add( )tu peux faire unCall vNouveauClasseur.SaveAs(sFichier)afin de le créer dans la foulée3/ et en fin de traitement tu fais simplement un save+un close pour sortir proprementCall vNouveauClasseur.SaveCall vNouveauClasseur.Close.... c'est une autre manière de procéder....et enfin de traitement je propose le l'ouverture du fichier Excel nouvellement créé par quelque chose qui resemblerait à ceci :dim rep as integerdim runExcel as stringdim hID as integerRep = Msgbox("Ouverture de la feuille excel", 32 + 4, "Export terminé") If x = 6 Then runExcel = excelApp.Path & "\excel.exe " & """" & sFichier & """" 'Msgbox sRun hID = Shell(runExcel, 3) End Ifenfin pour faire propre si l'utilisateur n'a pas excel ou s'il rencontre un pb au moment de la creation de l'objet AppSet vExcel = createObject ("Excel.Application")if vExcel is Nothingmsgbox "Incident pendant la création de l'objet Excel",16,"Erreur"exit subend iflogiquement ça devrait bien fonctionner.... J'utilise à peu de chose près ce genre de technique pour gérer mes exports Excelj'espère avoir répondu à ta question...si tu veux j'ai une bibliothèque LS pour gérer mes import/exoprt.. bon elle est toute simple, si tu la souhaites.... je peux te la mettre dans une base Notes, j'ai aussi récupérer toutes les variables "intrasèque" de Excel je peux te les mettre aussi (email ?)

[Fournery]

Bonjour Admin Expert,Voici mon email : fournery.arnaud@free.frJe viens de faire le test et voici ce que j'ai sur le SaveAs : "Microsoft Excel : Impossible d'accéder à 'fichier.xls' "Alors que voici mon code : 'Cette procédure créé le fichier Excel 'On lance Excel et on le rend visible à l'écran (pour le mode debbug) Set vExcel = createObject ("Excel.Application") vExcel.visible = False 'C'est plus léger pour la machine vExcel.DisplayAlerts = False 'Evite les messages d'alertes'on crée un nouveau fichier excel Set vNouveauClasseur = vExcel.Workbooks.Add( ) 'on récupère la feuille active : Feuil1 Set vFeuilleActive = vExcel.ActiveSheet vFeuilleActive.Delete Set vFeuilleActive = vExcel.ActiveSheet vFeuilleActive.Delete Set vFeuilleActive = vExcel.ActiveSheet 'on sauvegarde sur disque le fichier excel (sous c:) sFichier = "c:\tmp\fichier.xls" Call vNouveauClasseur.SaveAs(sFichier)Merci pour l'aide.Arnaud[%sig%]

[AdminExpert]

pourquoi tout ceci ???'on récupère la feuille active : Feuil1Set vFeuilleActive = vExcel.ActiveSheetvFeuilleActive.Delete Set vFeuilleActive = vExcel.ActiveSheet vFeuilleActive.Delete Set vFeuilleActive = vExcel.ActiveSheet quel est l'intérêt du delete ???ne conserver qu'un seul Set vFeuilleActive = vExcel.ActiveSheet vérifie si tu n'as déja ouvert une même instance de l'objet avec le même nom de fichier ?vérifie le nombre d'instance Excel lancée en faisant Ctr+Alt+Sup (tu ne dois voir qu'une seule instance Excel) ?En général ça ce produit lorsque le fichier est déjà ouvert....L'ouvres-tu manuellement avant ?je te mail ma lib avec un exemple issu d'une de mes applications je le zip

[Baker]

Bonjour Admin Expert,Serait-il possible d'avoir aussi ta librairie stp.Je débutant est j'accepte tout ce qui pourrai m'aider à progresser.Voilà mon Email : ybaker@topcall.frMerci d'avance.

[oguruma]

c'est fait

[Baker]

Merci, pour l'exemple.Je l'étudie.Cordialement

[oguruma]

OK, tiens moi informé cette aventure Excel (si tu veux bien)