Enregistrement lecteur seul

Bonjour à vous,

Je veux créer une copie d'un fichier en lecteur seul, mais je n'y arrive pas.... Voici mon code :

cheminFR1 = "\\korem\administration\Project Management Office\_Management\Reports\FR1 - Forecast Rep\FR1 Backup"

fichierFR1 = "FR1 - " & Range("save_date").Value

ActiveWorkbook.SaveCopyAs Filename:=cheminFR1 & "\" & fichierFR1 & ".xlsm"

J'ai esseyé :

ActiveWorkbook.SaveCopyAs Filename:=cheminFR1 & "\" & fichierFR1 & ".xlsm", Readonlymode = True

Avez-vous une idée!

Bonsoir,

Ci-joint un exemple

Cordialement

Bouben

Bonjour Bouben,

Désolé pour le retard, j'ai commencé autre chose, mais je viens d'esseyer ta solution.

Elle fonctionne !

Merci beaucoup et encore désolé pour le retard !

Vincent