mdp sur fichier Word

Le
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 FilesMicrosoft OfficeOFFICE11WINWORD.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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #17977731
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 !!!
Infogroup
Le #17978041
Merci FFO, ça marche impeccable,

merci encore pour ton aide.

Cdl

Infogroup

"FFO" 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 !!!



Publicité
Poster une réponse
Anonyme