[module] Commande

Version imprimable

11/01/2006, 11h20
b_steph_2

[module] Commande

bonjour,

j'ai deux petites questions :

1- Peut on à partir d'un module ouvrir un fichier.doc?
2- Si oui, quel est le code à inclure dans la fonction? Si non, y a t il une autre solution?

Re,
oui c'est possible :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Sub OuvrirDossier(nomDossier As String)
    Dim i As Integer, FichierExistant As Object
    Dim cheminDossier As String
 
    cheminDossier = Administration.DOSSIER_WORD_EN_COURS & nomDossier & ".doc"
    Set FichierExistant = CreateObject("Scripting.FileSystemObject")
 
    If FichierExistant.FileExists(cheminDossier) = True Then
       'le fichier existe dans le premier répertoire
       Call Shell("winword " & cheminDossier, 1)
    Else
        cheminDossier = Administration.DOSSIER_WORD_FAIT & nomDossier & ".doc"
        If FichierExistant.FileExists(cheminDossier) = True Then
            'Le fichier existe dans l'autre répertoire
            Call Shell("winword " & cheminDossier, 1)
        Else
            'le fichier existe dans aucun répertoire
            MsgBox "Le dossier n'existe pas !", vbInformation, "Message Information"
        End If
    End If
    Set fs = Nothing
End Sub

Ce code permet en passant le nom (sans l'extension .doc) dans la fonction de verifer si le fichier existe et si il existe de l'ouvrir.
A+

11/01/2006, 11h33
b_steph_2
ok, j'avais compris pour le test! Heu est ce que tu sais si ça ça pourrait marcher dasn un module
Code:

1 2 3 Public Function LancerAide() Shell (FichierAide.doc) End Function
?
11/01/2006, 11h36
LeScandinave

Bonjour,
hum... tu n'as qu'à tester :lol: , et si ça ne marche pas donne l'erreur :wink:
11/01/2006, 11h38
niclalex

Je ferais plutot de la façon suivante :

Code:

Call Shell ("winword FichierAide.doc", 1)

Ensuite il faut juste essayer...
A+
11/01/2006, 11h46
b_steph_2

comment fait on pour rattacher le code au bouton?
11/01/2006, 11h49
b_steph_2

ok c'est bon j'ai trouvé comment faire!! Donc le code

Code:

Call Shell ("winword FichierAide.doc", 1)

fonctionne très bien! Merci ;)