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
A voir également:
- Activer un onglet dès l'ouverture
- Activer chromecast - Guide
- Activer office gratuitement - Accueil - Bureautique
- Comment activer notification visite profil facebook - Guide
- Cle pour activer windows 10 gratuitement - Guide
- Activer pavé tactile pc portable - Guide
6 réponses
Bonjour
a installer dans le module Thisworkbook de VBE
Private Sub Workbook_Open()
Sheets("nomdetafeuille").Range("A1").Select
End Sub
a installer dans le module Thisworkbook de VBE
Private Sub Workbook_Open()
Sheets("nomdetafeuille").Range("A1").Select
End Sub
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
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é...
?????
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...
et dans le module de ta feuille...
dave38 : Bien sûr, remplacer "Feuil1" par le nom de ta feuille
A+
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+
