Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Set xlApp = CreateObject ("Excel.Application")
Set xlBook = xlApp.WorkBooks.Open(App.Path & "" & NomFicher)
Set xlSheet = xlBook.WorkSheets("--Nom de ta feuille--")
For g = 0 To cont '?? cont pas déclaré !
If ns1(g) = Text1.Text Then
xlSheet.cells(g + 1, 1) = Text1.Text
xlSheet.cells(g + 1, 2) = designation.Text
xlSheet.cells(g + 1, 3) = Text2.Text
End If
Next g
xlBook.Close True
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
<small> Coloration syntaxique automatique </small>
PCPT : pas de problème !
En VBA, ça fonctionne comme ceci :
Application.DisplayAlerts = True (ou False)
@++
Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"
Merci de prendre le temps de répondre à ce
sondage
petiflamand
Messages postés675Date d'inscriptionsamedi 31 mai 2003StatutMembreDernière intervention26 mai 20131 20 juil. 2006 à 17:00
Voici et je suis sous vb6,
ClasseurXLS.Workbooks.Open PathFic & NomFic
For g = 0 To cont
If ns1(g) = Text1.Text Then
ClasseurXLS.cells(g + 1, 1) = Text1.Text
ClasseurXLS.cells(g + 1, 2) = designation.Text
ClasseurXLS.cells(g + 1, 3) = Text2.Text
End If
Next g
ismaii
Messages postés2Date d'inscriptiondimanche 9 février 2003StatutMembreDernière intervention14 février 2007 14 févr. 2007 à 10:56
Pas mal le code mais quand tu as déjà un fichier excel et que tu l'as déjà sauver il le ferme, et si il n'etait pas sauver il te demande de le faire comme si tu voulais le fermer en cliquant sur la croix. pas de solution miracle pour ca ?