3 réponses
Salut,
Sur ta feuille tu dois mettre un controle "commondialog" et faire appel à lui (ocx à utiliser : comdlg32.ocx) et un bouton "Command1" pour l'exemple qui suit :
Sur l'événement click du bouton
Private Sub Command1_Click()
Dim sFile As String
With CommonDialog1
.DialogTitle = "Ouvrir"
.CancelError = False
.Filter = "Tous les fichiers(*.*)|*.*|Documents Word(*.doc)|*.doc|Rich Text Format(*.rtf)|*.rtf|Fichier texte(*.txt)|*.txt|"
.FilterIndex = 3
.ShowOpen
sFile = .FileName
End With
End Sub
Sur ta feuille tu dois mettre un controle "commondialog" et faire appel à lui (ocx à utiliser : comdlg32.ocx) et un bouton "Command1" pour l'exemple qui suit :
Sur l'événement click du bouton
Private Sub Command1_Click()
Dim sFile As String
With CommonDialog1
.DialogTitle = "Ouvrir"
.CancelError = False
.Filter = "Tous les fichiers(*.*)|*.*|Documents Word(*.doc)|*.doc|Rich Text Format(*.rtf)|*.rtf|Fichier texte(*.txt)|*.txt|"
.FilterIndex = 3
.ShowOpen
sFile = .FileName
End With
End Sub
