Discussion :

[p'tite Sandrine]

bonjour,

j'aimerais un peu d'aide.
J'ai créer des bouton pour consulter des fichiers annexes dont les chemins d'acces sont enregistrer dans chaque enregistrements.
ce chemin d'accès est composé d'une partie identique (chemin vers dossier stoqué dans une table) et d'un champ contenant le nom du fichier et son extension.

mon code est:

Code :

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

1
2
3
4
Dim StrFichier As String
 
    StrFichier = Me!ChemDoss & "\" & Me!photos
    Shell """WINWORD.EXE""""&strFichier&""", vbNormalFocus

Mais quand je clic ca ouvre word par contre j'ai un mesage d'erreur:

Code :

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

1
2
3
4
impossible d'ouvrir le document
essayer: - ouvrir le fichier par Fichier\Ouvrir
            - vérifier votre extension .doc
(C:\WINNT\Profiles\...\&strFichier&)

Je suppose donc qu'il ne comprend pas mon chemin et cherche le fichier &strFichier& dans un dossier par default sur "C:".
Comment y remédier?

Et y a t'il un moyen de lui demander d'ouvrir ces document en lecture seule?

merci pour toutes les pistes que vous pourrez me donner.

[loufab]

Bonjour,

La ligne au moment de l'exécution doit ressembler à ceci.

Shell "winword.exe ""C:\repertoire\mon repertoire\nom du fichier.doc"""

Il faut bien doubler les " pour le chemin/nom de fichier.

Pour la lecture seule... c'est le mystère !

Cordialement,

[p'tite Sandrine]

en fait pour simplifier la manoeuvre j'ai créer un racourcis ver le dossier de base de donnée qui est sur le serveur (ChemDoss ressemble à Y:\image)

et j'aimerais pouvoir créer une variable &strFichier& car comme je vais devoir installer ma base sur un autre serveur je risque de devoir remodifié ce genre de donnée plus tard et franchement j'ai pas envie de perdre mon temp a le corriger bouton par bouton.

Je me suis donc inspirer du code que tu me présente et des variable proposer dans le tutoriel pour les ajout image.

mais je dois avoir une erreur mais ou?

[loufab]

Le code que je t'ai fourni démontre le placement des doubles cotes valides.

Ceci est causé par la présence d'espace.

le fait que le code soit composé à partir de variables est transparent.

regarde ta ligne dans le debogueur.

ne pas oublié l'espace entre winword.exe et le chemin.

[p'tite Sandrine]

j'ai bien mis les double "" "" autour du chemin d'acces mais le problème persiste .
Il semble vouloir aller chercher mon strFichier dans un dossier sur le disque C: par default plutot que de tenir compte de ma variable

as tu une autre idée?

[loufab]

Pas d'autre idée du moment que le problème des double cote et espaces ne sera pas corrigé.

StrFichier = Me!ChemDoss & "\" & Me!photos
Shell "WINWORD.EXE """ & strFichier & """", vbNormalFocus

Avec cette syntaxe cela devrait mieux fonctionner.

Cordialement,

[p'tite Sandrine]

Effectivement!!!

je vais allez faire une viste pour verifier ma vue.
Ou retourner en primaire pour ré-apprendre a compter.

enfin bon ca marche.
Un tout grand merci a toi.