commondialog VB (afficher fichier) Fermé

Question

salut tous le mondeje souhaite ouvrir un fichier en utilisant un commondialog sous VB.comment faire?nb:je n'ai jamais programmer en VB .merci pour votre aide

mikl · Answer

cette partie de code recupere le chemin d'un fichier dans filepath et lit le fichier text pour afficher son contenu dans une list box 

il faut ajouter la commande commondialog sur le form ou il y a le bouton. 

Private Sub Command2_Click()

Dim fs As Object
Dim Rep As Integer, Filenumber As Integer
Dim filepath As String, TMPligne As String
Dim Ext As Variant

Set fs = CreateObject("Scripting.FileSystemObject")

filepath = FiletoOpen(CommonDialog1, App.Path, True, "Fichier à charger", cdlOFNHideReadOnly, "Fichiers (*.txt)|*.txt", 2)
If filepath <> "" Then
    Ext = Extension(filepath)
    'MsgBox (Ext)
    If LCase(Ext) = "txt" Then
        If fs.FileExists(filepath) Then
            Filenumber = FreeFile    ' Lit le numéro de fichier inutilisé.
            ' Crée le nom du fichier.
            Open filepath For Input As #Filenumber
            Do While Not EOF(Filenumber)
                Line Input #Filenumber, TMPligne
                List1.AddItem (TMPligne)
            Loop
            Close #Filenumber    ' Ferme le fichier.
        Else
            Rep = MsgBox("Le fichier " & filepath & " n'existe pas Veuillez choisir un autre fichier", vbCritical, "Erreur")
        End If
    Else
        Rep = MsgBox("Le format du fichier est incorrecte veuillez choisir un fichier Excel", vbCritical, "Erreur")
    End If
End If
End Sub

bye

mickael

mickl · Answer

z'avais oublier cette fonction desoler!!!


Public Function FiletoOpen(Commondial As CommonDialog, inipath As Variant, Optional varCancelError As Boolean, Optional title As String, Optional flag As Variant, Optional filtr As String, Optional filtridx As Integer, Optional ObjetBox As Object) As String

Commondial.CancelError = varCancelError ' Attribue à CancelError la valeur True
On Error GoTo ErrHandler
Commondial.DialogTitle = title ' Définit le titre de la fenêtre
Commondial.Flags = flag ' Définit la propriété Flags
Commondial.InitDir = inipath ' Chemin Initial
Commondial.Filter = filtr ' Définit les filtres
Commondial.FilterIndex = filtridx ' Définit le filtre par défaut
Commondial.ObjetBox ' Affiche la boîte de dialogue Ouverture
' Enregistrement du Chemin Selectionné
FiletoOpen = Commondial.FileName

ErrHandler:
'L'utilisateur a cliqué sur Annuler
End Function

mickl · Answer

Encore une boulette à la place de cette ligne :

Commondial.ObjetBox ' Affiche la boîte de dialogue Ouverture 

mettre cette ligne 

Commondial.ShowOpen

dsl c'est la fin de semaine

josavoi · Answer

bonsoir , 
Au secours , je travaille en ce moment sur une application d'envoin d'un mail et je souhaite joindre des fichiers (.xls,.doc,.zip) à mon mail avant de l'envoyer via outlook. je ne sais comment faire pour joindre les fichiers, à l'aide s'il vous plait.
autre chose , je ne sais si c'est possible d'extraire des données ( requêtes) dans une base sql et de les afficher dans un form dans des textbox distinct ou même dans un seul textbox. svp svp aidez moi , ça fait longtemps que je cherche une solution.
 merci d'avance

Commondialog VB (afficher fichier)

4 réponses

Discussions similaires