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

Macro automatique à l'ouverture du classeur

Créer une discussion

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
N

Nonno 94

XLDnaute Occasionnel
Bonjour à tous,

le débutant que je suis aimerait savoir comment faire pour que la macro dont code ci-dessous s'exécute dans certaines feuilles (pas toutes) du classeur à l'ouverture de celui-ci.

Sub Onglet()
'
' Onglet Macro
' Macro enregistrée le 16/02/2011 par Edmond
'

'
ActiveSheet.Unprotect
Range("Q14").Select
Selection.Copy
Range("Q1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveWorkbook.Save
End Sub

Remerciements pour vos conseils et vos réponses.
Cordialement.

Nonno 94.
 
Trier par date Trier par votes
Re : Macro automatique à l'ouverture du classeur

Bonjour,

regarde le code ci-dessous à placer dans le module "thisworkbook", cette macro exclue 2 feuilles, à voir peut être effectuer la macro que sur certaines.... fonction du nombre concerné...
Code: 
Option Explicit
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Me.Worksheets
    With ws
        If .Name <> "Nom1" And .Name <> "Nom2" Then
            .Unprotect
            .Range("Q14").Copy .Range("Q1")
            .Protect
        End If
    End With
Next ws
End Sub

bon après midi
@+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro automatique à l'ouverture du classeur

Bonjour,
Dans le module de ThisWorkBook...
Code: 
Private Sub Workbook_Open()
Onglet
End Sub
...et dans un module standard
Code: 
Sub Onglet()
ListOnglets = Array("Feuil1", "Feuil3") 'mettre ici la liste des feuilles à modifier
For i = LBound(ListOnglets) To UBound(ListOnglets)
    With Sheets(ListOnglets(i))
        .Unprotect
        .Range("Q1") = .Range("Q14") 'à moins que tu veuilles aussi copier le format
        .Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End With
Next
ActiveWorkbook.Save
End Sub

Edit : salut Pierrot 🙂, désolé mais j'ai l'impression d'avoir qq soucis de rafraichissement en temps réel

A+
kjin
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro automatique à l'ouverture du classeur

Bonjour Pierrot,

je te remercie pour ta réponse. Malheureusement, le code ne fonctionne pas :
- il y a un message d'erreur d'exécution '1004' et
- la mise à jour du nom de l'onglet par rapport au nom de la cellule Q1 ne se fait pas non plus.

Le but recherché avec cette macro est la mise à jour des noms des onglets par rapport aux noms des cellules Q1 des feuilles.
Cette mise à jour est nécessaire lorsque des changements interviennent dans un autre fichier auquel celui-ci est lié.
En effet, si les cellules Q1 se mettent bien à jour, il n'en est pas de même pour les noms des onglets.
D'où l'intérêt d'une macro de mise à jour automatique des noms des onglets qui remplacerait la macro "manuelle" du module 14.

Si tu veux te pencher à nouveau sue la question, voici les liens des 2 fichiers :

Cijoint.fr - Service gratuit de dépôt de fichiers
Cijoint.fr - Service gratuit de dépôt de fichiers

Le fonctionnement est le suivant : le fichier "Prestations" est modifié lorsque, par exemple, "Oui" est saisi ou effacé dans la cellule E15 du fichier "Planning".
Dans le fichier "Prestations", les feuilles 13 et 15 changent de nom en Q1 mais pas dans leur onglet !
J'espère avoir été clair.

Remerciements pour ta patience et ta compréhension.
Cordialement.

Nonno 94.
 
Vote positif 0 Vote négatif
Re : Macro automatique à l'ouverture du classeur

Bonjour Kjin,

je te remercie pour la réponse. Malheureusement, le code ne fonctionne pas.
Si tu souhaites te pencher à nouveau sur le problème, tu peux te reporter à la réponse que je viens de faire à Pierrot dont le code ne fonctionne pas non plus.

Pour te rendre compte du résultat obtenu avec ton code, je t'indique les liens vers les 2 fichiers :

Cijoint.fr - Service gratuit de dépôt de fichiers
Cijoint.fr - Service gratuit de dépôt de fichiers

Remerciements pour ....tout.

Cordialement.
Nonno 94.
 
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

H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
N
  • Résolu(e)
Microsoft 365 Macro enregistrement automatique pdf
2
Réponses
18
Affichages
1 K
Nounours4173
N
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
241
vazvaz
V
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
869
dadu35
D
  • Question Question
XL 2016 protéger et déprotéger plusieurs feuilles par macro
Réponses
4
Affichages
981
halecs93
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
948
marie3107
M
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
  • Question Question
XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()
3 4 5
Réponses
62
Affichages
4 K
Usine à gaz
P
  • Question Question
Microsoft 365 Problème de destination à l'exécution d'une macro
Réponses
2
Affichages
746
Pimpon974
P
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
823
Cheyenne_2021
C
  • Résolu(e)
XL 2021 touches Ctrl+R pour revenir
Réponses
4
Affichages
644
TooFatBoy
U
  • Question Question
Autres [RÉSOLU] Problème macro mais lequel?
Réponses
4
Affichages
765
un internaute
U
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
O
  • Question Question
XL 2019 protection de feuille par macro
Réponses
3
Affichages
801
Deadpool_CC
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
1 K
un internaute
U
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
755
un internaute
U
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
679
Lu76Fer
A
  • Résolu(e)
XL 2019 Confirmer la modification d'une cellule avant de la protéger en suite
Réponses
10
Affichages
1 K
arnoldbrice19
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…