XL 2019 modification macro

Quicksland · 12 Octobre 2022

Bonjour @AtTheOne bonjour le forum ,

j'ai un petit soucis ...

Apres quelque temps d'utilisation sans accro j'ai voulu améliorer le projet

Dans un même classeur j'ai voulu insérer le même tableau que dans la feuille 1 dans une autre feuille
mais a l'ouverture la date se modifie dans les deux tableaux mais un seul se remet a zéro

Voici le code :

VB:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

'Date de dernière modif enregistrée dans le Nom (déjà créé) "DerModif"
Me.Names("DerModif").RefersTo = Date

End Sub

Private Sub Workbook_Open()

Dim WSh As Worksheet
Set WSh = Feuil1 'Feuil1 : Nom VBA de la feuille contenant les effectifs
'Si la date a changé : remise à blanc de la plage de saisie (plage nommée "PlageEffectifs")
If [DerModif] <> Date Then WSh.[PlageEffectifs].ClearContents

End Sub

Merci pour votre aide

AtTheOne · 13 Octobre 2022

Merci @sylvanu de ta participation,
Je reste perplexe devant ce bug, que je ne reproduit pas, quand la date est différente, chez moi ça efface les données... (versions 2007 et 2021 )
Amicalement
Alain

sylvanu · 13 Octobre 2022

Exact, chez moi pareil sur 2007. ( facile, il suffit de faire Me.Names("DerModif").RefersTo = 0 ) et effectivement le clear a lieu.
Il faudrait que Quicksland teste ma PJ, car le bug pourrait avoir deux origines :
1- La macro Open n'est pas exécutée
2- Il trouve toujours la même date.
Si en testant cette PJ il a un msgbox c'est que la macro est exécutée.

AtTheOne · 13 Octobre 2022

Bonjour @Quicksland
On attend tes réponses pour aller plus loin :

