J'ai dans mon appli une liste de fichiers et je connais leurs paths
Je voudrai pouvoir les ouvrir (je recherche l'équivalent code de Fichier --> Ouvrir --> path du fichier), comme dans Outlook lorsqu'on double click sur une pièce jointe
Pour les exe, j'y arrive (shell + path)
comment faire pour les autres (xls, doc, pdf..)???

Aidez moi!

remoi, j'ai trouvé :

Public 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

Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
'Ouvre un fichier par son path
Dim hBrowse As Long
hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)
End Sub

call Navigate(ME, path du fichier)


-------------------------------
Réponse au message :
-------------------------------

J'ai dans mon appli une liste de fichiers et je connais leurs paths
Je voudrai pouvoir les ouvrir (je recherche l'équivalent code de Fichier --> Ouvrir --> path du fichier), comme dans Outlook lorsqu'on double click sur une pièce jointe
Pour les exe, j'y arrive (shell + path)
comment faire pour les autres (xls, doc, pdf..)???

Aidez moi!

Y a + simple. Avec shell("notepad file.txt")
shell("worpad fichier.doc") ....
A+

Ceoph


-------------------------------
Réponse au message :
-------------------------------

remoi, j'ai trouvé :

Public 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

Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
'Ouvre un fichier par son path
Dim hBrowse As Long
hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)
End Sub

call Navigate(ME, path du fichier)


-------------------------------
Réponse au message :
-------------------------------

J'ai dans mon appli une liste de fichiers et je connais leurs paths
Je voudrai pouvoir les ouvrir (je recherche l'équivalent code de Fichier --> Ouvrir --> path du fichier), comme dans Outlook lorsqu'on double click sur une pièce jointe
Pour les exe, j'y arrive (shell + path)
comment faire pour les autres (xls, doc, pdf..)???

Aidez moi!

Quand j'effectue la méthode : Public declare function ShellExecute Lib "shell32.dll" ........................

à la compilation j'ai :
"compile error
Constants, fixed-lenght strings, arrays, user-defined types and Declare statement not allowed as public members of object modules

"

Je ne pige pas ...

A qui cela est due

Merci d'avance


-------------------------------
Réponse au message :
-------------------------------

>
> Y a + simple. Avec shell("notepad file.txt")
> shell("worpad fichier.doc") ....
> A+
>
> Ceoph
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> remoi, j'ai trouvé :
>
> Public 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
>
> Public Sub Navigate(frm As Form, ByVal WebPageURL As String)
> 'Ouvre un fichier par son path
> Dim hBrowse As Long
> hBrowse = ShellExecute(frm.hwnd, "open", WebPageURL, "", "", SW_SHOW)
> End Sub
>
> call Navigate(ME, path du fichier)
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> J'ai dans mon appli une liste de fichiers et je connais leurs paths
> Je voudrai pouvoir les ouvrir (je recherche l'équivalent code de Fichier --> Ouvrir --> path du fichier), comme dans Outlook lorsqu'on double click sur une pièce jointe
> Pour les exe, j'y arrive (shell + path)
> comment faire pour les autres (xls, doc, pdf..)???
>
> Aidez moi!
>
>
>