Discussion :

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute Me.hwnd, "open", "http://<a href="http://www.developpez.com"," target="_blank">www.developpez.com",</a> "", App.Path, 1

moi je l'ai mis de la sorte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CmdAddFile_Click()
 
ShellExecute Me.hwnd, "open", "http://<a href="http://www.developpez.com"," target="_blank">www.developpez.com",</a> "", App.Path, 1

Merci de me tenir informé

[ouskel'n'or]

En vba j'ai ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim NomAppli, AdresseHTTP
NomAppli = "C:\Program Files\Internet Explorer\IEXPLORE.EXE "
AdresseHTTP = "http://<a href="http://www.developpez.net/forums/posting_secure.php?mode=reply&t=398036"" target="_blank">http://www.developpez.net/forums/pos...eply&t=398036"</a>
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?