[VBA] commande Shell sans résultat

**p'tite Sandrine** · 12/02/2007, 13h28

Bonjour,

Dans ma base de donnée j'aiun champs qui contient le chemin d'accès complet vers le courrier word qui est attaché à l'enregistrement.

j'ai tenté de créer un bouton qui ouvre ce document.
Mais je m'explique pas trop pourquoi ca ne fonctionne pas.

j'utilise la commande shell... faut-il activer une bibliothèques particulière dans les références pour utiliser cette commande?
Actuellement j'ai essayer comme suit:

Code :

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

1
2
3
4
dim strFichier as string
 
strFichier=Me!chemDoss
Shell"WINWORD.EXE ""& strFichier &""",vbNormalFocus

mais il me renvoit un message d'erreur comme quoi le fichier est introuvable
Donc j'ai essayer avec le chemin complet de word

Code :

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

1
2
3
4
dim strFichier as string
 
strFichier=Me!chemDoss
Shell"""C:\...\WINWORD.EXE"" ""& strFichier &""",vbNormalFocus

là, quand je clic sur le bouton j'ai un sablier qui apparait une fraction de seconde puis plus rien. Pas de word et pas de message d'erreur.
Quelqu'un a t'il une idée de ce que j'ai oublié et qui provoque la panne?

merci

**Domi2** · 12/02/2007, 14h26

Bonjour p'tite Sandrine,

Perso, j'utilise ShellExecute. J'en suis fort content...

A coller dans un module standard :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Option Compare Database
Option Explicit
 
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
 
Function OuvrirDocument(strChemin As String)
 
    'Déclaration des variables
    Dim strErreur As String
 
    Select Case ShellExecute(0, "open", strChemin, vbNullString, vbNullString, 1)
 
        Case 0: strErreur = "Le système manque de mémoire ou de ressources, l'exécutable est corrompu ou réallocations non valides."
        Case 2: strErreur = "Fichier non trouvé."
        Case 3: strErreur = "Chemin non trouvé."
        Case 5: strErreur = "Une tentative a été faite pour se lier dynamiquement à une tache, ou il y a eu une erreur de partage ou de protection réseau."
        Case 6: strErreur = "La librairie requiert des segments de données séparés pour chaque tâche."
        Case 8: strErreur = "Il n 'y a pas assez de mémoire disponible pour lancer l'application."
        Case 10: strErreur = "Version de Windows incorrecte."
        Case 11: strErreur = "Le fichier exécutable n'est pas correct, il se peut que ce ne soit pas une application Windows, ou qu'il y ait une erreur dans le fichier .EXE;"
        Case 12: strErreur = "L'application a été conçue pour un autre système d'exploitation."
        Case 13: strErreur = "L'application a été conçue pour MS-DOS 4.0."
        Case 14: strErreur = "Le type de fichier exécutable est inconnu."
        Case 15: strErreur = "Tentative de chargement d'une application en mode réel."
        Case 16: strErreur = "Tentative de charger une seconde instance d'un fichier exécutable contenant plusieurs segments de données qui ne sont pas marqués en lecture seule."
        Case 19: strErreur = "Tentative de charger un fichier exécutable compressé. Le fichier doit être décompressé avant d'être chargé."
        Case 20: strErreur = "Fichier de librairie liée dynamiquement (DLL) incorrect, une des DLLs requise pour exécuter cette application est corrompue."
        Case 21: strErreur = "L 'application requiert les extensions Microsoft Windows 32-bit."
        Case 31: strErreur = "Il n 'y a pas d'association pour le type de fichier spécifié, ou il n'y a pas d'association pour l'action choisie pour le type de fichier choisi."
 
    End Select
 
    If strErreur <> "" Then
 
        MsgBox strErreur, vbCritical, "Erreur"
 
    End If
 
End Function

Et pour l'appel :

Code :

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

OuvrirDocument (CheminDocument)

CheminDocument est bien le chemin complet du document à ouvrir, y compris l'extension.

Cette solution me convient bien car le nom de l'application associée n'a pas besoin d'être spécifié (la gestion des erreurs m'a été donnée tout récemment par Tofalu, que je remercie encore).

Domi2

**a29595** · 12/02/2007, 22h11

Si mes souvenir son bon ta cde Shell doit etre placer dans une var

Code :

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

1
2
3
4
5
 
sub tasub()
dim myvar as long
Myvar=shell "chemin/ton_exe.exe"
end sub

A+

**tristan_sauvage** · 12/02/2007, 23h38

bonjour sandrine,

j'ai aussi eu le probleme il y a quelques temps. je m'en suis sorti en ajoutant call devant shell.

Code :

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

Call Shell("C:\chemin de l'appli" "D:\Mes documents\tondoc",1)

les solutions proposées avant sont peut etre plus efficaces je n'en sais rien..

bon courage

**p'tite Sandrine** · 13/02/2007, 10h50

hello,

merci a tous pour vos réponses.
J'avoue que pour finir en fouillant sur le net j'ai trouver une autre methode.
avec

Code :

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

1
2
3
4
5
6
7
8
9
 
dim WApp as word.application
dim strfichier as string
 
strfichier = me!chemDoss
Set WApp ...
with WApp
.visible = True
.Document.open strfichier

c'est a peu près ca de mémoire.
Le résultat est bon a peésent j'essaye de trouver le moyen de mettre une condition if qui permet de vérifier si le document existe toujours avant d'exécuter.
Car si il modifie l'emplacement ou supprime le document, actuellement il sont renvoyer a ma page de code ce que je ne souhaite pas.