É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
194
Date d'inscription
dimanche 3 mars 2002
Statut
Membre
Dernière intervention
19 décembre 2005
-
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

1 réponse

Messages postés
194
Date d'inscription
dimanche 3 mars 2002
Statut
Membre
Dernière intervention
19 décembre 2005
3
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 ","

TFlorian.
0