DEMARER N'IMPORTE QUEL FICHIER AVEC SON PROG ASSOCIÉ

Didf Messages postés 21 Date d'inscription mercredi 26 octobre 2005 Statut Membre Dernière intervention 12 mars 2008 - 26 oct. 2005 à 10:35
Orlean2 Messages postés 50 Date d'inscription samedi 28 février 2004 Statut Membre Dernière intervention 1 décembre 2015 - 12 mars 2013 à 21:32
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/3759-demarer-n-importe-quel-fichier-avec-son-prog-associe

Orlean2 Messages postés 50 Date d'inscription samedi 28 février 2004 Statut Membre Dernière intervention 1 décembre 2015
12 mars 2013 à 21:32
Je trouve sa super
pour moi sa marche
j'ai remplacer tout les shell de mes programmes
merci a +
pelo21 Messages postés 3 Date d'inscription samedi 5 août 2006 Statut Membre Dernière intervention 11 janvier 2009
11 janv. 2009 à 13:58
Un grand merci pour ton Code Renfield
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
5 janv. 2009 à 15:42
App.Path n'existe pas non plus sous Excel...
Bysnu Messages postés 7 Date d'inscription lundi 15 décembre 2008 Statut Membre Dernière intervention 7 avril 2009
5 janv. 2009 à 15:40
Voici le code que j'ai mis dans une feuille :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
ShellExecute 0, "open", App.Path & "\sarto9.sw1", vbNullString, App.Path, SW_SHOWNORMAL
End Sub

Il me met:

erreur d'exécution '424'
Objet requis


je précise, le fichier excel en question est sur mon bureau ainsi que le fichier sarto9.sw1, donc ils se trouvent dans le même répertoire....

Comprends pas. Une idée ?
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
5 janv. 2009 à 15:10
mets 0 à la place
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
5 janv. 2009 à 15:10
pas de hWnd aux UserForms
Bysnu Messages postés 7 Date d'inscription lundi 15 décembre 2008 Statut Membre Dernière intervention 7 avril 2009
5 janv. 2009 à 14:50
Bonjour,

J'essaie par tous les moyens d'ouvrir un fichier associé à une programme exécutable via VBa par Excell...

Lorsque j'essaie avec ce code, j'ai une erreur au niveau de "Me.hwnd" :
Erreur de compilation
Membre de méthode ou de données introuvable

Comment faire ???
D'avance merci
cs_fred747 Messages postés 1 Date d'inscription vendredi 29 juillet 2005 Statut Membre Dernière intervention 27 septembre 2007
27 sept. 2007 à 15:48
merci pour cet exemple simple et efficace
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
27 déc. 2006 à 14:20
ce genre de choses est a coller dans la partie Déclarations de ton code (tout en haut)
Didf Messages postés 21 Date d'inscription mercredi 26 octobre 2005 Statut Membre Dernière intervention 12 mars 2008
26 oct. 2005 à 10:35
quand je colle :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1

j'obtiens un message d'erreur a l'execution de mon programme:
"Erreur de compilation

seuls des commentaires peuvent apparaitre apres End Sub, End Function ou End Property"

et la ligne
(Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long) est selectionnée...

help
Rejoignez-nous