Ouvrir fichier

[alexandre]

Peut-on effectuer l'ouverture d'un classeur systématiquement sur la première page même en ayant quitter excel sur une autre ?

Merci beaucoup

 

[stef]

Private Sub Workbook_Open()
Sheets(1).Activate
End Sub

à déclarer sur ThisWorkBook dans l'explorateur de projet

 

[alain]

Bonsoir,



Oui on peut, il suffit de mettre une macro auto_open dans un module du classeur :


Sub auto_open()
Sheets(1).Select
End Sub

Si tu veux une feuille en particulier, il faut mettre le nom de la feuille à la place du 1 :

Sheets("Nom_de_ta_feuille").Select
et on peut ajouter :
Range("A1").Select pour se positionner sur la 1ère cellule de la feuille.


@+

 

[alexandre]

Merci, mais je viens de retrouver un post du début du mois de mai :


Sub Autpen()
Sheets("Feuil1").Activate
End Sub


Encore merci

 

[evelyne]

bonsoir a tous

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("sommaire").Select
End Sub

Private Sub workbook_open()
Sheets("Sommaire").Select
Range("a1").Select
End Sub

A titre perso j'installes ces 2 macros car plusieurs cas peuvent se produire siuvant les habitudes des utilisateurs.
1)si l'utilisateur quitte de la feuil 20 (par exemple) en faisant Ctrl S ou clic sur disquette enregistrement de la barre d'outil ou clic sur la croix en haut a droite puis ok enregistrement :a la prochaine ouverture le dossier s'ouvrira sur feuil 20 et passera rapidement sur la page open
en mettant
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("sommaire").Select
End Sub

le dossier se fermera sur la page open et a l'ouverture la page open sera directement lancee .
bonne soirée
Evelyne

 

[alexandre]

C'est fou toutes les solutions différentes qu'on peut trouver pour un "petit" problème donné...

Merci à toutes et à tous