Est-il possible de forcer l'ouverture d'un fichier Word (appelé par une
macro Excel ) en Lecture seule ou de le proteger contre toute tentative de
modification...?
Merci de votre aide
Lionel
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
FFO
salut Lionel je te propose :
Dim oWdApp As Object 'Lancer Word Set oWdApp = CreateObject("Word.Application") With oWdApp 'Afficher Word si nécessaire... .Visible = True 'Ouvrir le document Word Set WordDoc = oWdApp.Documents.Open("E:CheminFichier.doc", ReadOnly:=True) End With
Celà te convient-il ???
Bonsoir,
Est-il possible de forcer l'ouverture d'un fichier Word (appelé par une macro Excel ) en Lecture seule ou de le proteger contre toute tentative de modification...? Merci de votre aide Lionel
salut Lionel
je te propose :
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open("E:CheminFichier.doc", ReadOnly:=True)
End With
Celà te convient-il ???
Bonsoir,
Est-il possible de forcer l'ouverture d'un fichier Word (appelé par une
macro Excel ) en Lecture seule ou de le proteger contre toute tentative de
modification...?
Merci de votre aide
Lionel
Dim oWdApp As Object 'Lancer Word Set oWdApp = CreateObject("Word.Application") With oWdApp 'Afficher Word si nécessaire... .Visible = True 'Ouvrir le document Word Set WordDoc = oWdApp.Documents.Open("E:CheminFichier.doc", ReadOnly:=True) End With
Celà te convient-il ???
Bonsoir,
Est-il possible de forcer l'ouverture d'un fichier Word (appelé par une macro Excel ) en Lecture seule ou de le proteger contre toute tentative de modification...? Merci de votre aide Lionel