adjj
Messages postés1Date d'inscriptiondimanche 27 février 2005StatutMembreDernière intervention10 mars 2005
-
10 mars 2005 à 11:08
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 2009
-
10 mars 2005 à 11:34
J'ai eu beau chercher dans les nombreux exemple proposés,
je n'arrive pas a les adaptér à mon programme alors que
je n'ai besoin que de peu de choses :
Un routine qui me permettrait d'aller dans une feuille
excel déjà ouverte pour y écrire les données obtenues par
mon programme dans les cellules à préciser.
La fermeture de la feuille se faisant via excel.
Merci d'avance a qui pourrait m'aider.
PS: je suis toujours en VB5
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 20099 10 mars 2005 à 11:34
En cochant Projet...Références...Microsoft Excel XX Object Library..
Set xlApp = New Excel.Application
With xlApp
'Ouverture du document XLS
Set xlBook = .Workbooks.Open(FileName:="C:\TonFichier.xls", ReadOnly:=False, Editable:=True)
Set xlSheet = xlBook.Worksheets(1) ' Selection de la Feuille 1
End With
With xlSheet
'Cellule E4
.Cells(4, 5) ="[mailto:It@li@ Italia"]
End With
xlApp.Visible = True
'Détruit les objets
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing