Ouvrir un fichier Word (Shell [Résolu]

[priest69]

Bonjour,

J'essaye depuis qq temps de créer un système (dans ma base de données Access) me permettant d'ouvrir un fichier (dont le chemin d'accès est fourni dans un TextBox).

Code :

1
2
 
ShellExecute Me.hwnd, "open", CheminFichier, "", App.Path, 1

Le petit souci, c'est qu'il me renvoye une erreur :
Sub ou fonction non définie (en surlignant le ShellExecute) .. Pourtant il me semble avoir définie dans mon module.

Et j'ai même ajouter la référence Microsoft Script runtime

Que pasa ?

MErci

[ridan]

Salut,

http://vb.developpez.com/faq/?page=Systeme#shellexecute

[priest69]

Waow t'es trop fort !!! est ce pour cela que tu es moderateur ?? non, désolé, ct un grain d'ironie

Merci de me signaler le link, j'informe everybody, que j'ai deja (avant de faire mon 1er post) lu la FAQ !!!!

Malheureusement, j'ai bien suivi mais y a qq'chose qui louche ... mais il ne dit pas ou mettre le :

Code :

ShellExecute Me.hwnd, "open", "http://www.developpez.com", "", App.Path, 1

moi je l'ai mis de la sorte :

Code :

1
2
3
Private Sub CmdAddFile_Click()
 
ShellExecute Me.hwnd, "open", "http://www.developpez.com", "", App.Path, 1

Merci de me tenir informé

[ouskel'n'or]

En vba j'ai ça :

Code :

1
2
3
4
5
Dim NomAppli, AdresseHTTP
NomAppli = "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
AdresseHTTP = "http://www.developpez.net/forums/posting_secure.php?mode=reply&t=398036"
n = NomAppli + AdresseHTTP
Call Shell(n, 3)

Tu peux toujours essayer...

A+

[priest69]

Pas mal trouvé, et comment faire s'il s'agit d'un fichier word ? et que ma variable HTTPAdresse = "c:\test.doc" ?

Thanks

[ouskel'n'or]

Dans le même esprit ? Alors j'ai ça :

Code :

1
2
3
4
5
6
    critère2 = "Bultain scolère.doc"
    chemin = "D:\"
    NomComplet = chemin + critère2
    n = "WINWORD.EXE " + NomComplet
    Call Shell(n, 3)
    AppActivate DemWord

Si ça peut te servir...

A+

[priest69]

Merci bien
y at-il un moyen de déterminer si le fichier est bien au format word ? j'pensais faire une extraction de l'extension et vérifier si c'est bien un .doc. Mais dés lors que l'on n'affiche pas les extensions, ca ne fonctionne pas.

Une autre idée ?