Ouverture d'un document .csv sur excelRésolu

Question

Bonjour tout le monde. Alors voici mon probleme du jour (oui, j'ai un pb chaque jours...):

Le code suivant me permet d'ouvrir une boite de dialogue où je selectionne un fichier à ouvrir. Je voudrais ouvrir ce document sous Excel. Est-ce qu'en selectionnant simplement le document et en appuyant sur "Ouvrir", Excel est sensé se lancer, ou dois-je apporter un supplément à mon code pour lui dire d'ouvrir ce document avec Excel?

Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click
        Dim OpenFichierExcel As New OpenFileDialog()
        OpenFichierExcel.Filter = "Fichiers CSV| *.csv"
        OpenFichierExcel.Title = "Selectionner le .csv à traiter (Extrait de REMEDY)"

        If OpenFichierExcel.ShowDialog() = DialogResult.OK Then
            Dim sr As New System.IO.StreamReader(OpenFichierExcel.FileName)
            MessageBox.Show(sr.ReadToEnd)
            sr.Close()

        End If
End Sub

mortalino · Accepted Answer

pas grave, suffit de ne pas le mettre.

Sert toi de ce snippet de Drikce06, t'as juste la méthode Add à ne pas utiliser et à remplacer par Open :
http://www.codyx.org/snippet_comment-ouvrir-classeur-excel-vierge-depuis-vb6_202.aspx

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

PCPT · Answer

salut,

ton code actuel récupère le contenu du fichier, excel risque de ne s'ouvrir que si le client clique dessus, çà ne serait que pure coïncidence ^^

http://www.codyx.org/snippet_ouvrir-document-lancer-executable_25.aspx#69

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Panodrek · Answer

Est-ce qu'un simple ajout de ceci pourrait regler mon probleme?
StartProcess 
"C:\...\Excel.exe"

PCPT · Answer

essaye, tu verras que non 

le code fourni sert à lancer le programme associé "implicitement" en indiquant juste le nom du fichier à ouvrir...
(ce que te retourne la boite de dialogue)

mortalino · Answer

salut,

sinon, déclarer les objets Excel et Classeur, puis tu ouvres le fichier csv avec l'objet classeur avec Set pour lié la variable objet au fichier
(cherche du côté de Microsoft.Office.Interop.Excel.Application)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

PCPT · Answer

(me semble qu'il n'y a plus de SET en .net, à vérifier)

Panodrek · Answer

Apparamment pas de SET en .net :s

PCPT · Answer

... çà change rien, tu as tout de même 2 solutions

startprocess "chemin_complet.csv"
ou avec l'objet excel par obj excel (et pas set obj excel, mais c'est strictement pareil. VB doit même naturellement supprimer le mot SET ; pas d'erreur pour autant)

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Panodrek · Answer

Oki merci à vous 2, des que j'ai un peu de temp je vais tester vos différentes méthodes et je vous tien au courant :)

Thx bye !!!

Panodrek · Answer

C'est encore moi ^^
Juste une petite question qui me passait par la tête, mais j'ai pas encore eu le temps de tester:
Est-ce que en valeur du startprocess je peux mettre une variable?
En gros est-ce que [ startprocess sr ] est susceptible  de fonctionner (d'après la partie du code que j'ai montré toute à l'heure)?

Bon aller, cette fois le travail m'appelle, je repasserais vers 17h pour voir si quelqu'un a rep :)

PCPT · Answer

si SR est une string uniquement, donc non pour SR, oui pour une variable STRING
(oublie de suite ton envie de passer LE CONTENU du fichier en param !!!)

Panodrek · Answer

*oubli*

C'est fait... ^^"

Panodrek · Answer

En fait je ne souhaite pas récupérer le contenu du mon document excel pour le mettre dans une variable, je souhaiterais récupérer l'adresse du document sélectionner pour le stocker dans une variable, pour apres pouvoir la placer apres un "startprocess". C'est possible?

PCPT · Answer

tu as tous les éléments depuis le début...

If OpenFichierExcel.ShowDialog() = DialogResult.OK Then _
    startprocessOpenFichierExcel.FileName

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Panodrek · Answer

Ouais mais j'y connais pratiquement rien en VB, je me lance là, donc je comprend pas tout :s
En tout cas merci :)

PCPT · Answer

c'est l'éternel problème des copier/coller :)
si on copie sans comprendre, souvent un moment, "çà marche pas" ^^

ps : si une ou des réponses te conviennent, pense à les valider

Panodrek · Answer

Bon alors y'a un plus et un moins: 
le plus c'est que j'ai plus d'erreurs et que tout est "reconnu";

le moins, c'est qu'après avoir appuyer sur le bouton "Ouvrir" de la boite de dialogue (donc après avoir sélectionner mon fichier à ouvrir), rien ne se passe. J'ai fais l'exécution en "Pas à pas détaillé", et je remarque qu'en cliquant sur le bouton "Ouvrir" de la boite de dialogue, je ne rentre pas dans le If.

(Je remet ici le code que j'ai utilisé, pour éviter de retourner tout au début)

Public Class Form1

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

    Public Sub StartProcess(ByVal sFile As String, Optional ByVal sParameters As String = vbNullString)
        ShellExecute(0&, "open", sFile, sParameters, vbNullString, 1&)
    End Sub

    Private Sub Ouvrir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ouvrir.Click
        Dim OpenFichierExcel As New OpenFileDialog()
        OpenFichierExcel.Filter = "Fichiers CSV| *.csv"
        OpenFichierExcel.Title = "Selectionner le .csv à traiter (Extrait de REMEDY)"

        If OpenFichierExcel.ShowDialog() = DialogResult.OK Then
            StartProcess(OpenFichierExcel.FileName())
        End If
    End Sub
End Class

J'avoue ne pas avoir trop compris le code de la déclaration de ShellExecute, mis à part le fait que c'est ce qui apparamment servirait à fare en sorte à ce que StartProcess ouvre le .csv dans excel... mais je suis vraiment pas sur :s

Panodrek · Answer

C'est bon, j'ai trouvé pourquoi rien ne s'affichait: j'avais oublié "appExcel.Visible = True" ...
Merci à tous de m'avoir aidé :)

Ouverture d'un document .csv sur excel

18 réponses

Votre réponse