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
bonjour, g une form avec une txtbox txtnoaff. je voudrais tester si le txt que je rentre dedans correspond au nom d'au moins une feuille excel dans le classeur et si non ajouter une feuille au classeur dont le nom est le txt rentré dans txtnoaff
j'ssaie avec chkfirst while mais j'y arrive pas

Niikko

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
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 !! ********/
0