J'ai un petit soucis concernant le retrait de la lecture seule à l'ouverture d'un fichier que je reçois par mail. J'ai essayé d'utiliser différentes manières comme : Workbooks.Open Filename:=ThisWorkbook.Path _ & Application.PathSeparator & _ ThisWorkbook.Name, ReadOnly:=False SetAttr ThisWorkbook.FullName, vbNormal et autres , mais je dois mal m'y prendre Si besoin, en attente de vous lire, Braters...

Enlever lecture seule d'un fichier

Bonjour,

J'ai un petit soucis concernant le retrait de la lecture seule à l'ouverture d'un fichier que je reçois par mail.

J'ai essayé d'utiliser différentes manières comme :

Workbooks.Open Filename:=ThisWorkbook.Path _
    & Application.PathSeparator & _
    ThisWorkbook.Name, ReadOnly:=False

SetAttr ThisWorkbook.FullName, vbNormal

et autres , mais je dois mal m'y prendre

Si besoin, en attente de vous lire,

Braters.

Bonjour,

une solution avec enregistrer sous

nom = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:="C:\Documents\CopiDe_" & nom, FileFormat:=52, CreateBackup:=False