Ouvrir un fichier csv dans Open Office par un programme VB6

Version imprimable

30/03/2015, 18h31
vincentc17

Ouvrir un fichier csv dans Open Office par un programme VB6

Bonjour à tous,
Je suis un utilisateur "autodidacte" (avec toute son incompétence ...:oops:) de VB6 et je ne sais pas comment je peux exécuter l'ouverture d'un fichier CSV (séparateur ";") dans le tableur d'Open Office. Je sais rechercher et sélectionner le fichier concerné mais je souhaiterai, à la validation de ce choix, qu'Open office soit ouvert (si besoin) et que le fichier soit mis en forme avec le séparateur ";".
Merci d'avance à ceux qui prendront le temps de répondre à ma demande.
Bonne soirée à Tous.:)
Vincent
04/04/2015, 10h26
Invité

Bonjour

Tu pourrais commencer par t'inspirer de ce tuto : http://silkyroad.developpez.com/VBA/PiloterOpenOffice/

Il est fait pour Excel, mais devrait être adapté en VB6.

Philippe
07/04/2015, 08h23
vincentc17

Bonjour Philippe,
Merci d'avoir pris le temps de répondre à ma demande. Je consulte le lien au plus vite, et je reviens vers toi pour te confirmer si je trouve la solution à mon besoin.
Bonne journée.
Vincent

Philippe,

J'ai trouvé grâce à ton lien la partie de code ci-dessous qui me permets d'ouvrir mon fichier dans Open Office, mais je ne trouve pas le moyen de déclarer le ";" comme séparateur du fichier csv.:(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim serviceManager As Object, oText As Object, oCursor As Object
    Dim Desktop As Object, Document As Object
    Dim Fichier As String
    Dim args()
 
    'Transformation du chemin pour l'ouvrir au format URL
    Fichier = "file:///" & "c:/test.csv"
    Fichier = Replace(Fichier, "\", "/")
 
    'Création d'une instance Open Office
    Set serviceManager = CreateObject("com.sun.star.serviceManager")
    Set Desktop = serviceManager.createInstance("com.sun.star.frame.Desktop")
 
 
   'Ouverture du fichier
    Set Document = Desktop.loadComponentFromURL(Fichier, "_blank", 0, args)

Sais-tu comment je doit déclarer cette information dans la commande d'ouverture ?
Merci de ton aide.
Vincent