cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 20099 2 févr. 2005 à 14:55
Coches Projet...Références...Microsoft Excel....Object Library.
Pour un Fichier Existant
Set xlApp = New Excel.Application
With xlApp
'Ouverture du document XLS
Set xlBook = .Workbooks.Open(FileName:="C:\TonFichier.xls", ReadOnly:=False, Editable:=True) ' Français
'Séléction de la feuille 1
Set xlSheet = xlBook.Worksheets(1)
End With
With xlSheet
.Cells(4, 5) = [mailto:It@li@ It@li@] ' E4
TaValeur=.Cells(4, 5)
End With
'Détruit les objets
Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing