JosMorin
Messages postés7Date d'inscriptionmercredi 28 août 2002StatutMembreDernière intervention29 août 2002
-
29 août 2002 à 16:04
JosMorin
Messages postés7Date d'inscriptionmercredi 28 août 2002StatutMembreDernière intervention29 août 2002
-
29 août 2002 à 19:14
J'ai un programme qui écris dans un fichier excel mais quand je le modifier manuellement , je ne peux plus réécrire dedans avec VB comment pourrais-je faire a place de ce code ???
Private Sub Enregistrer_Click()
' toute mes textbox.text et de 2 listbox (materiell & emplacement ) dans donner
donner = Date & vbTab & Materiell & vbTab & nom & vbTab & emplacement
' je fait afficher le résultat dans label1 pour etre sur du résultat
Label1.Caption = Date + " , " + Materiell + " , " + nom + " , " + emplacement
' ensuis je vides mes textbox
Date.Text = ""
nom.Text = ""
emplacement.Text = ""
Materiell.Text = ""
Open "c:\temps\inventaire.xls" For Append As #1
Print #1, donner
Close
cs_imer
Messages postés59Date d'inscriptionvendredi 26 juillet 2002StatutMembreDernière intervention29 janvier 2004 29 août 2002 à 16:29
Soit tu manipules le fichier dans son format propriétaire, soit dans le format texte.
1. Format propriétaire : sous vb, cocher Projets/Références/Microsoft Excel X.X Object Library.
'Déclarer l'appli Excel
Dim XlApp as Excel.Application
'L'instancier
Set XlApp = New Excel.Application
'Ouvrir le fichier
If Dir("c:\temps\inventaire.xls")<>"" then
XlApp.WorkBooks.Open "c:\temps\inventaire.xls"
Else
XlApp.WorkBooks.Add
End If
'Ecrire dans les cellules d'excel
XlApp.WorkBooks(1).WorkSheets(1).Cells(1,1)=Date
XlApp.WorkBooks(1).WorkSheets(1).Cells(1,1)=Materiell
XlApp.WorkBooks(1).WorkSheets(1).Cells(1,1)=nom
XlApp.WorkBooks(1).WorkSheets(1).Cells(1,1)=emplacement
'Enregistrement des modifs
XlApp.WorkBooks(1).SaveAs "c:\temps\inventaire.xls"
'Quitter l'appli excel
XlApp.WorkBooks(1).Close
XlApp.Quit
Set XlApp = Nothing
2.Format Texte : après modification manuelle du fichier xls, ne pas convertir le format en xls
JosMorin
Messages postés7Date d'inscriptionmercredi 28 août 2002StatutMembreDernière intervention29 août 2002 29 août 2002 à 19:14
Je te remercie pour ton code ca marche #1
mais a tu une idée ou je peux mettre mon compteur car jen ai mit un dans le bouton en question et ca fonctionne pas