Écrire dans un fichier Excel AU SECOURSSS

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

Messages postés
59
Date d'inscription
vendredi 26 juillet 2002
Statut
Membre
Dernière intervention
29 janvier 2004

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

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