KC62
Messages postés229Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention20 juin 2007
-
25 févr. 2004 à 13:46
KC62
Messages postés229Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention20 juin 2007
-
25 févr. 2004 à 16:28
Salut !
voila aprés quelque recherche j'ai réussi a établir cette ligne de code :
Shell "G:\info\RL\osefi2.dtf"
le fichier que je dois ouvrir ( le point dtf) est une requete AS/400) si je met cette ligne dans la commande Executer de windows sa marche mais si je la met dans mon programme sa marhce plus.
Erreur : " Appel de procédure incorrect ". javoue être a la bourre C pourquoi je pose la question sur le forum tout en continuant a chercher de moi meme.
Merci davance !
KC62
On a pas toutes les solutions de tous les probleme mais chaque probleme à ses solutions ...
cs_sebV
Messages postés107Date d'inscriptionmardi 20 août 2002StatutMembreDernière intervention15 octobre 2004 25 févr. 2004 à 15:24
Shell ne permet d'executer que des application pas s'ouvir des document, c'est pour ça que ça marche pas, jais jamais trop regarder comment on fait mais peu être que la solution de rene38 est bonne.
*******Sébastien VALAT*********
*****Mon site : Progra-net : www.progra-net.fr/*****
cs_sebV
Messages postés107Date d'inscriptionmardi 20 août 2002StatutMembreDernière intervention15 octobre 2004 25 févr. 2004 à 15:24
Shell ne permet d'executer que des application pas s'ouvir des document, c'est pour ça que ça marche pas, jais jamais trop regarder comment on fait mais peu être que la solution de rene38 est bonne.
*******Sébastien VALAT*********
*****Mon site : Progra-net : www.progra-net.fr/*****
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 25 févr. 2004 à 15:58
Elle l'est :
Dans la section Général - Déclarations
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
Ensuite, par exemple avec un bouton Command1 :
Private Sub Command1_Click()
Dim Chemin As String, Fichier As String, Retour As Long
Chemin = "G:\info\RL"
Fichier = Chemin & "osefi2.dtf"
Retour = ShellExecute(Me.hwnd, "Open", Fichier, vbNullString, Chemin, SW_SHOWNORMAL)
If Retour < 33 Then MsgBox "Impossible d'ouvrir ce fichier..."
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?