ouverture de fichier par userform

Question

bonjour,

je souhaiterais ouvrir un fichier a l'aide d'un userform ou je pourrais spécifier :

- le disque dans une combo
- le dossier dans une liste
- puis le fichier ...

qq un pourrait il m'aider ou me donner un lien ou je peux trouver ca.

merci

pierre

econs · Answer

Sur ton formulaire, tu places un drive (Drive1), un dirbox (dir1) et un filebox (File1), ainsi qu'un bouton (Command1)
*****************************************
code de la form
*****************************************

Public PREVIOUS_DRIVE As Long

Private Sub Command1_Click()
FaireQuelqueChose
End Sub

Private Sub Dir1_Change()
frmMain.lblPath = frmMain.Dir1.Path
End Sub

Private Sub Drive1_Change()
    
    On Error GoTo errHandler
    
    frmMain.Dir1.Path = frmMain.Drive1.List(Drive1.ListIndex)
    PREVIOUS_DRIVE = frmMain.Drive1.ListIndex
    frmMain.lblPath = frmMain.Dir1.Path
    Exit Sub
errHandler:
    MsgBox "Périphérique non connecté ou vide", vbCritical
    frmMain.Drive1.ListIndex = PREVIOUS_DRIVE
End Sub

Private Sub Form_Load()
    PREVIOUS_DRIVE = frmMain.Drive1.ListIndex
    frmMain.lblPath = frmMain.Dir1.Path
    frmMain.File1.Path = frmMain.Dir1.Path
End Sub

Private Sub FaireQuelqueChose()
If frmMain.File1.ListIndex <> -1 Then
    'ouvrir le fichier
Else
    MsgBox "Veuillez sélectionner un fichier", vbCritical
End If
End Sub

Manu

pierrefou · Answer

la classe !

en plus je l'avais deja fait.... mais impossible de m'en souvenir.

Merci bcp

a+

Ouverture de fichier par userform

2 réponses

Discussions similaires