SHELLEXECUTEEX : OUVRIR FICHIER AVEC SON LECTEUR PAR DÉFAUT (ET LE FERMER)

Messages postés
13
Date d'inscription
vendredi 5 septembre 2003
Statut
Membre
Dernière intervention
10 février 2005
- - Dernière réponse : Vedlen
Messages postés
359
Date d'inscription
mardi 14 octobre 2003
Statut
Membre
Dernière intervention
7 septembre 2009
- 1 oct. 2006 à 16:30
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/18251-shellexecuteex-ouvrir-fichier-avec-son-lecteur-par-defaut-et-le-fermer

Afficher la suite 
Vedlen
Messages postés
359
Date d'inscription
mardi 14 octobre 2003
Statut
Membre
Dernière intervention
7 septembre 2009
-
Super, mais tu devrais éventuellement rajouter la fonction GetExtension dans le code au lieu de le faire dans le forum. Cependant je ne suis pas sûr qu'elle soit vraiment utile... 10/10
FRSANGC
Messages postés
3
Date d'inscription
dimanche 25 décembre 2005
Statut
Membre
Dernière intervention
8 décembre 2009
-
Bonsoir,

Tous mes bons voeux pour cette nouvelle année.

Je débute en vb et je voudrais pouvoir ouvrir un fichier PDF à partir d'un fichier excel via Visual Basic.
J'ai trouvé ce code je prense que c est exactement ce que je recherche mais je ne vois pas comment exécuter l'ouverture ou la fermeture du fichier pdf.
En fait je voudrais avoir un BOUTON OUVRIR et un BOUTON FERMER qui en cliquant dessus ouvre le fichier Pdf (on va dire que le fichier est en C:\dossier\plan.pdf.
Si vous pouviez m aider ce serait sympa c est pour le boulot
Antoine
Mon mail antoine5945@hotmail.fr
cs_bastogne
Messages postés
5
Date d'inscription
mercredi 24 mars 2004
Statut
Membre
Dernière intervention
8 novembre 2005
-
avec ce source (adapté à ma sauce) j'essaye de lancer l'application 'runas.exe' en lui rentrant des parametres en plus par rapport au source le problème est que j'obtient le message d'erreur "accès au fichier refusé" or j'ai les droits administrateur sur ma machine et que manuellement j'arrive à lancer correctement l'appli runas, si quelqu'un peut m'aider ce serait gentil
cs_smellycat
Messages postés
6
Date d'inscription
jeudi 10 avril 2003
Statut
Membre
Dernière intervention
19 juillet 2004
-
Ce source ne marche pas avec les programmes installés avec Microsoft INstaller, ainsi que les progs Word, excel et autres ....
jockos
Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
2 -
Pour les codes d'erreur, je vais les rajouté à ma source...

A+
jockos
Messages postés
321
Date d'inscription
dimanche 22 octobre 2000
Statut
Membre
Dernière intervention
14 mai 2005
2 -
Public Function GetExtension(ByRef sName As String) As String
Dim start As Long

start = InStrRev(sName, ".")
GetExtension = Right$(sName, Len(sName) - start)

End Function
alainisfce
Messages postés
13
Date d'inscription
vendredi 5 septembre 2003
Statut
Membre
Dernière intervention
10 février 2005
-
Hello,

Ton code est super, il repond à ce que je cherchais,
mais comment on fait lorsque l'on a pas ta fonction msg
pour savoir à quoi correspond la valeur des code d'erreur

Pourrais tu me dire ou je peux trouver la fonction Getextention

merci