code VBA pour attribuer un fichier excel en lecture seule

Bonjour,

Je cherche le code VBA pour passer un fichier excel en lecture seule.

En fait, j'exporte une table Access dans un fichier excel , et j'aimerais que ce fichier excel soit en lecture seule.

Voici mon code :

Code:

---

call Shell("cmd /c attrib C:\chemin\monfic.xls +r")

---

Access (version 2013) ne me retourne pas d'erreur, mais le fichier n'est pas en lecture seule pour autant.

J'ai également essayé le code VBA suivant :

Code:

---

Shell "cmd/c attrib +r ""C:\chemin\monfic.xls"""

---

mais Access me retourne une message d'erreur "fichier introuvable"

Une idée ?
Merci d'avance.

Bonjour.

À priori ta 1ère solution est la bonne.

Essaye :

Code:

---

call Shell("cmd /k attrib ""C:\chemin\monfic.xls"" +r")

---

Le /k va laisser la fenêtre DOS ouverte et te permettre de voir un éventuel message d'erreur.
Quand c'est au point reviens au /c.

A+

Merci.

Dans la fenêtre dos il s'affiche "Format incorrect du paramètre - "

je viens de voir l'erreur.
Dans le code Shell "cmd /c attrib +r ""C:\monfic.xls""" , il fallait mettre un espace après "cmd" !!
par contre le call shell .. ne fonctionne pas

donc tu as résolu le problème ?

Si oui, merci d'appuyer sur :resolu: en fin de discussion.

A+

oui, mais en fait j'ai un nouveau problème :

j'essaie d'utiliser un raccourci, mais là ça ne fonctionne pas

Code:

---

1 2 3 4

cheminXL = "C:\chemin" nomfic = bidon   Shell "cmd /k attrib +r ""cheminXL & nomfic & ".xls" """

---

Il ne manque pas un antislash entre le chemin et le nom du fichier ?

Bonjour.

Et il manque des & et des ".

Code:

---

Shell "cmd /k attrib +r """ & cheminXL & "\" & nomfic & ".xls"""

---

A+

Bonjour,

Merci beaucoup pour votre aide, ça fonctionne enfin ! Oui, il manquait le "\" (of course) mais aussi le "&" devant cheminXL. J'avoue ne pas bien comprendre ce "&" devant cheminXL car j'ai un code précédemment qui fonctionnait sans ce "&" dans un "DoCmd" :

Code:

---

1 2 3

cheminXL = "C:\chemin\" newvariable = "extraction_" & Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00") DoCmd.TransferSpreadsheet acExport, 8, "extraction", cheminXL & newvariable & ".xls", False, extraction

---

dans tous les cas merci ++

Bonjour

Dans ton nouveau code tu complètes une chaîne de caractères qui contient ton instruction alors que dans ton 1er code tu complètes un paramètre d'une instruction. Les besoins sont différents et donc la syntaxe.

A+

ok !