Macro automatique à l'ouverture du classeur

[Nonno 94]

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.

 

[Pierrot93]

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é...

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
@+

 

[kjin]

Re : Macro automatique à l'ouverture du classeur

Bonjour,
Dans le module de ThisWorkBook...

Private Sub Workbook_Open()
Onglet
End Sub

...et dans un module standard

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

 

[Nonno 94]

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.

 

[Nonno 94]

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.