Discussion :

[p'tite Sandrine]

rebonjour,

Vous m'avez bien aidez a trouvez ou je me suis trompez pour mon code d'ouverture de mes fichier attachés.

J'aimerais savoir si qq'un savait m'aider a trouver le moyen d'ouvri le fichier mais lecture seule?

le code:

Code :

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

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

merci pour votre aide.

[p'tite Sandrine]

bonjour,

Je reformule ma question.

Est il possible a partir du code précedement citer, d'ouvrir le fichier word en fonction lecture seule?

Ou est-ce impossible?

[ActionAccess]

Bonjour,

Pour ouvrir un fichier Word en Lecture Seule, j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub OuvrirEnLectureSeule_Click()
Dim NomDuFichier As String 'sans le suffixe .doc
Dim RépertoireSource As String
'Nom du fichier au choix:
NomDuFichier = "test"
RépertoireSource = "C:\" 'doit exister
Dim wdapp As Object
'Démarre Word
Set wdapp = CreateObject("Word.application")
wdapp.Visible = True
wdapp.Documents.Open RépertoireSource & NomDuFichier & ".doc", ReadOnly:=True

End Sub

Cdlt,

[p'tite Sandrine]

Bonjour,

Tout d'abord un grand merci pour ta réponse.
j'ai adapter ton code comme suit:

Code :

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

1
2
3
4
5
6
7
Dim StrFichier As String
StrFichier = Me!ChemDoss & "\" & Me!photos
Dim wdapp As Object
'Démarre Word
Set wdapp = CreateObject("Word.application")
wdapp.Visible = True
wdapp.Documents.Open StrFichier, ReadOnly:=True

et effectivement lorsque on le modifie et qu'on tente de sauvegarder il passe en mode enregistrer sous.
et empêche d'écraser la version précedante. Super

par contre y a t il un moyen d'empêcher tout type d'enregistrement?
afin d'offrir une bonne protection des données et qu'on ne puisse pas enregistrer le fichier sur une disquette par exemple?

merci encore pour ton code