Hello,

Voila j'ai tapé un code qui devrait me permettre de mettre plusieurs fichiers du même type ( .xls ) en lecture seule, mais voila ca bug.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Destination_Path = Variable qui donne un chemin
Folder_Name = Variable donnant le nom du dossier dans le quel aller
 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(Destination_Path & Folder_Name & "\*.xls")
If objFile.Attributes = objFile.Attributes AND 1 Then
    objFile.Attributes = objFile.Attributes XOR 1
End If
ps : les variables sont justes et il me dit qu'il trouve pas le chemin à la ligne N°5 ici

Si quelqu'un à une autre méthode pour mettre des fichiers en lecture seul se serait gentil, car je sents que c'est pas la bonne la

Chicho !