Enregistrer excel sous VBA sans lecture seule

Résolu/Fermé
Maud1681 Messages postés 14 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 16 février 2017 - 10 févr. 2017 à 12:07
Maud1681 Messages postés 14 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 16 février 2017 - 10 févr. 2017 à 16:45
Bonjour,

Voici le code que j'utilise pour enregistrer mon fichier sous VBA :

ActiveSheet.SaveAs Filename:= _
"\\xxx\xx\x\y\tralala\" & "test-" & Range("J5") & "_" & Range("C7") & "_" & Format(Now, "dd-mm-yyyy") & FileExtStr, FileFormat:=FileFormatNum,
ThisWorkbook.Close SaveChanges:=False

Le fichier s'enregistre bien avec l'extension que je souhaite (=xlsm) mais il se met en lecture seule...

Savez-vous l'élément que je dois rajouter pour supprimer cette propriété ?

Vous remerciant par avance,
A voir également:

2 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 10/02/2017 à 12:41
Bonjour,

au fait, format enregistrement
52---->xlOpenXMLWorkbookMacroEnabled
tout sur les format d'enregistrement:
https://docs.microsoft.com/fr-fr/office/vba/api/excel.xlfileformat?redirectedfrom=MSDN

Alors chez moi, pas de lecture seul a la suite d'enregistrement
Méthode Workbook.SaveAs (Excel): a voir readonlyrecommended
https://docs.microsoft.com/fr-fr/office/vba/api/excel.workbook.saveas?redirectedfrom=MSDN
0
Maud1681 Messages postés 14 Date d'inscription mercredi 8 février 2017 Statut Membre Dernière intervention 16 février 2017
10 févr. 2017 à 16:45
en fait, ça passe en lecture seule quand j'envoie le fichier par mail... j'ai trouvé que c'était une sécurité du système donc non modifiable... du coup, l'utilisateur doit enregistrer la version modifiée sur son bureau.
Dans tous les cas, merci pour ton aide précieuse !
bon we !
0