Discussion :

[Djekill]

Bonjour,

durant une automation word, sauvegarde d'un certain nombre de .doc en lecture seul dans un repertoire, un message "Impossible d'ouvrir la macro de stockage".
Quand j'utilise ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub LectureSeule_Click()
 
Dim NomDuFichier As String 'sans le suffixe .doc
Dim RépertoireSource As String
Dim RépertoireCible As String
'Nom du fichier au choix:
NomDuFichier = "test"
RépertoireSource = "C:\" 'doit exister
RépertoireCible = "C:\Sauvegarde\" 'doit exister
 
 
Dim wdapp As Object
'Démarre Word
Set wdapp = CreateObject("Word.application")
wdapp.Documents.Open RépertoireSource & NomDuFichier & ".doc"
wdapp.Visible = True
'Sauvegarde le fichier:
wdapp.ActiveDocument.SaveAs (RépertoireCible & NomDuFichier & ".doc")
 
Dim fs As New Scripting.FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
Dim f As Scripting.File
Set f = fs.GetFile(RépertoireCible & NomDuFichier & ".doc")
f.Attributes = ReadOnly 'Lecture Seule
End Sub

en sachant que quand j'utilise "ShellExecute" j'ai pas de problème de macro ...
J'ai trouve certain article sur ce problème mais j'avoue que je patoge totalement, je comprend pas trop .



Merci pour votre aide

[Invité]

Salut,

Je ne vois pas de fermeture du fichier sous word avant changement de l'attibut !?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'Sauvegarde le fichier:
wdapp.ActiveDocument.SaveAs (RépertoireCible & NomDuFichier & ".doc")
' Fermer le fichier sous word
wdapp.ActiveDocument.Close wdDoNotSaveChanges
 
' Ensuite on peut changer l'attribut
Dim fs As New Scripting.FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
Dim f As Scripting.File
Set f = fs.GetFile(RépertoireCible & NomDuFichier & ".doc")
f.Attributes = ReadOnly 'Lecture Seule
End Sub

Peut être comme ça

[Djekill]

Toujours pareil

[Arkham46]

bjr,

le code de copie de fichier :

Code :

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

1
2
3
4
5
6
7
Dim wdapp As Object
'Démarre Word
Set wdapp = CreateObject("Word.application")
wdapp.Documents.Open RépertoireSource & NomDuFichier & ".doc"
wdapp.Visible = True
'Sauvegarde le fichier:
wdapp.ActiveDocument.SaveAs (RépertoireCible & NomDuFichier & ".doc")

ne serait-il pas plus simple comme ça??

Code :

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

1
2
3
 
CopyFile RépertoireSource & NomDuFichier & ".doc", _
            RépertoireCible & NomDuFichier & ".doc"