utiliser une boite dialogue pour ouvrir un fichier

Question

salut à tous,je voudrais créer uneboite de dialogue que j'utiliserai pou ouvrir mes fichiers.j'ai écris un bout de code qui ouvre la boite de dialogue et me permet de choisir un fichier.sauf que quand je clique sur le bouton ouvrir le fichier en question ne s'ouvre pas.Voici ma portion de code :
Dim savename As String
    Dim newname As String
    Dim SaveDialog As Object
    Dim wb As Object
    Dim ws As Object
    
    Dim ret%
    
    'savename = ActiveProject.FullName
   Set SaveDialog = CreateObject("SAFRCFileDlg.FileOpen")
    ret = SaveDialog.OpenFileOpenDlg()
    
    If ret <> 0 Then
     newname = SaveDialog.FileName
    Else
     MsgBox "Aucun fichier destination selectionné"
     Exit Sub
    End If
 sap quelqu'un pourrai m'aider à rentabiliser sinon à parfaire ce code?

PCPT · Answer

salut, createobject en dotnet?..... BREF newname = SaveDialog.FileName conserver le nom c'est bien mais faut le traiter ensuite...

' OUVRIR UN DOCUMENT / LANCER UN EXECUTABLE ' http://www.codyx.org/snippet_ouvrir-document-lancer-executable_25.aspx#69 ' Posté par [ =399445 Pym Corp ] le 22/03/2006

Public Function StartProcess(ByVal cmd As String, Optional ByVal parameters As String = "") As Process If parameters = String.Empty Then Return Process.Start(cmd) Else Return Process.Start(cmd, parameters) End If End Function '---------------------------------------------------------------- 'Remarques : 'Ne pas oubliez d'ajouter la directive : 'Imports System.Diagnostics 'en haut de la classe.

Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_fauve · Answer

Salut, Voici une autre manière d'ouvrir un fichier légèrement différente :

Sub ouvrir_un_fichier() Dim OFD As New OpenFileDialog OFD.CheckFileExists = True OFD.CheckPathExists = True OFD.AddExtension = True If OFD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then Exit Sub End If Process.Start(OFD.FileName) End Sub

++ Fauve

Pensez : Réponse Acceptée

Utiliser une boite dialogue pour ouvrir un fichier

2 réponses

Votre réponse

Discussions similaires