Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

OPEN et Activesheet

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion escouger
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

escouger

XLDnaute Occasionnel
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
 
Trier par date Trier par votes
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:
Code: 
Workbooks.Open "C:\REP\Fichier.xls"
   
With ActiveWorkbook
  .Sheets("Rando ").Activate
  .Sheets("Rando ").Unprotect
End With
Cordialement.
 
Vote positif 0 Vote négatif
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 .
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
827
Chaton77
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
851
Electron24
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
598
Aldonanou
A
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
749
loreak
L
O
  • Question Question
XL 2010 suppression fichiers excel vba
Réponses
9
Affichages
778
Oneida
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
749
Staple1600
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
Q
  • Résolu(e)
XL 2019 Modification macro
Réponses
8
Affichages
868
Quicksland
Q
  • Question Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
4 K
Usine à gaz
B
  • Question Question
Autres Tester l'existence d'une feuille
Réponses
14
Affichages
1 K
botanicus
B
E
  • Question Question
XL 2013 Copier ligne from last feuil d'1 classeur vers un autre classeur
Réponses
8
Affichages
2 K
ebenezerkonan
E
W
  • Résolu(e)
Microsoft 365 Boucle Loop infinie lors écriture dans des fichier
Réponses
7
Affichages
1 K
Staple1600
G
  • Question Question
Microsoft 365 Ecrire dans un classeur ferme
Réponses
2
Affichages
4 K
patricktoulon
C
  • Question Question
Microsoft 365 problème navigation et selection dans Combobox-Liste de choix
Réponses
4
Affichages
2 K
chostra
C
S
  • Question Question
XL 2016 VBA Synthèse Classeur Volumineux + Comparaison
2
Réponses
16
Affichages
3 K
scalaze
S
C
  • Question Question
XL 2016 Calendrier 1904 et macro
2
Réponses
23
Affichages
4 K
job75
R
  • Résolu(e)
XL 2016 Lister fichiers avec Exifs et propriétés (suivant son choix) - code à modifier
10 11 12
Réponses
167
Affichages
18 K
re4
R
  • Question Question
XL 2013 Automatisation publipostage avec word depuis excel
Réponses
3
Affichages
3 K
escouger
R
  • Question Question
XL 2016 Gestion de chemin de fichiers + VBA
Réponses
0
Affichages
3 K
Ryoken
R
R
  • Question Question
Boucles imbriquées et génération de classeur
Réponses
3
Affichages
750
Rafilo13
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…