Envoyer des données vers une feuille excel [Résolu]

Signaler
Messages postés
1
Date d'inscription
dimanche 27 février 2005
Statut
Membre
Dernière intervention
10 mars 2005
-
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
-
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

1 réponse

Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
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

It@li@
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci