Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel mdp sur fichier Word

mdp sur fichier Word

2 réponses
Avatar
Infogroup
Bonjour à tout le groupe,

A partir d'Excel 2003, je voudrais ouvrir un fichier Word

Dans la feuille excel, j'ai mis le code suivant :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Répertoire = "D:\Copie\"
Fichier = "Fichier1.doc"

If Target = [K36] Then

Shell ("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE /n
""" & Répertoire & Fichier & "")
ActiveWindow.Visible = True
Cancel = True
End If

Excel.Application.Visible = True

End Sub

Mais le fichier "Fichier1.doc" comporte un mot de passe "Toto"
Comment dois-je modifier l'instruction Shell pour que le fichier s'ouvre
malgé le mot de passe ?

Merci par avance pour votre aide

Cordialement

Infogroup
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
FFO
Salut à toi

Je te propose ton code modifié ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target = [K36] Then
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
End With
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open("D:CopieFichier1.doc", , , , "Mot de
passe d'ouverture", , , "Mot de passe d'écriture")
End If
Excel.Application.Visible = True
End Sub

Il faut cocher dans la bibliotèque la référence :

Outils/Références : Microsoft Word (dernière version) Object Library

Celà devrait te convenir
Dis moi !!!
Avatar
Infogroup
Merci FFO, ça marche impeccable,

merci encore pour ton aide.

Cdl

Infogroup

"FFO" a écrit dans le message de
news:
Salut à toi

Je te propose ton code modifié ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target = [K36] Then
Dim oWdApp As Object
'Lancer Word
Set oWdApp = CreateObject("Word.Application")
With oWdApp
'Afficher Word si nécessaire...
.Visible = True
End With
'Ouvrir le document Word
Set WordDoc = oWdApp.Documents.Open("D:CopieFichier1.doc", , , , "Mot de
passe d'ouverture", , , "Mot de passe d'écriture")
End If
Excel.Application.Visible = True
End Sub

Il faut cocher dans la bibliotèque la référence :

Outils/Références : Microsoft Word (dernière version) Object Library

Celà devrait te convenir
Dis moi !!!