OPENOFFICE CALC

Signaler
Messages postés
416
Date d'inscription
vendredi 22 février 2008
Statut
Membre
Dernière intervention
7 janvier 2018
-
cs_Mathieu666
Messages postés
3
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
5 juin 2012
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/52688-openoffice-calc

cs_Mathieu666
Messages postés
3
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
5 juin 2012

Bonjour, j'ai réusi a écrire dans un fichier, voici ce que j'ai fait,


Private Sub openFile(ByVal sFile As String)
Try
Dim oSM As New OpenOffice.OServiceManager
Bureau = New OpenOffice.OBureau(oSM)
Dim oA As New OpenOffice.OCalcApplication(Bureau)
Classeur = New OpenOffice.OCalcClasseur(oA, sFile)

---> Feuille = New OpenOffice.OCalcSheet(Classeur, Classeur.getActiveSheet())

Catch ex As Exception
MessageBox.Show(ex.Message, "aïe aïe", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Feuille.getCell(0, 0).setstring("Interrupt Text")
Feuille.getCell(0, 1).setstring("Type")
Feuille.getCell(0, 2).setstring("Occurred")
Feuille.getCell(0, 3).setstring("Cleared")
Feuille.getCell(0, 4).setstring("ClearType")
Feuille.getCell(0, 5).setstring("Length")
Feuille.getCell(0, 6).setstring("Number of Recovers")
Feuille.getCell(0, 7).setstring("Number of Retries")
Feuille.getCell(0, 8).setstring("Number of Clears")
Feuille.getCell(0, 9).setstring("Note")
Feuille.getCell(0, 10).setstring("Exported")
Feuille.getCell(0, 11).setstring("Logical Machine ID")
Feuille.getCell(0, 12).setstring("Interrupt ID")

Dim y As Integer = 1
Dim f As Integer = 0

Dim myLines() As String = File.ReadAllLines(fichierScan(0))
For Each j As String In myLines
If Not (y = 1) Then
Dim aryTextFile() As String = j.Split(",")
Dim x As Integer = 0
For Each i As String In aryTextFile
Feuille.getCell(y, x).setString(i)
x += 1
Next
y += 1
End If
Next

End Sub
End Class

Mon Data que j'ai a transfairé est dans un fichier text et chaque valeur est séparées par des virgules,
J'ai plusieurs fichier, a traiter à mêtre dans un même claseur.
J'ai un petit intérogation, c'es lent pour le transposer le dada, je vois chaque valeur se mêtre dans les cellule, y a t'il moyen de rendre cela à vitesse grand V. Style ca prend 5 minutes pour copier environ 2000 lignes, de 10 valeurs.

Merci et bonne journée
cs_Mathieu666
Messages postés
3
Date d'inscription
jeudi 27 juillet 2006
Statut
Membre
Dernière intervention
5 juin 2012

Merci beaucoup, pour ta source,
Mais j'aimerais bien savoir comme écrire dans une cellule et lire le contenue l'une d'entre elle.

Merci et bonne journée
Silmon
Messages postés
85
Date d'inscription
mardi 6 janvier 2004
Statut
Membre
Dernière intervention
7 mai 2007

merci
cs_eldim
Messages postés
956
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
21 août 2014
1
Salut, Merci, non désolé j'ai pas encore cherché ce truc là