NanouZozo
Messages postés11Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention11 juin 2003
-
2 juin 2003 à 10:58
gplog
Messages postés82Date d'inscriptionmardi 4 février 2003StatutMembreDernière intervention 7 juillet 2009
-
3 juin 2003 à 10:47
Bonjour,
j aimerai sélectionner un fichier quelconque du disque dur, et ensuite l'ouvrir.
(la meme sorte d'explorateur que qd on clique sur ouvrir dans Word).
Pour cela, j essai de créer une boite de dialogue, mais ne marche pas. (J ai ajouter pourtant le common dialog dans les controles activeX, mais le message d erreur suivant apparait lors de la création du controle : "vs ne possedez pas de license requise pour l'utilisation de ce controle activeX. Pour obtenir la licence appropriée, contactez la société qui fournit l'objet OLE ou le controle
ActiveX).
Que puis-je faire? N'y a t il pas un autre moyen?
Pouvez-vous bien m'expliquer, je débute.
Merci,
Nanou
cs_max12
Messages postés1491Date d'inscriptiondimanche 19 novembre 2000StatutModérateurDernière intervention 7 juillet 2014 29 mai 2003 à 00:42
BONNE FÊTE NIX !!!!
Max12 :) , www.psycomaxter.fr.st <= Totalement refait !!!!! ;) :-p
[Admin de Codes-Sources (Modérateur si vous voulez ;) )]
Aucun clavier n'a été mal traité pendant la composition de ce message ;)
gplog
Messages postés82Date d'inscriptionmardi 4 février 2003StatutMembreDernière intervention 7 juillet 20091 2 juin 2003 à 11:47
Mr_toto
Salut,
Il y a une solution qui consiste a créer cette sorte d'eplorateur sur une feuille avec trois controles :
- DriveListBox (pour le lecteur)
- DirListBox (pour les dossiers)
- FileListBox (pour les fichiers)
Tu place ces trois controles sur ta feuille puis le code suivant te permet de récupérer le nom du fichier.
Private Sub Drive1_Change()
Dir1.Path = Drive1.Path
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Drive
End Sub
Private Sub File1_Click()
Dim NomDuFichier as string ' Nom complet du fichier
' On stoke le Nom complet du fichier en fonction des selections
NomDuFichier = File1.Path & File1.FileName
End Sub
Sinon pour ouvrir le fichier ça depend ce que tu veut faire avec et ce que c'est comme fichier.