Écrire dans un fichier Excel AU SECOURSSS

JosMorin Messages postés 7 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 29 août 2002 - 29 août 2002 à 16:04
JosMorin Messages postés 7 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 29 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

End Sub

2 réponses

cs_imer Messages postés 59 Date d'inscription vendredi 26 juillet 2002 Statut Membre Dernière intervention 29 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
0
JosMorin Messages postés 7 Date d'inscription mercredi 28 août 2002 Statut Membre Dernière intervention 29 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
0
Rejoignez-nous