XL 2013 enlever le mode lecture seule d'un fichier word (vba)

ssonap

XLDnaute Nouveau
Bonjour,

j'ai un programme excel qui doit télécharger un modèle de fichier Word (stocké sur le net) et travailler sur ce modèle.
Malheureusement, je n'arrive pas à enlever le mode lecture seule" de ce fichier word et donc mon programme ne peut pas s’exécuter.
ci-dessous l'exemple du code qui accède au fichier
VB:
Dim appWrd As Word.Application
Dim docWord As Word.Document
Set appWrd = CreateObject("Word.Application")
appWrd.visible = True

   Set docWord = appWrd.Documents. _
    Open("https://h5679.../exemple.docx", ReadOnly:=False)

Je pensais qu'avec ReadOnly:=false, cela fonctionnerait. Mais pas sur un fichier télécharger par un url.
Est-ce que quelqu'un a une solution ?
Si pas de possibilité de supprimer la lecture seule, peut être un programme qui copie le modèle et le ferme ?

Je suis totalement coincé,

Merci de votre aide.
Cdt
 
Solution
Bonjour;

un modèle de fichier Word (stocké sur le net)

hors "https://h5679.../exemple.docx" n'est pas un modèle word mais un document.
Si vous en faites un modèle word (.dotx) vous pourrez ouvrir un nouveau document à partir de ce modèle par :

VB:
Set docWord=appWrd.Documents.Add(Template:="https://h5679.../exemple.dotx", NewTemplate:=False, DocumentType:=0)

Il vous restera à enregistrer votre nouveau document sous l'extension .docx, votre modèle .dotx ne sera pas modifié.

Cordialement

ssonap

XLDnaute Nouveau
Bonjour job75,

je ne comprends pas très bien ta réponse, désolé.
Pour moi, je télécharge déjà le fichier et j'essaie de "décocher" la lecture seule avec "ReadOnly=False" lors de ce téléchargement.
Mais ça ne fonctionne pas.
est-ce qu'il y a un moyen de décocher l'attribut "lecture seule" après le téléchargement ?
C'est là que je coince.

Merci
 

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour;

un modèle de fichier Word (stocké sur le net)

hors "https://h5679.../exemple.docx" n'est pas un modèle word mais un document.
Si vous en faites un modèle word (.dotx) vous pourrez ouvrir un nouveau document à partir de ce modèle par :

VB:
Set docWord=appWrd.Documents.Add(Template:="https://h5679.../exemple.dotx", NewTemplate:=False, DocumentType:=0)

Il vous restera à enregistrer votre nouveau document sous l'extension .docx, votre modèle .dotx ne sera pas modifié.

Cordialement
 

Discussions similaires

Statistiques des forums

Discussions
315 096
Messages
2 116 183
Membres
112 677
dernier inscrit
Justine11