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

alainisfce Messages postés 13 Date d'inscription vendredi 5 septembre 2003 Statut Membre Dernière intervention 10 février 2005 - 15 janv. 2004 à 08:59
Vedlen Messages postés 360 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

Vedlen Messages postés 360 Date d'inscription mardi 14 octobre 2003 Statut Membre Dernière intervention 7 septembre 2009
1 oct. 2006 à 16:30
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
2 janv. 2006 à 23:44
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
8 nov. 2005 à 17:05
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
18 juil. 2004 à 19:35
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
16 janv. 2004 à 11:47
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
16 janv. 2004 à 11:45
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
15 janv. 2004 à 08:59
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
Rejoignez-nous