Ouvrir un fichier quelconque

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 625 fois - Téléchargée 41 fois

Contenu du snippet

Pour ouvrir un fichier se trouvant sur votre disque dur, quel que soit l'extension...

Source / Exemple :


Private Sub Ouvrir_Click()
shell "le_fichier", vbNormalFocus
End Sub

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
jeudi 1 avril 2010
Statut
Membre
Dernière intervention
26 août 2010

ce code de FREYR86
[Dim "variable" As Long
"variable" = Shell("chemindu fichier", vbNormalFocus)]
ne fonction pas est qu'il y a d'autre moyen?
Messages postés
4
Date d'inscription
vendredi 9 septembre 2005
Statut
Membre
Dernière intervention
16 juillet 2010

Oula alt au massacre voila une ligne qui marche.

Dim "variable" As Long
"variable" = Shell("chemindu fichier", vbNormalFocus)

essayer avec sa messieurs
Messages postés
1
Date d'inscription
mercredi 24 juin 2009
Statut
Membre
Dernière intervention
24 juin 2009

ça na marche même pas avec les exécutables!!!
Messages postés
3
Date d'inscription
dimanche 25 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2013

la fonction "shell" fonctionne avec les extensions connues comme EXE, AVI mais ne peut pas démarrer un fichier .DOC ou .XLS, etc..., il faut placer avant l'application qui utilise ce fichier
"C:/....../Word.exe" par exemple
Messages postés
2
Date d'inscription
mercredi 30 mars 2005
Statut
Membre
Dernière intervention
11 mai 2005

Private Sub Ouvrir _Click()
Shell "C:\Windows\Clock.avi"
End Sub

c un peu simple .... et ca c obliger ca marche !
Afficher les 9 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.