Windows Mobile 5 [Résolu]

Signaler
Messages postés
121
Date d'inscription
jeudi 15 mai 2008
Statut
Membre
Dernière intervention
21 novembre 2013
-
gillardg
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
-
Bonjour à tous ,

je développe une application pour pocket pc ( c'est du VB.Net). J'ai un datagrid et je voudrais copier son contenu dans un fichier excel.Je n'ai pas trouvé la bibliothèque " Microsoft Excel 11.0 " dans les reférence.
Quelqu'un sait-il comment s'y prendre ?

Merci pour votre aide

9 réponses

Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
Sub

export2csv(


ByVal

dtgv


As

DataGridView)



Dim

str


As





String

=


String

.Empty



For

x = 0


To

dtgv.RowCount - 1



For

y = 0


To

dtgv.Columns.Count - 1str = str & dtgv.Item(y, x).Value &



";"








Next


str = str.Remove(str.Length - 1, 1)


str = str & vbCrLf








Next








Dim

sdf


As





New

SaveFileDialogsdf.Filter =



"Coma Separated value(*.csv)|*.csv"


sdf.AddExtension =





True


sdf.DefaultExt =





"csv"








If

sdf.ShowDialog = Windows.Forms.DialogResult.OK


Then








My

.Computer.FileSystem.WriteAllText(sdf.FileName, str,


False

)



End





If








End





Sub











Bonjour chez vous !
Messages postés
1231
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
1
SAlut,
Je m'y connais pas en .net mais je sais qu'en vb6 on peut installer des packs... Peut etre que c'est aussi le cas en .net...
Bon courage.

S.L.B.
<hr />-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras --<
Messages postés
121
Date d'inscription
jeudi 15 mai 2008
Statut
Membre
Dernière intervention
21 novembre 2013

Merci, mais au fait où trouver ces packs.
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
KIPRE74 ,pour la bibliothèque " Microsoft Excel 11.0 "
il faut qu'excel soit installé sur le client

exporte en csv ou en html ce sont des formats reconnus par la plupart des tableurs

Bonjour chez vous !
Messages postés
121
Date d'inscription
jeudi 15 mai 2008
Statut
Membre
Dernière intervention
21 novembre 2013

Bonjour gillardg,

peut-on le faire en csv sur pocket PC ?
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
datagrid ??


pour chaque ligne dans datagrid


pour chaque cellule dans ligne
ecrire valeur & ";"
cellule suivante
ecrire vbcrlf


ligne suivante

quelque chose comme ça tu saurais le faire ?non?




 










Bonjour chez vous !
Messages postés
121
Date d'inscription
jeudi 15 mai 2008
Statut
Membre
Dernière intervention
21 novembre 2013

Bonsoir,

J'ai pu convertir ma dataGrid en fichier XML
Dim DateNom As String
Dim FichNom As String

DateNom = Replace(Microsoft.VisualBasic.Now, "/", "")
DateNom = Replace(DateNom, ":", "")
DateNom = Replace(DateNom, " ", "_")
FichNom = "Observation-du_" & DateNom & ".XML"
mdatasource.WriteXml(FichNom)

Cependant je ne vois pas comment faire avec CSV !
Messages postés
121
Date d'inscription
jeudi 15 mai 2008
Statut
Membre
Dernière intervention
21 novembre 2013

Bonjour Gillardg,
J'ai réussi grace à ton code à l'adapter au mien

Private Sub SaveGridDataInFile(ByRef fName As String)

Dim x, y As Integer

'Dim str As String = String.Empty

Try

For x = 0 To mdatasource.Rows.Count - 1

For y = 0 To mdatasource.Columns.Count - 1

str = str & mdatasource.Rows(x).Item(y) & ";"

Next

str = str.Remove(str.Length - 1, 1)

str = str & vbCrLf


'Return wFlag
Next
'FichNom = "Observation-du_" & ".CSV"
MsgBox("Tableau sauvegarder en CSV")

Catch e As Exception

MessageBox.Show("Une erreur s'est produit lors de l'enregistrement." + e.ToString())

End Try

End Sub
Mais le prolème je n'arrive pas à le sauvegarder dans un fichier text grace ton code :

Dim sdf As New SaveFileDialog

sdf.Filter =
"Coma Separated value(*.csv)|*.csv"

sdf.AddExtension = True

sdf.DefaultExt = "csv"

If sdf.ShowDialog = Windows.Forms.DialogResult.OK Then

My .Computer.FileSystem.WriteAllText(sdf.FileName, str, False )

End If

Message d'erreur :
AddExtension et DefaultEx non membre de System.Windows.Form.SaveDiaog
computer non membre de My
Messages postés
3275
Date d'inscription
jeudi 3 avril 2008
Statut
Membre
Dernière intervention
14 septembre 2014
3
sauve le fichier d'une façon compatible avec ton framework

Bonjour chez vous !