JosMorin
Messages postés7Date d'inscriptionmercredi 28 août 2002StatutMembreDernière intervention29 août 2002
-
29 août 2002 à 16:01
TFlorian
Messages postés194Date d'inscriptiondimanche 3 mars 2002StatutMembreDernière intervention19 décembre 2005
-
30 août 2002 à 23:50
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
TFlorian
Messages postés194Date d'inscriptiondimanche 3 mars 2002StatutMembreDernière intervention19 décembre 20053 30 août 2002 à 23:50
Bonjour,
A mon avis tu devrais utiliser le format CSV separateur ";" d'excel
en fait c'est du text , compris par excel reprenable sous blocnotes ...
Les modification sont plus que mineures et tu peut l'ouvire et le fermer avec excel et VB sans prob !
'-------------------------------------
Private Sub Enregistrer_Click()
' toute mes textbox.text et de 2 listbox (materiell & emplacement ) dans donner
donner = Date & ";" & Materiell & ";" & nom & ";" & emplacement
' je fait afficher le résultat dans label1 pour etre sur du résultat
'MOI JE PREFER LUI DIR D4AFFICHER REELEMANT CE QU4IL ECRIT ;-)
Label1.Caption = donner 'Date + " , " + Materiell + " , " + nom + " , " + emplacement
' ensuis je vides mes textbox
Date.Text = ""
nom.Text = ""
emplacement.Text = ""
Materiell.Text = ""
Open "c:\temps\inventaire.CSV" For Append As #1
Print #1, donner
Close
End Sub
'-------------------------------------
C'est tout et ca devrais fonctionner
attention a bien enregistre au bon format csv en quitant excel !
attention aussi au separateur monetaire !
<> entre "." et ","