Discussion :

[murielinserm]

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 :

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

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 :

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

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.

[marot_r]

Bonjour.

À priori ta 1ère solution est la bonne.

Essaye :

Code :

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

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+

[murielinserm]

Merci.

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

[murielinserm]

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

[marot_r]

donc tu as résolu le problème ?

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

A+

[murielinserm]

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

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

Code :

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

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

[Paraffine]

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

[marot_r]

Bonjour.

Et il manque des & et des ".

Code :

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

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

A+

[murielinserm]

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 :

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

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 ++

[marot_r]

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+

[murielinserm]

ok !