Discussion :

[val28]

Bonjour,
Je suis débutante en VBS et je n'arrive pas à mettre un fichier Excel en lecture seule via VBS. J'ai trouvé des informations concernant ce sujet en vain. Si quelqu'un peu m'aider. Voici le code que j'ai essayé :

Code :

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

	SetAttr "toto.xls", FileAttribute.ReadOnly

Merci d'avance !!!!

[SfJ5Rpw8]

Pour Modifier un attibut...

Code :

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

1
2
3
4
5
  Dim MonFichier
  MonFichier = "NF110723.pdf"
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  Set f = oFSO.GetFile(MonFichier)
  f.attributes = f.Attributes OR 1 ' Mise à 1 bit 0 , "ReadOnly"

[val28]

Merci, c'est nickel , cela fonctionne !!!!
encore merci