Creation d'une copie d'un fichier

[Seb67210]

Bonjour à toutes et à tous !

Je viens vous voir car comme d'habitude j'ai un petit soucis...

Via une macro j'ouvre un fichier word avec le code suivant :

Dim LancerWord As Object
Set LancerWord = CreateObject("Word.Application")
LancerWord.WindowState = wdWindowStateMaximize
LancerWord.Visible = True
LancerWord.Documents.Open Filename:="W:\Automatisme\Procédures Périphériques\Mise en page Procédure Standard.doc"

Je souhaiterais créer une copie de ce fichier, la stockée au meme endroit que l'original et fermer l'original....resterait plus que la copie du fichier ouvert....

Pouvez vous m'aider svp ?

( Le but est que les personnes ne consultent pas l'original mais une copie )

 

[Seb67210]

Re : Creation d'une copie d'un fichier

Voilà mon fichier d'essai...

 

[degap05]

Re : Creation d'une copie d'un fichier

Désolé, trop compliqué pour mes connaissances😱

Tu pourrais ouvrir une autre discussion, avec l'intitulé correspondant.
Ne refuses pas l'aide de "kjin" 😛🙂

Salut.

 

[Seb67210]

Re : Creation d'une copie d'un fichier

J'ai trouvé pour le test du dossier déjà existant...

 

[Seb67210]

Re : Creation d'une copie d'un fichier

Merci à toi "degap05 " !!!

Au plaisir

 

[Staple1600]

Re : Creation d'une copie d'un fichier

Bonjour à tous

Seb67210
Je rejoins l'avis de kjin.

Pourquoi ne pas attribuer des droits d'accès différents selon le type d'utilisateur?

Windows permets cela (comme te l'indiquait kjin)

Ou pourquoi ne pas enregistrer ton fichier en lecture seule (avec un mot de passe) au départ ?
Dans Word: Fichier/Enregistrer sous/Outils/Options générales
et ici choisir les options adéquates