Déverrouillage de cellule

[Sly le globe trotter]

Bonjour,

J'ai posté un peu plus tôt aujourd'hui un message sur le forum Excel en pensant que mon problème n'était pas lié à la version que j'utilise... A priori, cela n'est pas le cas puisque ma macro fonctionne avec des fichiers 2003 mais pas avec des fichiers 2007.

Voici mon souci.
Dans le module d'un fichier, je cherche à déverrouiller des cellules d'un autre fichier Excel qui est ouvert. J'ai créé une fonction de déverrouillage

Sub UnlockCell(Fichier As String, Onglet As String, IndRow As Integer, IndCol As Integer)

Windows(Fichier).Activate
Sheets(Onglet).Cells(IndRow, IndCol).Select
Selection.Locked = False
Selection.FormulaHidden = False

End Sub

et une fonction principale depuis laquelle je cherche à appeler ma fonction

Sub Main()

Dim EIEperso As String
EIEperso = "Exemple.xlsx"
UnlockCell EIEperso, "Feuil1", 11, 4
Windows(EIEperso).Activate

End Sub

Le code plante en arrivant sur la ligne

Windows(Fichier).Activate

avec un message indiquant que l'indice n'appartient pas à la sélection...

Comme indiqué plus haut, en enregistrant mon fichier Exemple.xlsx en Exemple.xls, plus de problème...

Pourriez-vous m'aider à modifier mon code pour le rendre utilisable sous ces deux versions d'Excel ?

En vous remerciant,
Sly

 

[job75]

Re : Déverrouillage de cellule

Bonjour Sly le globe trotter,

J'ai donné une réponse sur ce fil :

https://www.excel-downloads.com/threads/deverrouillage-cellule.142624/

A+

 

[Sly le globe trotter]

Re : Déverrouillage de cellule

Bonjour job75,

Je te remercie ici aussi pour ton aide

Bonne continuation
Sly