OPEN et Activesheet

[escouger]

Bonjour,
Dans un classeur RECAP.XLS ne contenant qu'une seule feuille nommée "recap", j'ai une macro qui lit un second classeur.
Ces 2 classeurs sont protégés.
Après l'instruction Workbooks.Open "C:\REP\Fichier.xls", le fichier est bien lu.
Il comporte plusieurs feuilles dont l'une se nomme "Rando "

Je souhaite ensuite modifier ce classeur Fichier.xls pour modifier un champ de la feuille "Rando " et qui est protégé.
Je veux donc déprotéger ma feuille.
Malheureusement les 2 instructions "Sheets("Rando ").Select" et "Sheets("Rando ").Activate" sont inopérantes.
Quant à la dernière "ActiveSheet.Unprotect" elle déprotège la feuile 'recap" du classeur "RECAP.XLS".
Pouvez-vous m'indiquer comment faire pour que la feuille active après l'OPEN soit "Rando " du classeur "Fichier.xls"
Merci d'avance de votre aide.

Voici le code de ma macro:

...
...
Workbooks.Open "C:\REP\Fichier.xls"

Sheets("Rando ").Select
Sheets("Rando ").Activate
ActiveSheet.Unprotect

 

[Papou-net]

Re : OPEN et Activesheet

Bonsoir escouger,

Lorsque tu ouvres un fichier .xls par une macro, ça devient le fichier actif.

Il faut donc le préciser dans le code du fichier appelant.

Exemple:

Workbooks.Open "C:\REP\Fichier.xls"
   
With ActiveWorkbook
  .Sheets("Rando ").Activate
  .Sheets("Rando ").Unprotect
End With

Cordialement.

 

[escouger]

Re : OPEN et Activesheet

Merci pour cette réponse interessante.
Malheureusement cela n'a pas réglé mon souci, qui reste le même.
J'ai tenté aussi l'instruction windows(Fichier.xls).activate mais sans plus de succès hélas.
Peut-être faudrait-il combiner les 2 solutions?
Est-ce que dans l'instruction windows le suffixe .XLS doit être indiqué ?
Est-ce que dans l'instruction Windows le path complet doit être indiqué ?

A nouveau merci d'avance pour votre aide à un passionné, mais néanmoins inexpérimenté programmeur VBA .

 

[escouger]

Re : OPEN et Activesheet

Bonsoir,

J'ai peut-être une piste...mais je ne sais comment régler ce souci.
Le fichier lu comporte une erreur car il a été crée dans une version antérieure d'excel et fait référence à une "référence" nommée "Microsoft Calendar Control 8.0" qui est déclaré "MANQUANT" lors de la compilation des macros.
Il s'agit d'une ancienne gestion de calendrier.
J'ai supprimé le contrôle associé à ce calendrier ainsi que la "Private Sub Calendar1_Click()"
'Private Sub Calendar1_Click()
'ActiveSheet.Unprotect
'Range("ac6").Select
'ActiveCell = Calendar1.Value
'ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
'End Sub
Malgré cela lorsque je désire supprimer cette référence "Microsoft Calendar Control 8.0" je reçois un message m'indiquant que je ne peux pas car il est en cours d'utilisation.
Si je lis un autre fichier que ne contient pas cette référence, tout marche (activation et unprotect)

Comment supprimer cette ancienne référence qui semble être à l'origine de mon problème initial ?

Merci pour ce, je l'espère, dernier coup de pouce

 

[escouger]

Re : OPEN et Activesheet

OK Mon hypothèse se vérifie.
Après avoir sauvegardé tous les modules contenant mon code VBA, je les ai supprimé. J'ai alors pu enfin supprimer la référence "Microsoft Calendar Control 8.0" qui est déclaré "MANQUANT".
J'ai ensuite récupéré et remettre en place mon code VBA.
Tout est (miraculeusement!) rentré dans l'ordre avec mon code initial.

Merci pour votre aise.
Problème résolu