Le code ne s'exécute pas entièrement...

[Tiobi]

Bonjour à tous,


Ci- après un bout de code: Tout fonctionne sauf les instructions
Sheets("Accueil").Select
Range("A1").Select
Bizarre non ?


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

If ActiveSheet.Name = ("TUNZINI") _
Or ActiveSheet.Name = ("WESTINGHOUSE") _
Or ActiveSheet.Name = ("CEGELEC") Then


Range("B29").FormulaR1C1 = "=NOW()"
Range("B29").NumberFormat = "dddd dd mmmm yyyy"" - ""hh:mm"
Range("B29").Value = "Dernière mise à jour : " & [B29].Text

Sheets("Accueil").Select
Range("A1").Select

Exit Sub
End If
MsgBox ("Pour rafraichir ... etc ")

End Sub

 

[alex67800]

Re : Le code ne s'exécute pas entièrement...

Bonsoir Tiobi,
peut-être comme ceci:
Sheets("Accueil").Activate
Range("A1").Select


Edit: Que vient faire me Exit Sub avant End If?

 

[kjin]

Re : Le code ne s'exécute pas entièrement...

Bonsoir,
Comme c'est précisé, c'est un bout de code, donc difficile de répondre sans fichier !
Alex : Si la feuille active n'est pas dans la liste on affiche le msg, sinon non d'où le "Exit Sub" (si j'ai bien compris)
A+
kjin

 

[ROGER2327]

Re : Le code ne s'exécute pas entièrement...

Bonsoir à tous.

Peut-être

Sheets("Accueil").Range("A1").Select

au lieu de

Sheets("Accueil").Select
Range("A1").Select

?​

Bonne nuit !
ROGER2327

 

[Tiobi]

Re : Le code ne s'exécute pas entièrement...

Bonjour,

Je joint le fichier , ce sera plus facile.


En mode pas a pas, je constate que les instructions
Sheets("Accueil").Select
Range("A1").Select

ne sont pas réalisées lorsque j'enregistre le classeur.

c'est peut-être spécifique à l'évènement Workbook_BeforeSave ?

 

[TheLio]

Re : Le code ne s'exécute pas entièrement...

Hello,
Chez moi ton classeur fonctionne bien selon tes explications.
(pour autant que l'on soit sur une des feuilles Tanzini cegelec nommées dans le code avec une condition If)
A++
Lio

 

[alex67800]

Re : Le code ne s'exécute pas entièrement...

Bonjour tout le monde,
chez moi le code foncitionne également, je me retrouve bien sur la feuille accueil en A1.

kjin: Arff mais oui c'est bien sûr!!