Discussion :

[chicho]

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 !

[ced600]

A mon avis GetFile récupère un seul fichier, et ne peut pas récupérer plusieurs fichier.
Regarde ici, à "Enumerating All the Files in a Folder" :
http://www.activexperts.com/activmon...esInFolder.htm

[chicho]

merci de cette réponse, mais je n'ai pas réussi
J'sais vraiment pas comment faire pour mettre tous les fichiers .xls d'un dossier en lecture seule... J'suis sur qu'il doit y avoir une méthode assez simple, c'est pas possible !

[chicho]

si personne m'aide, je pense que le suicide va approcher... Je tourne en rond en faisant des boucle "WHILE" avec des "DIR" dedans, je comprends plus rien de ce que je fais LOL !

En tout cas il doit y'avoir une technoche en faisant une boucle... Genre tant que fichier xls est pas en lecture seul tourner

sivouplé help me ^^

[AlainTech]

Je tourne en rond en faisant des boucle "WHILE" avec des "DIR" dedans

Si, au lieu de te lamenter, tu nous montrais tes essais en nous disant ce que tu obtiens, on pourrait, peut-être, t'aider.

[chicho]

je ne me lamente pas, et j'ai déjà mis mon code au début.
J'ai essayé un peu avec la technique qu'on m'a linké la mais j'y arrive pas. J'obtient plus d'erreur qu'autre chose.

Et j'ai tellement changé de technique que au final je n'ai rien de concret donc c'est pour cela que je ne poste pas mon code ( logique j'imagine ). Si je sentais que j'étais proche de la réponse, j'aurais mis mon code, mais ce n'est malheureusement pas le cas.

Merci quand même d'avoir essayé de m'aider ( ou pas )