ouverture d'excel obligatoire ?

Question

Bonjour, 



j'ai r&#233;alis&#233; une application vb6. Cette derni&#232;re permet l'acquisition de donn&#233;es via le port com.



Ces donn&#233;es sont enregistr&#233;es dans un fichi&#233; excel. Mon probl&#232;me est
que pour lancer l'application, je suis oblig&#233; d'avoir le fichier excel
d'ouvert !!!



Donc voila, je voulais savoir s'il est possible gr&#226;ce &#224; une instruction
magique de pouvoir lancer le programme sans avoir besoin d'avoir ouvert
excel au pr&#233;alable ?



Merci d'avance pour votre aide !!!

ta4444 · Answer

ben, tu n'as qu'a piloter Excel en masqu&#233; par ton programme VB6 
Si tu veux du code, fais signe

S4ngo · Answer

Merci ta4444 :D

oui, je veut bien du code, parce que je ne sais pas du tout comment faire !!!

(si vraiment sa marche pas, je peut filer mon appli complet pour voir :D)

ta4444 · Answer

Dim objExcel As Excel.Application
Dim objFWbk As Excel.Workbook

    Set objExcel = CreateObject("Excel.Application")
    Set objFWbk = objExcel.Workbooks.Open("c:	est.xls")
    objExcel.DisplayAlerts = False
    objExcel.Visible = False

tu fais ce que tu veux avec Excel
Attention de ne pas utiliser de Select ou Selection, ca ne fonctionne pas avec Excel masqu&#233;
Nommer les &#233;l&#233;ments directement

Avant de quitter ne pas oublier :

    objFWbk .Close
    objExcel.Quit
    Set objFWbk = Nothing
    Set objExcel = Nothing

S4ngo · Answer

Merci, sa &#224; l'air de fonctionner, mais je ne peut pas le tester la
maintenant, car le module avec lequel je dialogue n'est pas ici !!!

Je te confirmerai sa demain matin :D

Encore merci Mr :D

S4ngo · Answer

erf, en fait il y a un petit probleme, ce code fonctionne pour le
premier relev&#233; (premier evennement sur le port COM), et apres, il me
dit erreur DDE :s

Ouverture d'excel obligatoire ?

5 réponses

Discussions similaires