DEMARER N'IMPORTE QUEL FICHIER AVEC SON PROG ASSOCIÉ
Didf
Messages postés21Date d'inscriptionmercredi 26 octobre 2005StatutMembreDernière intervention12 mars 2008
-
26 oct. 2005 à 10:35
Orlean2
Messages postés50Date d'inscriptionsamedi 28 février 2004StatutMembreDerniè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.
Orlean2
Messages postés50Date d'inscriptionsamedi 28 février 2004StatutMembreDerniè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és3Date d'inscriptionsamedi 5 août 2006StatutMembreDernière intervention11 janvier 2009 11 janv. 2009 à 13:58
Un grand merci pour ton Code Renfield
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 5 janv. 2009 à 15:42
App.Path n'existe pas non plus sous Excel...
Bysnu
Messages postés7Date d'inscriptionlundi 15 décembre 2008StatutMembreDerniè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és17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 5 janv. 2009 à 15:10
mets 0 à la place
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 5 janv. 2009 à 15:10
pas de hWnd aux UserForms
Bysnu
Messages postés7Date d'inscriptionlundi 15 décembre 2008StatutMembreDerniè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és1Date d'inscriptionvendredi 29 juillet 2005StatutMembreDernière intervention27 septembre 2007 27 sept. 2007 à 15:48
merci pour cet exemple simple et efficace
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 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és21Date d'inscriptionmercredi 26 octobre 2005StatutMembreDernière intervention12 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...
12 mars 2013 à 21:32
pour moi sa marche
j'ai remplacer tout les shell de mes programmes
merci a +
11 janv. 2009 à 13:58
5 janv. 2009 à 15:42
5 janv. 2009 à 15:40
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 ?
5 janv. 2009 à 15:10
5 janv. 2009 à 15:10
5 janv. 2009 à 14:50
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
27 sept. 2007 à 15:48
27 déc. 2006 à 14:20
26 oct. 2005 à 10:35
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