Discussion :

[vincentc17]

Bonjour à tous,
Je suis un utilisateur "autodidacte" (avec toute son incompétence ...) 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

[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

[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

[vincentc17]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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