[Résolu] [Calc] exporter d'un tableau vers un fichier CSV
Publié : 07 déc. 2018 17:18
Bonjour,
Je cherche le moyen pour exporter un tableau vers un fichier CSV afin d'importer des données dans agenda Google ou agenda Apple .
Le tableau en question.
J'ai essayé l'enregistreur de macro mais il me semble qu'il ne tient pas compte de la sélection mais il enregistre toute la feuille. Ce que il me semble avoir lu quelque part, que c'était un fonctionnement normal.
Donc comment peut-on sélectionner uniquement le tableau et pas la feuille .
Merci
EDIT:
J'ai trouvé ce code et si je l'analyse bien, il permet d'exporter le classeur en un fichier csv
Je suppose que je peux partir de celui-ci pour enregistrer une page dans un tableau et non le classeur complet ?
Merci
Je suppose que pour exporter le tableur, je dois modifier les lignes
en
Il me reste à mettre la commande pour exporter le tableau
pour exporter que le tableau
Je cherche le moyen pour exporter un tableau vers un fichier CSV afin d'importer des données dans agenda Google ou agenda Apple .
Le tableau en question.
J'ai essayé l'enregistreur de macro mais il me semble qu'il ne tient pas compte de la sélection mais il enregistre toute la feuille. Ce que il me semble avoir lu quelque part, que c'était un fonctionnement normal.
Donc comment peut-on sélectionner uniquement le tableau et pas la feuille .
Merci
EDIT:
J'ai trouvé ce code et si je l'analyse bien, il permet d'exporter le classeur en un fichier csv
Je suppose que je peux partir de celui-ci pour enregistrer une page dans un tableau et non le classeur complet ?
Code : Tout sélectionner
Dim oDoc As Object
Dim EnrArgs(1) As New com.sun.star.beans.PropertyValue
Dim Chemin As String , NomFeuille As String
oDoc = ThisComponent
' Boucle sur les feuilles
For i = 1 to oDoc.Sheets.Count
NomFeuille = oDoc.Sheets(i-1).Name
' Active la feuille
ThisComponent.CurrentController.ActiveSheet = oDoc.Sheets(i-1)
Chemin = Left(oDoc.URL, Len(oDoc.URL) - Len(Dir(ConvertFromURL(oDoc.URL)))
'--- Spécifie le filtre de conversion ---
EnrArgs(0).Name = "FilterName"
EnrArgs(0).Value = "Text - txt - csv (StarCalc)"
' Sauvegarde dans le même répertoire que le classeur original
oDoc.storeToURL( ConvertToURL(Chemin & NomFeuille & ".csv"), EnrArgs())
Next
Merci
Je suppose que pour exporter le tableur, je dois modifier les lignes
en
Code : Tout sélectionner
REM ***** BASIC *****
Sub Synchro
Dim oDoc As Object
Dim SSS as Object 'Sheet Source synchro
Dim RSS as Object 'Range Source synchro
Dim i As Integer
Dim EnrArgs(1) As New com.sun.star.beans.PropertyValue
Dim Chemin As String , NomFeuille As String
oDoc.ThisComponent
SSS=thisComponent.Sheets.getByName("Sortie")
RSS= SS.getCellRangeByName("C6:G200")
Chemin = Left(oDoc.URL, Len(oDoc.URL) - Len(Dir(ConvertFromURL(oDoc.URL)))
'--- Spécifie le filtre de conversion ---
EnrArgs(0).Name = "FilterName"
EnrArgs(0).Value = "Text - txt - csv (StarCalc)"
' Sauvegarde dans le même répertoire que le classeur original
oDoc.storeToURL( ConvertToURL(Chemin & NomFeuille & ".csv"), EnrArgs())
End Sub
pour exporter que le tableau