Ouvrir un fichier quelconque

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 549 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

tafitarison
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?
freyr86
Messages postés
6
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
emipapi
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!!!
patoucanard
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
cs_anonymer
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 !

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.