Activer un onglet dès l'ouverture
Résolu
dave38
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je cherche à activer un onglet d'un classeur Excel (sous Vba) dès l'ouverture de celui ci, car les utilisateurs le ferment systématiquement sur le mauvais onglet, trompant l'utilisateur suivant.
Merci de votre aide pour ce truc facile, mais que je ne parviens pas à faire !!
Cordialement
David
Je cherche à activer un onglet d'un classeur Excel (sous Vba) dès l'ouverture de celui ci, car les utilisateurs le ferment systématiquement sur le mauvais onglet, trompant l'utilisateur suivant.
Merci de votre aide pour ce truc facile, mais que je ne parviens pas à faire !!
Cordialement
David
Configuration: Windows 2003 Internet Explorer 6.0
6 réponses
-
Bonjour
a installer dans le module Thisworkbook de VBE
Private Sub Workbook_Open()
Sheets("nomdetafeuille").Range("A1").Select
End Sub -
Bonjour,
Private Sub Workbook_Open() Sheets("TaFeuil").Select End Sub
A+
-
Merci pour votre réponse.
En fait, mon classeur a 2 feuilles, et le programme suivant fait partie de la seconde. Je voudrai y insérer une ligne de commande qui le fait revenir à la 1ère feuille en fin d'exécution. le problème est que je souhaite que le retour vers la 1ère feuille ne se fasse qu'après fermeture du classeur complet. merci de votre aide !!
Private Sub CheckBox1_Click()
Dim pdm1
Dim OFinterim
pdm1 = Sheets("AO").Range("AH138").Value
OFinterim = "Olivier_Feur_Intérim ."
Sheets("AO").Select
Selection.AutoFilter Field:=4, Criteria1:="OF intérim"
MsgBox "Bonjour " & OFinterim & "Votre Part de Marché sur les Flux Long Terme est de " & pdm1
CheckBox1 = False
End Sub -
le retour vers la 1ère feuille ne se fasse qu'après fermeture du classeur complet
?????
Si le fichier est fermé... -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Bonjour,
Bonjour Michel, en employant un petit détour....
A la fin de ta macros ajouter la ligne...Application.Quit
et dans le module de ta feuille...Private Sub Workbook_BeforeClose(Cancel As Boolean) If ActiveSheet.Name <> "Feuil1" Then Windows(ActiveSheet.Parent.Name).Visible = False Sheets("Feuil1").Activate Workbooks(ActiveSheet.Parent.Name).Save End If End Sub Private Sub Workbook_Open() Windows(ActiveSheet.Parent.Name).Visible = True End Sub
dave38 : Bien sûr, remplacer "Feuil1" par le nom de ta feuille
A+ -
Bonjour lermite,
OK, j'y avais pas pensé; c'est l'expression "après la fermeture" qui m'avait fait tilté!
Merci