Essai de la version de @sylvanu (post#15)
Essai d'une ancienne version qui fonctionnait (avec une seule feuille)

Amicalement
Alain

Quicksland · 13 Octobre 2022

AtTheOne à dit:
Bonjour @Quicksland
On attend tes réponses pour aller plus loin :

Essai de la version de @sylvanu (post#15)

Essai d'une ancienne version qui fonctionnait (avec une seule feuille)

Amicalement
Alain

Bonjour @sylvanu @AtTheOne le forum,

Donc j'ai repris la PJ de Sylvanu post 15

Toujours le même problème , le fichier ne se remet pas a zéro malgré la date qui change et ceci dans les deux feuilles
Pas de msgbox a l'ouverture pour dire que la macro c'est exécutée

Pour l'essai avec une seule feuille tout fonctionne parfaitement
J'ouvre la feuille seule, je rentre des chiffres, j'enregistre et je change la date de mon ordinateur puis j'ouvre mon fichier et la date a changé et les cellules son vide

Merci a vous deux pour votre aide

sylvanu · 13 Octobre 2022

Bonjour,
Si "Pas de msgbox" alors c'est que la macro Open ne s'exécute pas à l'ouverture du fichier.

Quicksland · 13 Octobre 2022

sylvanu à dit:
Bonjour,
Si "Pas de msgbox" alors c'est que la macro Open ne s'exécute pas à l'ouverture du fichier.

Re,
Que doit-je faire ?

sylvanu · 13 Octobre 2022

Testez ce fichier en PJ.
Il y aura un msgbox à l'ouverture du fichier.
S'il y en a pas c'est que vos macros ne sont pas activées.
S'il y a qu'un seul message "On va executer la macro Workbook_Open." et pas de second message c'est qu'une erreur s'est produite dans le IF et qu'on sort sans rien faire.

sylvanu · 13 Octobre 2022

Il y a plusieurs hypothèses :
1- Les macros ne sont pas activées
2- Une feuille a été supprimée et reconstruite ( elle porte le même nom mais pas le même ID )
3- La référence DerModif a été supprimée
Ma PJ #22 devrait nous orienter.

Quicksland · 13 Octobre 2022

sylvanu à dit:
Testez ce fichier en PJ.
Il y aura un msgbox à l'ouverture du fichier.
S'il y en a pas c'est que vos macros ne sont pas activées.
S'il y a qu'un seul message "On va executer la macro Workbook_Open." et pas de second message c'est qu'une erreur s'est produite dans le IF et qu'on sort sans rien faire.

Test sur Pj 22 Pas de message a l'ouverture
La coche activer toutes les Macros est ok

sylvanu · 13 Octobre 2022

??? Incompréhensible. Si pas de message à l'ouverture c'est que la macro Sub Workbook_Open ne s'execute pas car la modif que j'ai faite est :

VB:

Private Sub Workbook_Open()
    MsgBox "On va executer la macro Workbook_Open."

Donc le message doit apparaitre dès le lancement de cette macro.

Vous pouvez envoyez les deux fichiers avec une feuille et avec deux feuilles ?

Quicksland · 13 Octobre 2022

sylvanu à dit:
??? Incompréhensible. Si pas de message à l'ouverture c'est que la macro Sub Workbook_Open ne s'execute pas car la modif que j'ai faite est :

VB:

Private Sub Workbook_Open() MsgBox "On va executer la macro Workbook_Open."

Donc le message doit apparaitre dès le lancement de cette macro.

Vous pouvez envoyez les deux fichiers avec une feuille et avec deux feuilles ?

Tu a évoquer tout a l'heure ceci

2- Une feuille a été supprimée et reconstruite ( elle porte le même nom mais pas le même ID )

Alors je suis reparti de zéro
J'ai mis cette macro ci dessous

Code:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    
     'Date de dernière modif enregistrée dans le Nom (déjà créé) "DerModif"
     Me.Names("DerModif").RefersTo = Date
    
End Sub

Private Sub Workbook_Open()
    MsgBox "On va executer la macro Workbook_Open."
     Dim WSh1 As Worksheet, WSh2 As Worksheet
     Set WSh1 = Feuil1 'Feuil1 : Nom VBA de la feuille contenant les effectifs1
     Set WSh2 = Feuil2 'Feuil2 : Nom VBA de la feuille contenant les effectifs2
    
     'Si la date a changé : remise à blanc de la plage de saisie (plages nommées "PlageEffectifs1" et "PlageEffectifs2")
    If [DerModif] <> Date Then
        MsgBox "La date est différente donc clear feuilles."
          WSh1.[PlageEffectifs1].ClearContents
          WSh2.[PlageEffectifs2].ClearContents
    Else
        MsgBox "La date est identique donc ne rien faire."
    End If
    
End Sub

J'ai bien toutes les msbox
la date change et les cellules s'efface

j'ai aussi essayer celle ci-dessous

VB:

Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    
     'Date de dernière modif enregistrée dans le Nom (déjà créé) "DerModif"
     Me.Names("DerModif").RefersTo = Date
    
End Sub

Private Sub Workbook_Open()

     Dim WSh1 As Worksheet, WSh2 As Worksheet
     Set WSh1 = Feuil1 'Feuil1 : Nom VBA de la feuille contenant les effectifs1
     Set WSh2 = Feuil2 'Feuil2 : Nom VBA de la feuille contenant les effectifs2
    
     'Si la date a changé : remise à blanc de la plage de saisie (plages nommées "PlageEffectifs1" et "PlageEffectifs2")
     If [DerModif] <> Date Then
          WSh1.[PlageEffectifs1].ClearContents
          WSh2.[PlageEffectifs2].ClearContents
     End If
    
End Sub

Et la encore tout fonctionne parfaitement

Un grand merci a @sylvanu a @AtTheOne ainsi qu'a @laurent950
Merci pour votre patience et aide si précieuse

sylvanu · 13 Octobre 2022

Bill a toujours eu beaucoup d'humour !
Le seul problème est qu'on ne le comprends pas toujours.

AtTheOne · 13 Octobre 2022

Bonsoir le fil
Je me penchais sur un autre problème donc pas disponible pour regarder celui-ci.
Bravo à tous !
Ce n'est pas la première fois que, en reconstruisant un classeur à l'identique (du moins en apparence) un problème qui paraissait insoluble se dissous comme par miracle.

Amicalement
Alain

Ps @Quicksland : pense à marquer, si c'est le cas, l'un des posts comme solution

XL 2019 modification macro

Quicksland

XLDnaute Occasionnel

Pièces jointes

AtTheOne

XLDnaute Accro

sylvanu

XLDnaute Barbatruc

AtTheOne

XLDnaute Accro

Quicksland

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Quicksland

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Quicksland

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

Quicksland

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

AtTheOne

XLDnaute Accro

Discussions similaires