Chkfirst while et form
niikkoo
Messages postés
50
Date d'inscription
mercredi 20 juillet 2005
Statut
Membre
Dernière intervention
4 septembre 2007
-
21 juil. 2005 à 13:10
Sensei01 Messages postés 94 Date d'inscription samedi 22 février 2003 Statut Membre Dernière intervention 27 juin 2006 - 21 juil. 2005 à 15:43
Sensei01 Messages postés 94 Date d'inscription samedi 22 février 2003 Statut Membre Dernière intervention 27 juin 2006 - 21 juil. 2005 à 15:43
1 réponse
Sensei01
Messages postés
94
Date d'inscription
samedi 22 février 2003
Statut
Membre
Dernière intervention
27 juin 2006
21 juil. 2005 à 15:43
21 juil. 2005 à 15:43
Sensei01
un truc dans ce genre la :
Dim XlApp
As
Object
Dim XlBook
As
Object
Dim XlSheet
As
Object
XlApp = CreateObject("Excel.application")
XlBook = XlApp.Workbooks.open("fichier.xls")
int i as integer
for i = 0 to nbxlsheet
if XlBook.Worksheets(i).name = TextBox.Text then
....
end if
next i
...
...
....
XlSheet =
Nothing
XlBook.Application.DisplayAlerts =
False
XlBook.SaveAs("fichier.xls")
XlBook.Close()
XlBook =
Nothing
XlApp.Application.Quit()
XlApp =
Nothing
/******** Sans audance pas de gloire !! ********/
un truc dans ce genre la :
Dim XlApp
As
Object
Dim XlBook
As
Object
Dim XlSheet
As
Object
XlApp = CreateObject("Excel.application")
XlBook = XlApp.Workbooks.open("fichier.xls")
int i as integer
for i = 0 to nbxlsheet
if XlBook.Worksheets(i).name = TextBox.Text then
....
end if
next i
...
...
....
XlSheet =
Nothing
XlBook.Application.DisplayAlerts =
False
XlBook.SaveAs("fichier.xls")
XlBook.Close()
XlBook =
Nothing
XlApp.Application.Quit()
XlApp =
Nothing
/******** Sans audance pas de gloire !! ********/
