Vb6 excel
wrndid
Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009
-
9 févr. 2006 à 17:37
tof008 Messages postés 695 Date d'inscription jeudi 5 mai 2005 Statut Membre Dernière intervention 5 janvier 2010 - 9 févr. 2006 à 19:56
tof008 Messages postés 695 Date d'inscription jeudi 5 mai 2005 Statut Membre Dernière intervention 5 janvier 2010 - 9 févr. 2006 à 19:56
2 réponses
wrndid
Messages postés
36
Date d'inscription
mercredi 16 mars 2005
Statut
Membre
Dernière intervention
5 février 2009
9 févr. 2006 à 17:39
9 févr. 2006 à 17:39
merci si vous avez un source [mailto:wrndid@tele2.fr wrndid@tele2.fr]
tof008
Messages postés
695
Date d'inscription
jeudi 5 mai 2005
Statut
Membre
Dernière intervention
5 janvier 2010
33
9 févr. 2006 à 19:56
9 févr. 2006 à 19:56
voila qui pourrait t'aider :
Set MonEx = CreateObject("Excel.Application")
MonEx.Visible = True
'Ouverture d'un document
MonEx.Workbooks.Open App.Path & "\Stats.xls"
MonEx.Worksheets(1).Select
'inserer toutes les valeurs ds la feuille excel
MonEx.Worksheets(1).Range("B6") = TaValeur
(Si la réponse vous convient, appuyez sur réponse acceptée...)
Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire
Set MonEx = CreateObject("Excel.Application")
MonEx.Visible = True
'Ouverture d'un document
MonEx.Workbooks.Open App.Path & "\Stats.xls"
MonEx.Worksheets(1).Select
'inserer toutes les valeurs ds la feuille excel
MonEx.Worksheets(1).Range("B6") = TaValeur
(Si la réponse vous convient, appuyez sur réponse acceptée...)
Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire
