Discussion :

[smaret]

Bonjour,

J'ai une macro qui ouvre un classeur excel en lecture seule:

Code :

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

1
2
Dim wbAllData As Workbook
 Set wbAllData = Workbooks.Open(Filename:="C:\Users\Stephane\Documents\Copie de Classeur11test.xlsm", ReadOnly:=True)

Maintenant, j'aimerai créer une macro qui, depuis un bouton, supprime la lecture seule du classeur déjà ouvert.

D'avance merci pour votre aide.

[Fred.dz]

A mon avis tu va être obligé de fermer le fichier puis de le rouvrir (tu peux le faire avec un programme bien sûr).

[ctac_]

Bonjour,

Code :

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

 wbAllData.ChangeFileAccess xlReadWrite

Cordialement.
ctac

[smaret]

j'ai mis le Bouton 1 sur la Feuil1 avec la macro mais cela ne fonctionne pas. La fenêtre débogage apparaît avec mention erreur d’exécution 424

la macro est écrite comme ceci:

Code :

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

1
2
3
Sub Bouton1_Cliquer()
 wbAllData.ChangeFileAccess xlReadWrite
End Sub

Merci pour votre aide, je suis un novice dans ce domaine.

[joe.levrai]

Bonjour,

le problème ne vient pas du fait que ta variable wbAllData ne soit pas reconnue, car non instanciée ?

si c'est bien ça, je pense que ce rectificatif devrait fonctionner :

Code :

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

1
2
3
4
 
Sub Bouton1_Cliquer()
ThisWorkBook.ChangeFileAccess xlReadWrite
End Sub